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.REM. 



lOENTIFICATION 



PRODUCT 10: 



AC-T720A-MC 



PRODUCT TITLE: 



CZTSCAO TSU05 OIAG PART S 



DEPARTMENT : 



COMPUTER SPECIAL STSTEMS/PPC 



DATE: 



JUNE Oe. 1965 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COTtllTMENT BT DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY 0^ 
SOFTUARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1963 BY DIGITAL EQUIPMENT CORPORATION 



THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 

DIGITAL POP UNIBUS MASSBUS 

DEC DECUS DEC TAPE 
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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

TMIS IS A PDP-11 RESIDENT DIAGNOSTIC MHICN CMECKS THE FUNCTIONALITf 
OF A TSyOS MAGTAPE SUBSYSTEM WHILE CONNECTED TO A P0P-11//25 SYSTEM 
rUNIBUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE. 



THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIROWCNT. 
THIS PROGRAM CAN BE USED WITH XXDP*. ACT. APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES. REFER 
TO THE XXDP* USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 

PDP-11 PROCESSOR AND MEMORY 

CAUTION: DIAGNOSTIC REQUIRES 52K WORDS OF MEMORY 
(28K USEABLE I.E. 4K FOR I/O PAGE) 
TSU05 MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 
CONSOLE TERMINAL 

PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SVS VERSION 54 OR LATER) 
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXOPO 



1.3 RELATED DOCUMENTS AND STANDARDS 
DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 

1. CHQUS XXDP» USERS MANUAL i DOCUMENT NUMBER AC-FMOE MC 
DATE: 14 JULY 1960. 

2. TSUOS TRANSPORT SUBSYSTEM USER'S GUlOEt DOCUMENT NUMBER EKTSUOS-UG-OOl 
DATE: AUGUST 1962 

3. TSUOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK TSU05-TM 001 
DATE: AUGUST 1962 

4. TSUOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL i DOCUMENT NUMBER EK TSUOS IN 001 
DATE: AUGUST 1962 



1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

FUNCTIONAL PDP-11 CENTRAL PROCESSOR AND MEMORl 
FUNCTIONAL CONSOLE TERMINAL 
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXOPO 
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1.5 ASSUMPTIONS 

ALL HAROUARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPORTED. 

THE TAPE BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 
OF TAPE. 

CVTSAA AND CVTSBA HAVE SUCESSFULLY RUN. 
2.0 OPERATING INSTRUCTIONS 

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP* USER'S MANUAL (CHQUS). 

?.l COMMANDS 

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP* USER'S MANUAL HAS MORE DETAILS. 



COMMAND EFFECT 



START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (ATTER tC) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP» MONITOR (XXDP* OPERATION ONLY!) 

ADO ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 

CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 

BY THE DIAGNOSTIC • SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE I»rORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 3.S) 



A COMnAND CAN BE RECOGNIZED By THE FIRST THREE CHARACTERS. SO 
YOU MAY. FOR EXAMPLE, TYPE "STA" INSTEAD Of "START". 

2.1.1 OPERATOR C0W1AN0S 



THE TSU05 DIAGNOSTIC IS A POP-ll DIAGNOSTIC SUPERVISOR COMPATIBLE 

PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 

CHQUS XXDP* USERS MANUAL .DOCUMENT NUMBER AC FS48E MC. THE USER ENTRY IS IN QUOTES. 



BOOT THE DIAGNOSTIC MEDIA 



•R VTSC?? 

OIAG. RUN-TIME SERVICES REV 0. APR 79 
CVTSC-A-0 

•***TSUOS LOGIC DIAGNOSTIC**** 

UNIT IS TSUOS 



F i 
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2.2 SWITCHES 

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MOOirY SUPERVISOT OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LECAL CCHHANDS. ALL Of THE LECAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 
IN THE DESCRIPTIONS BELOW. A DECIHAL NUMBER IS DESIGNATED Bt "OODOO". 

SWITCH EFFECt 



/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS. FOR EXAMPLE - /TESTS:l!5:7-lO. 
THIS LIST WILL CAUSE TESTS l.S.7.«.9.10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 

/PASS:DOOOO EXECUTE DDOOO PASSES (00000 • 1 TO 64000) 

/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE OESCftlGEO 
IN SECTION 2.5. 

/E0P:DOOOO REPORT EM) OF PASS MESSAGE AFTER EVERY 

00000 PASSES ONLY. (00000 - 1 TO 64000) 

/UNITS.-LIST TEST/AOO/DROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE - /UNITS:0:S: 10 12 
USE UNITS 0.5.10.11.12 (UNIT NU^VERS - 0-6S) 

EXAMPLE OF SWITCH USAGE: 

START/TESTS: I -5/PASS: lOOO/EOP: 100 

THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 T»«OUGH 5 WILL BE 
EXECUTED. 2) ALL UNITS WILL TESTED 1000 TIMES AND 9) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY. 
FOR EXAMPLE. TYPE -/TES:l-5" INSTEAD OF -/TESTS: I -5'. 

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED Bv EACH 
COMMAND. 

TESTS PASS FLAGS EOP UNITS 

START XX XX X 

RESTART XX XX X 

CONTINUE X XX 

PROCEED X 

DROP X 

ADO X 

PRINT 

DISPLAY X 

FLAGS 

ZFLAGS 

EXIT 

2,5 FLAGS 



FLAGS ARE USED ^ ) SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERRO»<. ALL FLAGS ARE CLEARED AT S'ARTUP AND REMAIN 
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CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SUITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. UITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS. 
NO COMMANDS AFFECT THE STATE OF THE FLAGS i THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 



FLAG EFFECT 



HOE HALT ON ERROR - CONTROL IS RETURNED TO 

RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

lER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 

FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE. NUMBER. PC. TEST AND UNIT) 

IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 

CALLED BY PRINTX MACRO'S) 

PRI DIRCC1 MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE '^LL" ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR IIMIBIT STATISTICAL REPORTS (DOES NOT 

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 

STATISTICAL REPORTING) 
lOR INHIBIT PROGRAM DROPPING OF L«<ITS 

ADR EXECUTE AUTOOROP CODE 

LOT LOOP ON TEST 



*ERROR MESSAGES ARE OCSCRIBCO IN SECTION 5.1 



SEE THE XXOP* USER'S MANUAL FOR MORE DETAILS ON FLAGS. tOU MAT 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE. 
TO CAUSE THE PftOGRAH TO LOOP ON ERROR. INHIBIT ERROR REPORTS 
AND TYPE A "BELL" ON ERfKIR. YOU NAT USE THE FOLLOWING STRING: 

/FLAGS :LOE:IER:BOE 



2.4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTED. THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE I»rORMATION Bt TYPING "CHANGE HW (L) ?" 
YOU MUST ANSWER "Y" AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN "PRELOADED" USING THE SETUP UTILITY (SCE 
CHAPTER 6 OF THE XXOP* USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A "Y THE RUNTIME SERVICES MILL ASK FOR THE NUMBER 
0*" UNITS (IN DECIMAL). 

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR). THE PROGRAM WILL ISSUE THE "CHANGE MW?" QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 

ON A N' (NO) RESPONSE TO THE "CHANGE HW?" QUESTION. THE DIAGNOSTIC WILL 
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RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 
TSBA/TSOe - 172520. VECTOR - 224 



ON A "Y" (YES) RESPONSE TO THE QUESTION. THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE. IF PRESENT. LOCATED TO THE LEFT OF THE QUESTION HARK IS THE 
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "(D)" IN A QUESTION INDICATES THAT A OECIHAL NUHBER IS 
REQUIRED AS A RESPONSE. AN "(0)" INDICATES AN OCTAL NUHBER IS BEING 
SOLICITED. AN "(L)" INDICATES THAT A LOGICAL RESPONSE IS TO BE HADE: 
Y" FOR YES. "N" FOR NO. 

» UNITS (0) ? <ENTER THE NUMBER OF n7455 CONTROLLERS 
PRESENT TO BE TESTED> 

UNIT 0 

DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 

TS8A/TSDB REGISTER > 

VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 

VECTOR > 

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE UNITS?" QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER. BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOWS: 

UP TO 4 TSU05 CONTROLLERS PER POP-11 AND UP TO 2 DRIVES PER CONTROLLER 

2.5 SOFTWARE QUESTIONS 

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 

OR CONTINUE COMMAND. THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 

PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 

OPERATION MOOES. YOU WILL BE PROMPTED BY "CHANGE SU (L) ?' 

IF YOU WISH TO CHANGE ANY PARAMETERS. ANSWER BY TYPING 

"Y* . THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPHCS). 

THE FOLLOWING QUESTIONS ARE ASKED ON A START. RESTART. OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 

CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 

INHIBIT ITERATIONS (L) N ? <TYPE "Y" TO PREVENT MULTIPLE 

ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS. > 

2.6 EXTENDED P TABLE DIALOGUE 
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WHEN YOU ANSWER THE HARDWARE QUESTIONS , YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 
A HASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES. THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 

TO ILLUSTRATE A MORE EFFICIENT METHOD. SUPPOSE YOU ARE TESTING 
A DEVICE. THE XYH. SUPPOSE THIS DEVICE CONSISTS OF 
A CONTRX MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q -FACTOR. THIS Q -FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XYll WITH EIGHT UNITS. 

9 UNITS (D) ? a<CR> 

UNIT I 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE « (0) ? 0<CR> 
Q-FACTOR (0) 0 ? 1<CR> 

UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE • (0) ? 1<CR> 
Q-FACTOR (0) I ? 0<CR> 

UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE • (0) ? 2<CR> 
Q-FACTOR (0) 0 7 «CR> 

UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE • (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ♦ (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE * (0) ? 6<CR> 
Q FACTOR (0) 0 ? 1<CR> 

UNIT 6 

CSR ADDRESS (0) 160000<CR> 

SUB -DEVICE « (0) ? 7<CR> 
U FACTOR (0) 1 7 <CR> 
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NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 

AS YOU CAN SEE FROM THE ABOVE EXAMPLE. THE HARDWARE PARAMETERS 

DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 

NOT VERY EFFICIENT. 

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET'S BUILD THE SAME TABLE USING THE PJLTIPLE SPECIFICATION 
FEATURE. 

« UNITS (D) ? 8<CR> 
UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ♦ (0) ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1.0<CR> 

UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE « (0) ? 2-S<CR> 
Q-FACTOR (0) 0 ? 0<CR> 

UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ♦ (0) ? 6.7<CR» 
Q-FACTOR (0) 0 ? 1<CR> 

AS YOU CAN SEE IN THE ABOVE DIALOGUE. THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS. TWO ENTRIES 
ARE BUILT SINCE TWO SUB -DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS. FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 

CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE. SUB -DEVICES 
2. 3. 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES. THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 

* UNITS (D) ? 6<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ♦ (0) ? 0-7<CR> 
Q-FACTOR (0) 0 ? 0. 1 .0. . , . 1 . 1<CR> 

AS YOU CAN SEE FROM THIS EXAMPLE. NULL REPLIES (COMMAS ENCLOSING 
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A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLr, 
2.7 QUICK START-UP PROCEDURE (XXDPO 
TO START-UP THIS PROGRAM: 

1. BOOT XXOP* 

2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE 
IS A CLOCK) QUESTIONS 

S. TYPE "R NAME". WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 

4. TYPE "START" 

5. ANSWER THE "CHANGE HW" QUESTION WITH "Y" 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "CHANGE SW" QUESTION WITH "N" 

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROK MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL. BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE "lER" FLAG IS SET (SECTION 2.3). 
THE GENERAL ERROR MESSAGE IS OF THE FORM: 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 
ERROR MESSAGE 

.WHERE; NAME - DIAGNOSTIC NAME 

TYPE - ERROR TYPE CSYS FATAL. DEV FATAL. HARD OR SOFT) 
NUMBER - ERROR NUMBER 

UNIT NUMBER - 0 - N (N IS LAST UNIT IN PTABLE) 
TST NUMBER • TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX « ADDRESS OF ERROR MESSAGE CALL 

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE "lER" OR "IBR" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE "lER", "IBR" OR "IXR" FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER 1HE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 
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BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 



REPRESENTS DIFFERENT TrPES 



ERROR MESSAGE EXAMPLE 1 

THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 
TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE 
INCORRECT REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 
DATA. 



TST: 016 FIFO EXERCISER TEST 

CVTSC HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 

TAPE BUS SIGNALS IN WORD #6: - DESIGNATOR <BIT 
PARERR<15> lEOT <12> IFMK <9> IR0Y<6> IRWD<2> 
IRESV2<14> IIDENT<11> IHER <6> I0NL<5> IFBY<1> 
IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<0> 

TAPE BUS SIGINALS IN WORD #9: 
DATMIS<7> ILW<6> 0UTR0Y<5> INRDY<4> 
MESSAGE BUFFER ADDRESS - 047352 
MESSAGE BUFFER CONTENTS: 
WORD PO EXPO: 100020 RECV 

RECV 



WORD «1 EXPO: 
WORD 42 EXPO: 
WORD «3 EXPO: 
WORD M EXPO: 
WORD P5 EXPO: 
WORD #6 EXPO: 
WORD 47 EXPO: 
WORD M EXPD: 
WORD 49 EXPD: 



000012 
000000 
000010 
000000 
000000 
000000 
000000 
070217 
000074 



100020 
000012 
RECV: 000000 
RECV: 000010 



RECV: 
RECV: 
RECV: 
RECV: 
RECV: 



000000 
000000 
000000 
000000 
070217 



XOR: 000000 

XOR: 000000 

XOR: 000000 

XOR: 000000 

XOR: 000000 

XOR: 000000 

XOR: 000000 

XOR: 000000 

XOR: 000000 



RECV: 000034 XOR: 000040 



ERROR MESSAGE EXAMPLE 2 

THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE. IN THIS 
INSTANCE A UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 
MAY BE DEFECTIVE. 

CVTSC HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 

TSSR ■ 100214 

TSSR BITS SET: SC.SSR 

TERMINATION CLASS CODE - UNRECOVERABLE ERROR 

PACKET ADDRESS - 026420 

PACKET WORD 4 • 140010 

PACKET WORD 4 - 000010 

PACKET WORD 4 > 000000 

PACKET WORD 4 - 000024 
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ERROR MESSAGE EXAMPLE 3 

THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 



CVTSC HRO ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPO: 000312 RECV: 000112 XOR: 000200 



4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS. THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE "EOP" SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 

SUCCESSFUL RUN EXAMPLE (POP -11) 



DR>STA/FLA:PNT:HOE 
UNITS (D) ? 1 
UNIT 0 

DEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR CO) 224 ? <CR> 
CHANGE SW (L) ? N<CR> 



THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
SWITCHES ON WHICH ARE "PRINT EACH TEST NBR AS EXECUTED" AND 'HALT ON 
ERROR". 

TST: 001 INITIALIZE M TEST 

TST: 002 OFF-LINE REJECT AND REWIND TEST 

TST: 003 BASIC WRITE DATA TEST 

TST: 004 BASIC READ DATA TEST 

TST: 005 SPACE RECORDS TEST 

TST: 006 REREADS TEST 

TST: 007 WRITE DATA RETRY TEST 

TST: 008 WRITE TAPE MARK TEST 

0 ERRORS 

NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT 
HAS BEEN SPECIFIED WITH THE "/PASS:" SWITCH. 

PROGRAM RUN TIMES 

THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THESE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A PDP-11 
PROCESSOR WITH A LA34 CONSOLE. 
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SEQ OlS 



THE PROGRAh RUNS IN TUO MOOES i NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE. EACH TEST IS RUN ONCE. WITH NO ITERATIONS. IN THE 
DEFAULT HOOE EACH TEST IS REPEALED BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUN^. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A "Y" (YES). 

TEST N/I NUMBER OEF 

NUMBER SECS. ITER SECS. 

1 5 10 7 

2 3 6 5 

3 36 250 212 

4 60 300 240 

5 60 300 240 

6 120 360 240 

7 120 600 480 

8 22 90 66 



THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 6 IN ONE COMMAND: 

Q.V. 7 MINUTES 

DEFAULT 31 MINUTES 



5.0 DEVICE INFORMATION TABLES 

WHENEVER THE PROGRAM IS STARTED. VIA THE STA(RT) COMMAND. 
THE SUPERVISOR REQUESTS THE FOLLOWING P -TABLES PARAMETER 
CHANGES: 

CHANGE HU (L) ? 

« UNITS (D) ? <ENTER THE NUMBER OF M74S5 CONTROLLERS 
PRESENT TO BE TESTED > 

UNIT 0 

DEVICE ADDRESS CO) 172520 ? <ENTER THE ADDRESS OF THE 

TSBA/TSDB REGISTER > 

VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 

VECTOR > 

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE UNITS?" QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER. BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 



IN ADDITION. ON A START. RESTART OR CONTINUE THE SUPERVISOR 
REQUESTS CHANGES TO THE SOFTWARE OPERATING PARAMETERS. AS 
FOLLOWS: 



USER OOCI.VCNTATION 
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SEQ 014 



CHANGE SU (L) ? 

INHIBIT ITERATIONS (L) N ? 



6.0 TEST SUMHARIES 



TEST 1: INITIALIZE #4 TEST 

THIS TEST VERIFIES THAT UNITING INTO THE TSSR RETURNS THE 
CONTRXLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 
(I.E. LOOPBACK ENABLED. FORCING WRONG PARITY. INVERTING SENSE OF 
EXTEM)ED FEATURES SUITCH. ETC.) 

TEST 2: OFF-LINE AND REJECT REWIND 

THIS TEST VERIFIES BASIC TAPE -NOTION COTtMNO DECODING AlO BASIC 
OPERATION OF THE REWIND POSITIONING COMNAND. IT DOES NOT 
NECESSARILY DEnONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN 
ARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY 
DCCK THE OPERATION OF THE REWIND COMIAND SINCE TMEY HUST 
TYPICALLY REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST 
SEQUENCES. 

TEST S: BASIC WRITE DATA 

THIS TEST VERIFIES THAT THE WRITE DATA CNEXT) COTtlAND OPERATES 
PROPERLY. UP TO T»C POINT OF C»CCKINC THAT TNE DATA WAS ACTUALLY 
WRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS 
LIMITED TO VERIFYING THAT THE CO MM AN D TERMINATED CORRECTLY WITH 
THE CORRECT REGISTER. MESSAGE BUFFER AND RAH CONTENTS. 

CAUTION 

THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINESC 16-21) 
ARE ONLY C»CCKEO WHEN RUMIINC ON A POP -11 SYSTEM WITH MORE THAN 
120K WORDS OF MEMORY! 



TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 

THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE 
COMMAIOS OPERATE PROPERLY. VARIOUS COMBINATIONS OF 000 AM) EVEN 
DATA BUFFER BOUNDARIES. RECORD SIZES (UP TO MK BYTES IF MEMORY 
SPACE IS AVAILIABLE). AND BYTE-SWAP CONTROL ARE USED. THIS TEST 
OF COURSE. FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY 
READING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER 
TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH 
LONG. RECORD LENGTH SHORT. READ REVERSE AT 60*. ILLEGAL DATA 
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BUFFER ADDRESSES. ILLEGAL COOES IN THE HODE FIELD OF THC BASIC 
READ COMMAND. AND DATA BUFFERS IN NON-EXISTANT MPMORY. 

CAUTION 

THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINESC16-21) 
ARE ONLY CHECKED UHEN RUNNING ON A POP- 11 SYSTEM UITH MORE THAN 
126K UORDS OF MEMORY! 

TEST 5: SPACE RECORDS 

THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 
RECORDS REVERSE POSITION COMMANDS OPERATE PROPERLY IMEN SPACING 
OVER NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS 
IS VERIFIED IN A SUBSEQUENT TEST. T« BASIC WRITE DATA 1EST 
SHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL 
RESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH 
OF T»S SUBTESTS. T»C TAPE IS ENTIRELY WRITTEN WITH RECORDS 
OF VARYING SIZES AND DATA CONTENT i THE FIRST 4 BYTES OF EACH 
RECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER 
EACH SPACING OPERATION. THE TAPE POSITION IS VERIFIED Bv READING 
T»C NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH 
THE EXPECTED RESULT. 

TEST 6: REREADS 

THIS TEST VERIFIES THAT T»€ REREAD PREVIOUS A»0 REREAD fCXT 
COHMAIOS OPERATE PROPERLY. VARIOUS COTQINATIONS OF ODD AND EVEN 
DATA BUFFER BOUNDRIES. RECORD SIZES (UP TO 64K BYTES IF MEMORY 
SPACE IS AVAILIABLE). AM) SYTE-SUAP (SUP) AND OPPOSITF. (OPP) 
COMITOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS ON 
EXCEPTIONAL OR ERROR CONDITIONS i RECORD LENGTH LONG. RECORD 
LENGTH SHORT. READ REVERSE AT MT. ILLEGAL DATA BUFFER ADDRESSES. 
AM) DATA BUFFERS IN MONEXISTCNT MEMORY. 

• .••••••j^* 

T»€ LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES( 16-21) 
ARE ONLY C»€CKED ItCN RUNNING ON A POP -11 SYSTEM WITH MORE THAN 
12BK WORDS OF MEHORV* 



TEST 7: WRITE DATA RETRY 

THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE. ERASE. WRITE DATA) 

TEST 8: WRITE/READ TAPE MARK 

THIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES 
PROPERLY. IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE 
BY CHECKING THAT THE READ AND SPACE RECORDS COMMANDS DETECT THE 
TAPE rARK. IN ADDITION. SINCE WRITE TAPE MARK IS THE FIRST 
SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED. IT IS VERIFIED 
THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATEC PROPERLY AND THAT 
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FORMAT COMMANDS WITH ILLEGAL MODE COOES ARE REJECTED. 

7.0 MAINTENANCE MlSTORt 

REVISION A - JUNE 1963 



E2 
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SEQ 017 



I 

Z 

5 000000 
4 
10 

11 000000 

12 

15 

19 

20 

21 

22 002000 
002000 

23 
24 

25 
26 
2"' 
28 
29 



002000' 



30 002000 




31 002000 




002000 




002000 


103 


002001 


132 


002002 


124 


002003 


123 


002004 


103 


002005 


000 


002006 


000 


002007 


000 


002010 




002010 


101 


002011 




002011 


060 


002012 




002012 


000000 


002014 




002014 


001217 


002016 




002016 


112510' 


002020 




002020 


112642' 


002022 




002022 


002146' 


002024 




002024 


002156' 


002026 




002026 


112736' 


002030 




002030 


000000 


002032 




002032 


000000 


002034 




002034 


000000 


002036 




002036 


000000 



TITLE TbV2 - PROGRAM HEADER 
.SBTTL PROGRAM HEADER 
.PSECT ABS 



.MCALL SVC 
£VC 

.ENABLE LC 
.NLIST BEX.CND 
.ENA8L AHA 
.-2000 
.-.♦^000 
BGftlOO TSV2 



I INITIALIZE SUPERVISOR MACROS 



III086 

TSV2:: 

riME PROGRAM MEAOER IS THE INTERfACE BETl^EN 
, THE DIAGNOSTIC PROGRAM AND THE SI^RVISOR. 

i - - 

POINTER BGNSU.BGNSFT.BGNAU.BGNDO.BGNRPT 
HEADER C2TSC.A,0.655..0 
LINAME-t .DIAGNOSTIC NAME 

.ASCII /C/ 

.ASCII /r/ 

.ASCII /T/ 
.ASCII /S/ 



•REVISION LEVEL 
|0 

iNUMBER or UNITS 
iLONGEST TEST TIME 
iPOINTER TO M.U. QUeS. 
tPOINTER TO S.W. QUES. 
,PTR. TO OEF. M.U. PTA8LE 
,PTR. TO S.U. PTABLE 
lOIAG. END ADDRESS 
•RESERVED FOR APT STATS 

•DIAGNOSTIC TYPE 
I APT EXPANSION 



.ASCII 


/c/ 


.8TTE 


0 


.BYTE 


0 


.BYTE 


0 


LIREV: : 




.ASCII 


/A/ 


LIDCPO: : 




.ASCII 


/o/ 


LIUNIT:: 




.UOM) 


0 


LI^INL: • 




.WORD 


65S. 




L«HARO 


.UOM) 


L»SPCP:i 


LISOFT 


.UORO 


LIMPTP: : 




.uom> 


LtHU 


LISPTP:: 


LISU 


.WORD 


L»LAOP:: 




.UORD 


LILAST 


USTA:: 




.UORD 


0 


L«CO: I 




.UORD 


0 


LIDTYP: J 




.UORO 


0 


LIAPTm 




.UORO 


0 



F2 
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32 
33 
34 
35 
36 
37 
38 



HEADER 




002040 




002040 


002124' 


002042 




002042 


000000 


002044 




002044 


000000 


002046 




002046 


000000 


002050 




002050 


003 


002051 


003 


002052 




002052 


000000 


002054 


000000 


002056 




002056 


000000 


002O60 




002060 


003372' 


002062 




002062 


022524' 


002064 




002064 


000000 


002066 




002066 


000000 


002070 




002070 


022212' 


002072 




002072 


022310' 


002074 




002074 


000000 


002076 




002076 


005400' 


002100 




002100 


104035 


002102 




002102 


000000 


0021C4 




002104 


021416' 


002106 




002106 


022476' 


002110 




002110 


022416' 


002112 




002112 


021406' 


002114 




002114 


000000 


002116 




002116 


000000 


002120 




002120 


000000 



SEQ 018 



L IOTP: I 

LlPRIO:i 

LIENVI: 

LIEXPl: 

LIMREV: 

LIEF:: 

LISPC: 
LIOEVP 

Linepp 

LIEXP4 
LIEXP5 
LIAUT: 
LIOUT: 
LILUN: 
LtOESP 
LILOAO 
LIETP: 
LllCPi 
LICCPi 
LIACP: 
LIPRT: 
LITEST 
LIOLT: 
LIMIHE 



.WORD 

.WORD 

.UORO 

.WORD 

.BYTE 
.BYTE 

.WORD 
.UORD 

.WORD 

.WORD 

.WORD 

.UORO 

.UORO 

.UORO 

.UORO 

.UORO 

.UORO 

EMT 

.UORO 

.UORO 

.WORO 

.UORO 

.UORO 

.UORO 

.UORO 

.UORO 

.S8TTL 



iPTR. TO OISPATCH TABLE 
L IDISPATCH 

lOXAGNOSTIC RUN PRIORITY 

0 

•FLAGS DESCRIBE HOW IT UAS SETUP 

0 

I EXPANSION UORO 

0 

I SVC REV AND EDIT # 
CIREVISION 
C'EDIT 

tOIAG. EVENT FLAGS 

0 
0 



0 

LIOVTYP 
LIRPT 
0 
0 

LIAU 
LlOU 
0 

LIOESC 
EILOAO 

0 

LIINIT 
LICLEAN 
LIAUTC 
LIPROT 
0 
0 
0 

OISPATCH TABLE 



I POINTER TO DEVICE TtPE LIST 
tPTR. TO REPORT CODE 



iPTR. TO ADD UNIT CODE 
iPTR. TO DROP UNIT CODE 
iLUN FOR EXERCISERS TO FILL 
•POINTER TO OIAG. DESCRIPTION 
•GENERATE SPECIAL AUTOLOAD EMT 
•POINTER TO ERRTBL 
iPTR. TO INIT CODE 
•PTR. TO CLEANUP CODE 
iPTR. TO AUTO CODE 
(PTR. TO PROTECT TABLE 
•TEST NUMBER 
•DELAY COUNT 
•PTR. TO NIGH MEM 



I THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS 0*" EACH TEST. 
J IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
• - - 



TSV2 - PAOGRAM, HEADER MACRO HU 
DISPATCH TABLE 

39 

40 002122 

002122 000010 
002124 

002124 025306* 
002126 024422' 
002130 027102' 
002132 034252' 
002134 046S06' 
002136 055434* 
002140 075006' 
002142 105044* 

41 
42 
43 
44 
45 
46 
47 
48 
49 

SO 002144 

002144 000003 

002146 

002146 

51 

52 002146 172520 

53 002150 000224 

54 002152 000200 

55 002154 
002154 

56 
57 
58 
59 
60 
61 
62 

63 002154 

002154 000004 

002156 

002156 

64 

65 002156 000000 

66 002160 000000 
67 

68 

69 002162 000017 

70 002164 000310 

71 002166 
002166 

72 

73 002166 
74 
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DISPATCH 8 

.UORO 8 
L IDISPATCH: : 

.WORD Tl 

.UORO T2 

.WORD T3 

.WORD T4 

.WORD TS 

.WORD T6 

.WORD T7 

.UORO T8 



.SBTTL DEFAULT HARDUARE P- TABLE 

!*THE DEFAULT HARDUARE P-TA8LE CONTAINS DEFAULT VALUES OF 
I THE TEST -DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
J IS IDENTICAL TO THE STRUCTURE OF THE RUN- TIME P TABLE. 

' BGNHU OFPTBL i DEFAULT HARD -P- TABLE 

.UORO LIOOOO-LIHU'2 

LtHU:: 
OrPTBL:: 



LIOOOO: 



.UORO 
.UORD 
.UORO 
EW)HU 



172520 

224 

PRI04 



I 1ST (OF 2) REGISTERS. 
I INTERRUPT VECTOR 
t INTERRUPT PRIORITY. 



.SBTTL SOFTUARE P- TABLE 



TthE SOFTUARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
I PARAtCTERS THAT CAN BE CHANGED BY THE OPERATOR. 

I - - 



LtSU:: 
SFPTBL ! 



BGNSU SFPTBL 
.UORD LlOOOl-LISU/2 



TRANSTST;: .UORO 0 

NOITS:: .UORD 0 



LERRMAX:: .UORD 15. 

GERRHAX:: .UORD 200. 

ENDSU 

L 10001: 



I ENABLE TEST OF TRANSPORT(S) IF 

I INHIBIT ITERATION OPTION. 

; ... 0 • ITERATE. 

J ...HZ • INHIBIT ITERATE. 

; LOCAL (PER TEST) ERROR Lir«IT 

t GLOBAL (PER UNIT) ERROR LIMIT 



F.NOMOD 



TSV3 GLOeAL AREAb 
SOFTWARE P TABLE 

7 

8 
IS 
19 

20 002166 
002166 

21 
22 
23 
24 
25 
26 
27 
26 
29 

33 002166 



ICOOOO 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000040 
000037 
000036 
000035 
000034 
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H2 



SEO 020 



.TITLE TSVS - GLOBAL AREAS 
.SBTTL GLOBAL EQUATES SECTION 



TSV3:: 



BGNHOO TSVS 



.SBTTL GLOBAL EQUATES SECTION 



t THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
t ARE USED IN MORE THAN ONE TEST, 
t - - 



EQUALS t GET STANDARD EQUATES. 

! BIT DIFINTTIONS 

BIT15— 100000 
BIT14" 40000 
Bins— 20000 
BIT12— 10000 
BITll— 4000 
BITIO— 2000 
BIT09— 1000 
BIT06— 400 
BITOT— 200 
BIT06— 100 
BITOS— 40 
BIT04— 20 
BITOS— 10 
BITOe— 4 
BITOl— 2 
BITOO— 1 

BIT9— BIT09 

BITS-* BIT06 

BIT?" BIT07 

BIT6— BIT06 

BirS— BITOS 

BIT4— BIT04 

BITS— BITOS 

BIT2— BIT02 

BITl— BITOl 

BIT0-* BITOO 

1 EVENT FLAG DEFINITIONS 

I EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM C0MML>4ICATICN 



EF, START-- 52. 

EF. RESTART-- 31. 

EF. CONTINUE" 30. 

EF.NEU— 29. 

EF.PUR— 26. 
i 
i 



J START COMMAND WAS ISSUED 
5 RESTART COMMAND UAG ISSUED 
{ CONTINUE COMMAND WAS ISSUED 
I A NEW PASS HAS BEEN STARTED 
J A POWER-FAIL/POWER UP OCCURRtO 



TSV5 GLOBAL AREAS 
GLOBAL EQUATES SECTION 



000340 
000500 
000240 
000300 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 

34 

35 002166 



000250 

177572 
177574 
177576 
172516 
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12 



SEO 021 



I PRIORITY LEVEL OEFINITIONS 

PRI07-- 340 
PRI06-- SOO 
PRI05»» 240 
PRI04-- 200 
PRI05-- 140 
PRI02-- 100 
PRIOl"- 40 
PRIOO"' 0 

ioPERATOR FLAG BITS 



EVL-- 
LOT-" 
AOR-« 
lOU" 
ISR" 
UAM-- 
BOE"" 
PNT" 
PRI" 
IXE" 
IBE" 
lER" 
L06" 
■I06" 



4 

10 
20 
40 
100 
200 
400 
1000 
2000 
4000 
10000 
20000 
40000 
100000 



KTll 

.S6TTL MEMORY MANAGEMENT OEFINITIONS 
t*KTll VECTOR ADDRESS 
HMVEC- 2S0 

t*KTll STATUS REGISTER ADDRESSES 
SRO- 177572 
SRI- 177574 
SR2- 177576 
SRS- 172516 
IF NB 

i*USER -I" PAGE DESCRIPTOR REGISTERS 
UIPORO- 177600 
UIPORl- 177602 
UIP0R2- 177604 
UIPDR3- 177606 
UIP0R4- 177610 
UIP0R5- 177612 
UIPDR6- 177614 
UIPDR7- 177616 
IF NB 

i*USER "D" PAGE DESCRIPTOR REGISTORS 

UDTDRO- 177620 

UOPDRl- 177622 

UDPDR2- 177024 

U0P0R5- 177626 

U0P0R4- 177630 

UDPDR5- 177632 

UDP0R6- 177634 

UDP0R7- 177636 



I DEFINE MEMORY MANAGEMENT REGISTERS 
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SEQ 022 



.Er^DC 
I ♦USER 
UIPARO 
UIPARl 
UIPAR2 
UIPARS 
UIPAR4- 177650 
UIPAR5- 177652 
UIPAR6- 
UIPAR7- 
.IF NB 
I *USER 
UDPARO- 
UDPARl^ 
U0PAR2- 
UDPAR3* 
UDPAR4- 
U0PAR5- 
U0PAR6- 
UDPAR7- 

• ENDC 

• ENDC 

. V NB 

i*SUPERVISOR "I 
SIPORO- 172200 



'I" PAGE ADDRESS REGISTERS 
177640 
177642 
177644 
177646 



177654 
177656 

"D" PAGE ADDRESS REGISTERS 
177660 
177662 
177664 
177666 
177670 
177672 
177674 
177676 



PAGE DESCRIPTOR REGISTERS 



SIPORl' 
SIPDR2' 



172202 
172204 



SIP0R5- 172206 
SIP0R4- 172210 



SIPORS' 
SIPDR6' 



172212 
172214 



SIP0R7* 172216 
. IF NB 

i*S(JPERVISOR "D" PAGE DESCRIPTOR REGISTERS 

SOPORO- 172220 

SOPOR 1- 172222 

S0P0R2- 172224 

SOPORS- 172226 

S0P0R4- 172230 

SOPORS- 172232 

S0P0R6- 172234 

S0P0R7> 172236 

.ENDC 

(•SUPERVISOR "I" PAGE ADDRESS REGISTERS 
SIPARO- 172240 
SIPARl- 172242 
SIPAR2- 172244 
SIPAR3- 172246 
SIPAR4- 172250 
SIPAR5- 172252 
SIPAR6- 172254 
SIPAR7- 172256 
• IF NB 

I •SUPERVISOR "D" 
SOPARO- 172260 
SOPARl- 172262 
S0PAR2- 172264 



PAGE ADDRESS REGISTERS 
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SEQ 023 



59 
40 
41 
42 
43 
44 
45 
46 
47 



172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 



172340 
172342 
172344 
172346 
172350 
172552 
172554 
172356 



S0PAR3- 172266 
S0PAR4- 172270 
S0PAR5- 172272 
SDPAR6- 172274 
SDPAR7- 172276 
.ENOC 
.ENOC 

i*KERNEL "I" PAGE DESCRIPTOR REGISTERS 

KIP(WO> 172500 

KIPORl- 172502 

KIP0R2- 172504 

KIP0R5- 172506 

KIP0R4- 172510 

KIPORS- 172512 

KIP0ft6- 172514 

KIP0R7- 172316 

IF NB 
t*KERNEL "0" PAGE 

DESCRIPTOR REGISTERS 
KDPORO- 172520 
KDPORl- 172522 
K0P0R2* 172524 
KDP0R5- 172526 
KDP0R4- 172550 
KDPORS- 172552 
K0PDR6- 172554 
KDP0R7- 172556 
.ENDC 

t*KERNEL "I" PAGE AOORESS REGISTERS 

KIPARO- 172540 

KIPARl- 172542 

KIPAR2- 172544 

KIPAR5- 172546 

K1PAR4- 172550 

KIPAR5" 172552 

KIPAR6- 172J54 

KIPAR7- 172556 

.IF NB 

i*KERNEL "0" PAGE ADDRESS REGISTERS 

KOPARO- 172560 

KOPARl- 172562 

KDPAR2* 172564 

KDPAR5- 172566 

K0PAR4> 172570 

KDPAR5- 172572 

K0PAR6* 172574 

K0PAR7- 172576 

.ENDC 



SBTTL TSU05 REGISTER AND PACKET DEFINITIONS 



000004 



( SOME GENERAL EQUATES. 



ERRVEC' 



J POINTER TO ERROR VECTOR TOR BUS TIME OUT. 



L2 
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TTIVEC-- 
TTICSR-- 
TTIBFR-- 
BOVPCR-* 



SEQ 024 



48 


000060 


49 


177560 


50 


177562 


51 


177520 


52 




53 




54 




55 




56 




57 


100000 


58 


040000 


59 


020000 


60 


010000 


61 


004000 


62 


002000 


63 


001400 


64 


000200 


65 


000100 


66 


000060 


67 


000016 


68 




69 




70 




71 




72 




73 




74 




75 




76 




77 


100000 


78 


040000 


79 


020000 


80 


010000 


81 


004000 


82 


002000 


83 


001000 


84 


000400 


85 


000200 


86 


000100 


87 


000040 


88 


000020 


89 


000010 


90 


000004 


91 


000002 


92 


000001 


93 




94 




95 




96 




97 




98 




99 


100000 


100 


040000 


101 


020000 


102 


017375 


103 


000400 


104 


000002 



60 

177560 
177562 
177520 



I INTERRUPT VECTOR FOR CONSOLE 
I BUS ADDRESS OF CONSOLE INPUT 
I CONSOLE INPUT DATA BUFFER 
I BDVll PAGE CONTROL REGISTER 



INPUT 



iBIT DEFINITIONS FOR TSSR REGISTER 
t - 



SC- 

BIE- 

SCE- 

RMR- 

NXM- 

NBA- 

HIADOR- 

SSR- 

OFL- 

FATERR- 

TERCLS- 



i ♦ 
i 



Bins 

BIT14 

BIT13 

BIT12 

BITll 

BITIO 

BIT9!BXT8 

BIT7 

BIT6 

BIT4iBIT5 
BIT3!BIT2!BIT1 



I SPECIAL CONDITION 
iBUS INTERFACE ERROR 
(SANITY CHECK ERROR 
I MODIFICATION REFUSED 
iNONEXISTANT MEHORY ERROR 
iNEEO BUFFER ADDRESS 
I EXTENDED ADDRESS BITS 
I sue SYSTEM READY 
iOFF LINE BIT 

t FATAL TERMINATION ERROR COOES 
I TERMINATION COOES 



(BIT DEFINITIONS FOR EXTENDED STATUS (AGISTER 0 
i(XSTO) 
I 

t - 

XSOTMK- BIT15 
XSORLS- BIT14 
XSOLET- BIT13 
XSORLL- BIT12 
XSOULE- BITll 
XSONEF- BITIO 
XSOILC- BIT9 
XSOILA- BITS 
XSOMOT- BIT7 
XSOONL- BIT6 
XSOIE- BITS 
XSOVCK- 81 T4 
XSOPED- BITS 
XSOWLK- BIT2 
XSOeOT* BITl 
XSOEOT- BITO 



jTAPE MARK DETECTED 
i RECORD LENGTH SHORT 
(LOGICAL END OF TAPE 
(RECORD LENGTH LONG 
(URITE LOCK ERROR 
(NON EXECUTABLE FUNCTION 
(ILLEGAL COMMAND 
(ILLEGAL ADDRESS 
(TAPE IN MOTION 
(TRANSPORT ON LINE 
(INTERRUPT ENABLE 
(VOLUME CHECK BIT 
(PHASE EHCOOEO DRIVE 
(WRITE LOCKED 
(BEGINNING OF TAPE 
(END OF TAPE 



tBIT DEFINITIONS FOR EXTENDED STATUS REGISTER I 
t(XSTl) 



Xl.DLT 

XI. SPARE- BIT14 
XI. COR 
Xl.MBZ 
Xl.RBP 
Xl.UNC 



« BIT15 (DATA LATE 

(NOT USED 

BIT13 (CORRECTABLE DATA ERROR 

BIT12»BIT11«BIT10»BIT9»BIT7»BIT6»BIT5»BIT4»BIT3»BIT2»BIT0 ; ALWAYS 0 
BITS (READ BUS PARITY ERROR 

BITl (UNCORRECTABLE DATA OR HARD ERROR 
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TSU05 REGISTER AND PACKET OEFINlttONS 



M2 



SEQ 025 



105 
106 
107 
108 
109 
110 
111 
112 

lis 

114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 



100000 
040000 
035400 
002000 
000200 
000100 
000077 
000007 



177400 
000200 
000100 
000040 
000020 
000010 
000006 
000001 



100000 
040000 
020000 
017400 
000577 



000006 
000006 



000000 
000000 
000001 
000001 



iBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
i(XST2) 



X2.0PM 
X2.RCE 
X2. SPARE 
X2.UCF 
X2.EXTF 
X2.BUFE 
X2.REV 
X2.UNIT 

IbIT DEFINITIONS FOR 
iCXST3) 



BIT15 lOPERATION IN PROGRESS (TAPE HOVING) 

BIT 14 I RAM CHECKSUM ERROR 

BIT13*BIT12«BIT11*BIT9»BIT8 iNOT USED BY TSU05 (ALUAYS-0) 
BITIO lURITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 

BIT 7 I IF WRITE CHAR CMD THEN - EXTENDED FEATURES ENABLED 

BIT6 I IF URITE CHAR CMD THEN - BUFFERING ENABLED 

000077 tIF WRITE CHAR CMD THEN • MICROCODt REVISION LEVEL 

BIT2*BIT1*BIT0 iIF GET STATUS THEN - CURRENTLY SELECTED UNIT NO. 



EXTENDED STATUS REGISTER 3 



xs.Moe 

X3. SPARE 
XS.OPI 
X3.REV 
X3.TRF 
XS.DCK 
XS.HBZ 
XS.RIB 

tBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
;CXST4) 



- 177400 

• BIT7 

- BIT6 

■ BITS 
" BIT4 

■ BITS 
•BIT2«BIT1 

• BITO 



(MICRO-DIAGNOSTIC ERROR CODE 
J NOT USED BY TSU05 
lOPERATION INCOMPLETE 
{REVERSE 

I TRANSPORT RESPONSE FAILURE 
♦DENSITY CHECK 
iNOT USED ALWAYS 0 
I REVERSE INTO BOT 



X4.HSP 
X4.RCE 
X4.TSM 
X4.MBZ 
X4.WRC 



I* 

I 



BIT15 iHiGH SPEED 

BIT14 jRETRY COUNT EXCEEDED 

Bins I TRANSPORT SPECIAL MODE 

BIT12*BIT11<BIT10»BIT9»BIT8 :NOT USED ALWAYS 0 

000577 {WRITE RETRY COUNT FIELD 



iTSSR TERMINATION COOES (BIT 0-2) 
I 

t - 



TSREJ- 3*2 
UNREC- 6 



I COMMAND REJECTED 
i UNRECOVERABLE ERROR 



I ♦ 



(DEVICE REGISTER OFFSETS 
t 

; - 

TSBA-- 0 
TSDB-- 0 
TSBAH-- 1 
TSDBH-- I 



tTSDB/TSBA REGISTER 
tTSDB/TSBA REGISTER HIGH BYTE 



N2 
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TSU05 REGISTER AND PACKET DEFINITIONS 

162 000002 TSSR-- 2 iTSSR REGISTER 

163 000003 TSSRH-- S i TSSR REGISTER HIGH BYTE 
164 

165 t* 

166 : TSOB ADDRESS BIT DEFINITIONS 
167 

168 000003 A1716 - BIT1*BIT0 {ADDRESS BITS 17:16 ARE IN 1:0 

169 

170 !♦ 

171 { COMHAND DEFINITIONS 
172 

173 000017 P.GETSTAT - 17 jGET STATUS 

174 000013 P.INIT - 13 t INITIALIZE 

175 000012 P.CONTR(X. - 12 i CONTROL COMMANDS 

176 000011 P, FORMAT ■ 11 iFQRMAT 

177 000010 P. POSITION • 10 .POSITION 

178 000006 P.URTSUB - 6 i SUBSYSTEM URITE 

179 000005 P. URITE • 5 tURITE 

180 000004 P.URTCHAR - 4 i URITE CHARACTERISTICS 

181 000001 P. READ • 1 tREAD 
182 

183 ;* 

184 I COMMAND PACKET HEADER UORD BIT DEFINITIONS 

185 I- 

186 100000 P.ACK - BIT15 sBUFFER AVAIL FOR CONTROLLER 

187 040000 P.CVC - BIT 14 {CLEAR VOLUME CHECK 

188 020000 P.OPP " BIT13 {REVERSE SEQUENCE OF DATA BITS 

189 010000 P. SUB - BIT12 {SWAP BYTES IN MEMORY 

190 007400 P. MODE - BIT11!BIT10!BIT9!BIT8 {EXTENDED COMMAND MODE FIELD 

191 000200 P. IE - BIT7 {INTERRUPT ENABLE 

192 000140 P.FMT* BIT6!BIT5 {PACKET HEADER TYPE (ALUAYS>^0) 

193 000037 P.CMD • 37 (MAJOR COMMAND FIELD 

194 (* 

195 s CONTROL COMMAND MODE COOES 

196 :- 

197 000000 PC. RELEASE - 0*256. {RELEASE BUFFER 

198 000400 PC.REUIND - 1*256. {REUIND 

199 001000 PC.NOOP - 2*256. {NO-OP 

200 002000 PC.IEREU - 4*256. {REUIND IMMEDIATE INTERRUPT 

201 002400 PC. ERASE • 5*256. {SECURITY ERASE 
202 

203 :* 

204 , CONTROLLER RAM DEFINITIONS 

205 {- 

206 000167 RMCH8EG • 167 {CHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 

207 000200 RMCHEND - 200 {CHARACTERISTICS 10 DATA END RAM ADDRESS 

208 000201 RMPKTBEG" 201 (COMMAhO PACKET BEGIN RAH ADDRESS 

209 000210 RMPKTEND- 210 {COMMAND PACKET END RAM ADDRESS 

210 000215 RMMSGBEG- 215 {MESSAGE BUFFER BEGIN RAM ADDRESS 

211 000234 RMMSGENO- 234 {MESSAGE BUFFER END RAM ADDRESS 

212 t* 
215 { 

214 {REGISTER DEFINITIONS IN THE MESSAGE BUFFER 

215 { 

216 {- 
217 

218 000006 XSTO" 6 {EXTEK'OEO STATUS REGISTER 0 (UORO 4) 



B3 
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219 
220 
221 
222 
225 
224 
225 
226 
227 
22e 
229 
250 
251 
252 
255 
254 
255 
256 
257 
258 
259 
240 
241 
242 
245 
244 
245 
246 
247 
248 
249 
250 
251 
252 
255 
254 
255 
256 
257 
258 
259 
260 
261 
262 
265 
264 
265 
266 
267 
268 
269 
270 
271 
272 
275 
274 
275 



SEQ 027 



000010 


XSTl-. 




lEXTENOEO STATUS REGISTER 1 (WORD 5) 


OOOOIP 


XST2-- 10. 




lEXTENOEO STATUS REGISTER 2 (UORD 6) 


000014 


XST3-- 12. 




1 EX TENDED STATUS REGISTER 5 (UORD 7) 


000016 


XST4-* 14. 




{EXTENDED STATUS REGISTER 4 (WORD 6) 




t * 

1 OFFSETS TO UORO LOCATIONS IN PACKET DEFINITIONS 


000002 


PKLOU 


• 2 


iLOU ORDER CHARACTERISTIC DATA POINTER 


000004 


PKHI 


> 4 


iHICH ORDER CHARACTERISTIC DATA POINTER 


000006 


PKBCNT 


- 6 


iNUMBER OF BYTES IN DATA PACKET 


000010 


EXBCNT 


•10 


iNUHBER OF BYTES IN EXTENDED DATA PACKET 




loATA PACKET OFFSETS FOR URITE SUBSrTEH C0»t1AND 


000000 


BSELO 


- 0 


iBYTE 0 


000001 


BSELl 


• 1 


tBYTE 1 


000002 


SCL2 


' 2 


lUORO 2 


000004 


SELOATA - 4 


lUORO 5 




iBSELO SELECT CCKS FOR URITE SUBSrSfEM COMNANO 


000000 


PU.NOP 


• 0 


iNO-OP 


000001 


pu.rorah 


• I 


iREAO RAH 


000002 


PW.UTRAH 


• 2 


lURITE RAM 


000003 


PW.RFIFO 


• 5 


iREAO FIFO 


000004 


PW.UFIFO 


• 4 


lURITE FIFO 


000005 


PU.ROSTAT 


• 5 


iREAO STATUS 


000006 


PU.UCTL 


" 6 


lURITE TAPE CONTROL 


000007 


PM.UFHT 


- 7 


lURITE TAPE FORMAT 


000010 


PW.tMXSC 


• 10 


t URITE MISCELLANEOUS 


000011 


PU.UNPR 


• 11 


lURITE *t>n CONTROL 


000020 


PU.D22 


■ 20 


lOO niCROTEST 22 


000021 


PW.Oll 


• 21 


lOO niCROTEST 11 


000022 


PU.OIS 


• 22 


iDO niCROTEST 15 


000023 


PU.N01511 


• 25 


1 DISABLE NICROTEST 11 AND 15 


000024 


Py.ROEXT 


• 24 


iREAO EXT. TAPE STATUS (NOT SUPPORTED Bt ALL TRANSPORT 




IbSELI COOES FOR WRITE 


TAPE CONTROL 


000200 


UC.IFAD 


• 8IT7 


iIFAO • FORMATTER ADDRESS 


000100 


UC.IOTAO 


- BIT6 


itTADO - TRANSPORT ADDRESS BIT 0 


000040 


UC.IITAO 


• BIT5 


iITAOl • TRANSPORT ADDRESS BIT 1 


000020 


WC.I5RESV 


• BIT4 


|IR€SV5 ■ RESERVED #5 


000010 


UC . IREU 


• BITS 


tIREU • REWIND 


000004 


UC . IRWU 


- BIT2 


tIRUU REWIND AND '<JULOf^ 


000002 


WC.IFEN 


• BITl 


lIFEN - FORMATTER ENABl E 


000001 


UC . IGO 


• BITO 


iGO 



C3 
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S£Q 02a 



4? 76 




1 ♦ 




^77 




iBSELl COOES 


FOR URITE FORMAT 


278 
279 




1 - 




000200 


UF . IMISP 


• BIT7 


260 


000100 


UF.IURT 


• B1T6 


281 


000040 


UF . IREV 


- BITS 


282 


000020 


UF.IUFM 


- BITfl 


285 


000010 


UF.IEOIT 


• BIT3 


284 


000004 


UF . lERASE 


■ BIT2 


285 


000002 


UF.ISRESV 


■ BITl 


286 


000001 


UF . I4RESV 


• BITO 


287 








288 








289 








290 




Ibseli cooes 


FOR URITE MISCEL 


291 








292 


000200 


MS. EXT 


• BIT7 


293 


000020 


MS.RSFIFO 


• BIT4 


294 


000010 


HS.RSTAPE 


• BITS 


295 


000006 


nS.ATTN 


- BXT2!aiTl 


296 


000001 


ns.RSO 


- BITO 


297 




1 ♦ 




298 




1 nS.ATTN SUBCODES 


299 




t - 




500 


000000 


MSA. NOP • 0*2 


501 


000002 


nSA.VOL - 1*2 


502 


000004 


nSA.NRAM- 2*2 


305 


000006 


nSA.FRAH- 5*2 


504 




t ♦ 




505 




1 WXTE SUBSYSTEM URITE NPR 8 


506 








507 


000200 


r^.IR 


• BIT? 


508 


000100 


r^.OUT 


• BIT6 


509 


000040 


r^.LOOP 


• BITS 


510 


000020 




- BIT4 


511 




1 ♦ 




512 




t READ STATUS MESSAGE BUFFER 


515 




1 - 




514 








515 


000200 


S2.0IM 


• BIT7 


516 


000100 


S2.ILU 


- BIT6 


517 


000040 


S2.0UTRDT 


• BITS 


518 


000020 


S2.INR0Y 


• BIT4 


519 


000010 


S2.ATIMR 


- BITS 


520 


000004 


S2.BTir« 


• BIT2 


521 


000005 


S2.UN0EF 


- BIT1»BIT0 


522 


100000 


Sl.PARIN 


• BIT15 


525 


040000 


S1.I2RESV 


> 8ITI4 


3c4 


020000 


Sl.IlRESV 


• BIT15 


525 


010000 


Sl.IEOT 


• BIT12 


526 


004000 


Sl.IIOeNT 


• BITll 


527 


002000 


Sl.ICER 


• BITIO 


528 


001000 


Sl.IFW 


• BIT9 


529 


000400 


S1.I»<R 


- BIT8 


550 


000200 


SO.ISPEEO 


- BIT7 


551 


000100 


SO.IROY 


- BIT6 


552 


000040 


SO.IONL 


• BITS 



I IMISP - MIGM SPEED 

iIURT - URITE 
I IREV REVERSE 

lIUFM • URITE FILE MARK 
iIEOIT EDIT 
I lERASE ERASE 

iIRESVS • RESERVED #S 

tIRESVA - RESERVED M 



I INVERT SENSE OF EXTENDED FEATURES SUITCH 
iRESCT FIFO AND INPUT PARITY ERRORR 
•RESET TAPE STATUS IN 2 FLIP-FLOPS 
{ATTENTION TRIGGER FIELD 
iRESET TIMER A,8 THEN DELAY TIMES IN SEL2 



tNO-OP (NOTMINC TRIGGERED) 
{SIMULATE ON-LINE/OFF-LINE TRANS Ii>' ION 
iFORCE NON-FATAL RAM ERROR (FORCES ERRCOOE 54) 
{FORCE FATAL RAM ERROR (CAUSES SCE TO SET) 

BSELl BIT DEFINITIONS 

{INTERRUPT REQUEST (0-1 TRANSITION) 
(TAPE DATA DIRECTION OUT (0- IN) 
{ENABLE TRANSPORT LOOPBACK 

(MITE CORRECT PARITY (SET-0 TO URITE URONG) 



UORO BYTE 2 



(UNDEFINED) 
UORO te BYTE 



UORO M BYTE 0 



DATA IN MISS 
ILU H 
our RDt H 
IN ROY H 
TIMER A FLAG H 
TIMER B FLAG H 

PAR IN H 

IRESV2 
IRESVl 
lEOT L 
IIOENT M 
ICER M 
IFrK H 
IHER H 
ISPEED H 
IRDY L 
lONL L 



D3 



17<S4 



SEQ 029 



333 






33^ 






555 


000004 


CA TDLJA a otto Tfti ^ 1 

IHWU * dI !«: t IHWO L 


556 


000002 


CA TPQV m QTTi TCD^ I 

3U.lrDT * bill 1 IrbT L 


33 • 


OOOOOl 


• Ir 1 ■ DlIU i Ir f 1 U 


330 




1 ♦ 


33'» 




• liaTmic MAD nFrTMATTmaC 
1 uniDUd nw utr inn i lunsi 


3^U 




t • 


3* I 


1 7AdAA 
1 rU^OO 


MMDOb 1 70900 
1 P W^V" 1 » vcw 


542 






345 






34# 






3^D 






34o 






34 f 




1 ♦ 


XAA 




• CAUP ItFlk^OAi QPflQ 1 Tn 
t dMvc ucnc^fH* ncu9 i i u ^ 


XAQ 

34^ 




1 • 


3DU 






3Dl 






3Dtf: 






3D3 






3>4 






3D3 




1 ♦ 


3^ 




MAPon TO rnorp au pdood 


3D / 




1 • 


3DO 






3D^f 




hM TCT 


3f>V 




• llr nur ul3lfH-L» .nLl^l 


30X 




1 TCT 


30c 




TC n UOTCCD 
• Ir D TiU 1 Daft 


303 




MOW TCCDf 01 .DFAO TCCQ 


30* 






30D 




rrtfk/^CD roDf^PD • Tc rnorPD cpt9 n pawf 

nUV r UKCtK ♦ r UWUCH |13 l^UCH >c I f lUCnVC 


3tK> 




Okie tai^ aBO tc vCC 


3f> / 




M TCT 


300 




TTC ktfVT 1 TCTAl 1 1 TCT 


307 




1 TCT 


Y7A 












3 rtf 






X7X 

d r O 




• MAroo TO rnpcp am pvtt to AUOTO cfpttom ttppattomc 


3 f ^ 




UTI 1 CVTT TO A 1 AQPl Tf TOPrPP TC MPflATTUP 
1 MILL CAI 1 lU 1 LHPCL Ir r UKLCH 1^ nCO^IlVC 


3 r D 




CO TO rrttrc pppodc amo fvtt om i pddod cft 






rrwrpD to 177777 


Off 




to PfKir^P PPOOPC AMD TTFPATTOMC CPT TOPf^FP TO 1 


O fO 






Y7Q 




MArPO rOPrPVTT TAfX 






NLIST 


381 




IIF NOF LISTALL. .NLIST 


382 




• LIST 


383 




MOV rORCER.FORCER |IS FORCER NEGATIVE? 


384 




BMI TAG iBR IF TES 


385 




.NLIST 


386 




.IIF NOF LISTALL. .LIST 


387 




.LIST 


388 




.ENDH 


389 




i » 
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SEQ 030 



S90 
391 
39^ 
395 
394 
395 
396 
397 
598 
599 
400 
401 
402 
405 
404 
405 
406 
407 
406 
409 
410 
411 
412 
415 
414 
415 
416 
417 
418 

419 002166 
420 
421 
422 
425 
424 
425 
426 
427 
428 
429 
4S0 
451 
452 
455 
454 
455 



000000 



000000 



I MACRO TO INCREMENT ERROR COUNTS 

!hacro NEXT.ERRNO 
•NLIST 

(ii.IIF NOF LISTALL, .NLIST 

ERRN0-ERRN0*1 
iii.Iir NOT LISTALL. .LIST 
.LIST 
.ENOM 

I MACRO TO PERFORM XOR 
I - 

.MACRO XOR A.B 
MOV A.-(SP) 
BIC B.(SP) 
BIC A.B 
BIS (SP)».B 
.ENOM 

EN-0 I INITIALIZE ERROR NUMBER 

.SBTTL FORCER * FORCE ERROR FLAG 



i THE FOLLOWING LOCATIONS HAY BE PATCHED BY THE USER 
I TO OBTAIN THE RESULTS OESCRIBEO FOR EACH. 

i 



FORCER:: 



0 I FORCE TYPE ALL HARD ERRORS CTHE ONES CALLED 

1 - BY THE MACRO "IFERROR"). AN ERROR NEED NOT 
I - EXIST. JUST ASSUME AND TYPE THE MESSAGE. 



.SBTTL GLOBAL DATA SECTION 

I THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
lIN MORE THAN ONE TEST, 
t - - 

tTHE FOLLOUING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
■SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 



456 


002170 


000000 


EPRTSU: : 


.UORO 


0 


1 PRINT SWITCH 


437 


002172 


000000 


UNITN: : 


.WORD 


0 


tUNIT • UNDER TEST. 


458 


002174 


000000 


QVP* : 


.UORD 


0 


1 QUICK VERIFY FLAG. 


459 002176 


000000 


CSRAOOR:: 


.WORD 


0 


i ADDRESS OF CSR FOR CURRENT DEVICE 


440 


002200 


000224 


IVEC:: 


.WORD 


224 


{INTERRUPT VECTOR 


441 


002202 


000200 


IPRI:: 


.WORD 


PRI04 


1 INTERRUPT PRIORITY. 


442 


002204 


000000 


TSTCNT:: 


.WORD 


0 


1 NUMBER OF TESTS RUN IN THIS PASS 


445 


002206 


000000 


LOOPCNT : : 


.WORD 


0 


tREMAINING ITERATION COUNT FOR TEST 


444 


002210 


000000 


DEVCNT:: 


.WORD 


0 


(NUMBER OF DEVICE UNDER TEST 


445 


002212 


000000 


FATFLG:: 


.WORD 


0 


iSET IF FATAL ERROR IS DETECTED IN TEST 
iSET IF TAPE INTERRUPT WAS RECEIVED 


446 


002214 


000000 


INTRECV:: 


.WORD 


0 



TSV5 GLOBAL AREAS 
GLOBAL DATA SECTION 



447 002216 

448 002220 

449 002222 

450 002224 

451 002226 

452 002250 

453 002232 

454 002272 

455 002274 

456 002276 

457 002300 
456 002302 

459 002304 

460 002306 

461 002310 

462 002312 

463 002456 

464 002622 
465 

466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 

483 002742 

484 002742 

485 002744 

486 002746 

487 002750 

488 002752 

489 002754 

490 002756 

491 002760 

492 002762 

493 002764 

494 002766 

495 002770 

496 002772 

497 002774 

498 002776 

499 003000 

500 003002 

501 003004 

502 003006 

503 003010 



000000 
000000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
177777 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
177776 
177775 
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SEQ 031 



c A 1 r cn : ; 




A 
\/ 






unpn 


n 

V 


IDvrrcrf crMH9i»c sMXiun bw w'^^r )1*upi 


C Af w z s 


unpn 


o 


.pypcrTPn DAM nATA PnO PDAitfUi T DmiTT4tf 




unpn 


o 

V 


■ pprPTwPn PAM nATA rno poampitt pmiTTikK 


FQQHT • • 


unpn 


V 


tHTHM AnnPP QQ HPMnPY PPPrV) 




unpn 




ii nu Annof^QQ HPHnov ppprv) 




Rl KU 




I DATA READ ^ROM RAM PACKET OR MESSAGE BUT AREA 




unpn 


A 

v 


tPAM nATA (;T7P PnP PPAHPirT PrklTTMP 


prwHIADD* • 


UOPD 


0 


iPPrPTWPn RIJ^PFP HTHM AHnPP^^ 


RCVLOAOD: : 


.WORD 


0 


f RECEIVED BUFFER LOW ADDRESS 


COUNT: : 


.WORD 


0 


iTEST COUNT PATTERN 


DATA: : 


.WORD 


0 


iTEST DATA 


TSTFLAG:: 


.UORO 


0 


iTEST FLAG WORD 


TSTPTR: : 


.WORD 


0 


iTSTBLK POINTER 


PRMNO: : 


.WORD 


0 


1 PRINT ROUTINE TEMP 

1 EXPECTED MESSAGE BUFFER DATA 


EXPHSG: : 


.BLKB 


100. 


RECMSG:: 


.BLKB 


100. 


{RECEIVED MESSAGE BUFFER DATA 


TMPBFR:: 


.BLKB 


80. 


1 TEMPORARY STORAGE FOR PRINT 



.SBTTL TSTBLK • TEST DATA TABLE 



I ♦ 

!thIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 

I IN SEQUENCE THE DATA IS: 
t 
I 
I 
I 
t 
1 
I 

I- 



ALL ZEROS 
ALL ONES 
WALKING ONES 
WALKING ZEROS 

ALTERNATING ONES AND ZEROS 



TSTBLK: 



.WORD 


0 


.WORD 


177777 


.WORD 


BITO 


.UORO 


BITl 


.UORO 


BIT2 


.UORO 


BIT3 


.UORD 


81T4 


.WORD 


BIT5 


.UORD 


BIT6 


.UORO 


BIT7 


.UORO 


6ir8 


.UORD 


BIT9 


.UORO 


BITIO 


.UORO 


BITll 


.UORD 


BIT12 


.WORD 


8IT13 


.UORD 


6IT14 


.UORD 


BIT15 


.UORO 


tCBITO 


.UORD 


tCBITl 



I ALL ZEROS 
lALL ONES 

I DATA FOR UALKING ONES 



I OAT A FOR UALKING ZEROS 



G5 



1 77771 
J. r r r r ^ 


. WORD 


♦CBIT2 


1 7771*7 


'.WORD 


♦CBIT5 


1 77757 


iuORD 


tCBIT4 


1 77757 


.WORD 


tCBITS 


177677 


• WORD 


tCBIT6 


1 77577 


iuORO 


tCBIT7 


177577 


iuORO 


tCBITS 


176777 


.WORD 


tCBIT9 


175777 


.WORD 


tCBITlO 


175777 


.WORD 


^CBITll 


167777 


.WORD 


tCBITl? 


157777 


.WORD 


tCBITlS 


157777 


.WORD 


tCBITl4 


077777 


.WORD 


tCBITlS 


125252 


.WORD 


125252 


052525 


.WORD 


052525 


003052' 


TBLEND--. 






.S8TTL 


GLOBAL 1 



I 



DUMMY! 



TSVS - GLOBAL AREAS MACRO MlllS 01 F-EB 84 17:54 
TSTBLK - TEST DATA TABLE 

504 005012 

505 005014 

506 005016 

507 005020 
506 005022 

509 005024 

510 005026 

511 005030 

512 003032 
515 003034 

514 005036 

515 003040 

516 005042 

517 003044 

518 005046 

519 003050 
520 
521 
522 
523 
524 
525 

527 003052 

528 003062 
529 
530 
531 

532 003102 
533 

534 003104 

535 

536 003106 

537 003110 

538 003112 

539 003114 

540 003116 

541 003120 

542 003122 
543 
544 

545 003124 

546 003126 

547 003150 

548 003132 

549 003134 

550 003136 

551 003140 
55i: 003142 

553 003144 

554 0C3146 

555 003150 

556 003152 

557 003154 

558 003154 

559 003156 

560 003160 



SEQ 032 



I ALTERNATING ONES. ZEROS 

I ALTERNATING ONES. ZERO OPPOSITE FROM ABOVE 



I STORAGE FOR DEVICE REGISTERS 



000000 100000 000000 
000000 000000 000000 



000000 

000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
002000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 



0.100000.0.0 tOUMMr DEVICE REGISTERS... 
0.0.0.0.0.0.0.0 

J...FOR MULTI-UNIT CHECKOUT, 



DUFLG: : 


.UORO 


0 


NQOEV:: 


.UORO 


0 


TEMPI! : 


.WORD 


0 


TEMP2: : 


.WORD 


0 


XXCOMM: : 


.WORD 


0 


FREE I : 


.WORD 


0 


FRESIZ:: 


.UORD 


0 


FREEHI: >UORD 


0 




KTFLG: : 


.UORO 


0 



KTENABLE: : 


.WORD 


0 


NXMFLG: : 


.WORD 


0 


NXMLO: : 


.WORD 


0 


NXMHI: : 


.WORD 


0 


T23A: : 


.WORD 


0 


T236: : 


.WORD 


0 


T3BFLG: : 


.WORD 


0 


PST32W: : 


.WORD 


2000 


SIFLAG: : 


.WORD 


0 


BADDAT: : 


.WORD 


0 


GDDAT : : 


.WORD 


0 


LOOPFL : : 


.WORD 


0 


CTA8:: 






CTABMrs 


.WORD 


0 




.WORD 


0 




.WORD 


0 



{"DROPPED UNIT- FLAG. 
(INHIBITS CODE IN "CLEAN-UP". 
;FLAG TO SAY NO DEVICE. 

tSOME TEMP LOCATIONS. 

iXXDP» COMM BLOCK POINTER. 
1 1ST FREE MEMORY ADDRESS... 
t...AND SIZE CIN WORDS). 
I LAST WORD IN FREE SPACE 

tKTll. MEM AVAIL FLAG - 

; - .WORD 0 - <24K OR NO KT • 

NZ • >24K AND KT. 
I SET BY TEST ROUTINES TO FLAG >28K UNDER TEST 
{SET IF WE CAN TEST CLEARED OTHERWISE 
tNXM LO ADDRESS BITS 
sNXM HI ADDRESS BITS FOR QAL'S 16-21 
s PROCESSOR TYPE FLAG 
I PROCESSOR TYPE FLAG 6 
I TEST 3B FLAG tO 

}32W BLOCK ADDRESS FOR 32K START 

I ACTUAL DATA 
t EXPECTED DATA 

I CONFIGURATION TABLES, 
t CONFIG WORK. 



TSV3 GLOBAL AREAS MACRO H1115 
GLOBAL ENVIRONMENT STORAGE 



561 005162 

562 003164 
565 003166 
564 

565 
566 
567 
568 
569 
570 
571 
572 

573 005166 

574 005566 

575 

576 003370 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 003372 
003372 
003572 

592 
607 
608 
609 

610 005400 
003400 
003400 



000000 
177777 



000000 
000000 



124 



123 



125 



052 



052 



052 



■\6 
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SEQ 033 



.WORD 0 

,UORO 1 I END OF MEM TABLE. 

CTABE:: 

ERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 



0 

100000 
lOXXXX 
160000 
160001 
14XXXX 



UNIT NOT TESTED 

UNIT ONLINE. NO ERRORS 

UNIT ONLINE. ENCOUNTERED XXXX ERRORS 

UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 

UNIT DROPPED. NOT IDLE AT START 

UNIT DROPPED. ENCOUNTERED XXXX ERRORS 



ERTABL: 
ERTABE: 

SKIPT; 



.BLKU 
.UORD 



64. 

0 



.UORO 
.SBTTL 



ll-SKIP SUBTEST 0-NO SKIP OF SUBTEST 



GLOBAL TEXT MESSAGES 



I THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS. 
I MESSAGES. AND ASCII INFORMATION THAT ARE USED IN 
} MORE THAN ONE TEST. 
I - - 



!nMCS of devices SUPPORTED 



DEVTYP «TSU05> 
L»OVTVP:t 

.ASCIZ /TSUOS/ 
.EVEN 



ItEST DESCRIPTION 

*" DESCRIPT < 

LIOESC* * 

".ASCIZ /***• TSU05 OIAG PART 3 
.EVEN 



TSUOS OIAG PART 5 



- CHK CABLES -TRANSPORT IF ERR 
CHK CABLES -TRANSPORT IF ERR *«**/ 



618 
















619 
















620 
















621 










s ♦ 






622 










iBIT TO ASCII CONVERS 


623 










»- 






624 
















625 


003472 


003532' 


005555' 


003541* 


TSSRBIT: 




.WORD 


626 


003512 


003573' 


005577' 


003603' 






.WORD 


627 


003532 


125 


105 


000 


Hi 


.ASCIZ 


•sc 


628 


003555 


102 


111 


105 


2t: 


.ASCIZ 


'BIE' 


629 


005541 


125 


103 


105 


3t: 


.ASCIZ 


•SCE' 


630 


005545 


122 


115 


122 


4$! 


.ASCIZ 


•RMR' 


631 


003551 


116 


130 


115 


5$: 


.ASCIZ 


•NXM* 


652 


005555 


116 


102 


101 


61 s 


.ASCIZ 


'NBA' 



1I.2I.3>.4».5».6>.7I.8> 
9$.10l.llt.l2t.l3l.l4l.l5t.l6t 



TSV5 GLOBAL AREAS 
GLOBAL TEXT MESSAGES 



633 003561 

634 003566 

635 003573 

636 003577 

637 003603 

638 003610 

639 003615 

640 003622 

641 003627 

642 003634 
64S 

644 003642 

645 003675 

646 003730 

647 003767 

648 004010 

649 004050 

650 004107 

651 004113 

652 004142 

653 004205 

654 004211 

655 004246 

656 004270 

657 004325 

658 004377 

659 004447 
660 

661 004517 

662 004520 

663 004523 

664 004557 

665 004633 

666 004735 

667 005003 

668 005046 

669 005103 

670 005176 

671 005270 

672 005362 

673 005450 
674 

675 
676 
677 
678 
679 
680 
681 
682 
683 

684 005544 
005544 

685 005544 
005544 
005550 
005554 
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EO 054 



102 


111 


124 


7$: 


.ASCIZ 


•BIT9' 


102 


111 


124 


8$: 


.ASCIZ 


'BIT8' 


123 


123 


122 


9$: 


.ASCIZ 


'SSR' 


117 


106 


114 


lot: 


.ASCIZ 


'OFL' 


102 


111 


124 


111: 


.ASCIZ 


•BITS' 


102 


111 


124 


121: 


.ASCIZ 


•BIT4' 


102 


111 


124 


13>: 


.ASCIZ 


•BITS' 


102 


111 


124 


141: 


.ASCIZ 


'BIT2' 


102 


111 


124 


ISt: 


.ASCIZ 


•BITl' 


102 


111 


124 


161: 


.ASCIZ 


•8IT0' 










.EVEN 




124 


123 


123 


SFIERR: 


.ASCIZ 


•TSSR ERRTR AFTER SOFT INIT* 


124 


123 


123 


SFHERR: 


.ASCIZ 


TSSR ERROR AFTER BUS RESET' 


040 


040 


116 


NXR: 


.ASCIZ 


/ NON-EXISTANT DEVICE REGISTER/ 


045 


101 


040 


NXRX: 


.ASCIZ 


/tfA ADDRESS: «06/ 


045 


101 


040 


TSSX: 


.ASCII 


/HA TS6A.TSSR EXP'Ot «06tfA.K06«N/ 


045 


101 


040 




.ASCIZ 


/tfA TSBA.TSSR REC'O: K06tfA.«06/ 


045 


116 


045 


FUSI: 


.ASCII 


/««tA/ 


040 


040 


125 


USI: 


.ASCIZ 


/ UNEXPECTED INTERRUPT/ 




040 


111 


NSI: 


.ASCIZ 


/ INTERRUPT EXPECTED NOT REt!EIVEO/ 


045 


116 


045 


FNOINTR: 


.ASCII ZftNtfA/ 


040 


040 


116 


NOINTR: 


.ASCIZ 


/ NO INTERRUPT WAS GENERATED/ 


040 


040 


111 


IFAULT: .ASCIZ 


/ INTERRUPT FAULT/ 


045 


101 


040 


INTX: 


.ASCIZ 


/KA CPU PC: MMA TSBA: #06/ 


040 


040 


042 


NOINZT ; 


.ASCIZ 


/ "BUS-INIT" DION T INITIALIZE CONTROLLER/ 


040 


040 


042 


NSINITi 


.ASCIZ 


/ "SOTT-INIT" DIDN'T INITIALIZE THE OPU/ 


040 


040 


042 


BRINITi 


.ASCIZ 


/ "BUS-RESET" DIDNT INITIALIZE THE DPU/ 


000 






NUL: 


.ASCIZ 


// 


045 


116 


000 


NULCR: 


.ASCIZ 


/i«N/ 


045 


101 


040 


EXPGOTi 


: .ASCIZ 


/#A EXP'D: #OWA. REC'O: *06/ 


045 


116 


045 


EXP6T2 


: .ASCIZ 


/#NKA EXP'D: KO^tfA, #06#Ni^A REC'O: MM. 406/ 


045 


101 


040 


0UA012 


! .ASCIZ 


/#A REG(U) HRITTEN TO: #0^ REG(R) READs EXP O: tf06«A. REC 0: 


122 


101 


115 


PKTRAM, 




.ASCIZ 'RAH Contents Do Not rtetch Packet S«nt' 


AAA 


AAA 




SCME: 


".ASCIZ 


/ rONTTG DOEM* T HATCH HFC HA^TFR/ 


127 


122 


111 


URTMSG: .ASCIZ 


'URITE CHARACTERISTICS FaiUd' 


124 


123 


123 


URTERR: .ASCIZ 


'TSSR Incorrect Aft«r URITE Co— nd. Mor* Bits S«t Than SSR' 


124 


123 


123 


ROERR: 


.ASCIZ 


'TSSR Incorract Aft«r READ Co— ^d. Her* Bits S*t Than SSR' 


106 


101 


124 


SCHERR: .ASCIZ 


•FATAL ERROR IN SUBTEST - CHECK TAPE. CABLES. TRANSPORT etc' 


105 


122 


122 


RE TERR 


t .ASCIZ 


'ERROR IN SUBTEST - URITE DATA RETRY FIVE TIMES FAILED' 


045 


116 


045 


NOMEH: 


.ASCIZ 


•«NtfA ***** NO NXn AOORESS--CMMOT TEST NXM TIMEOUT. 










.EVEN 












.SBTTL 


GLOBAL ERROR REPORT SECTION 



«06/ 



I THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 

I CALLS THAT ARE USED IN MORE THAN ONE TEST. 

I ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 

I - - 



NXRERR: 



BGNMSG NXRERR 



013748 
012746 
012746 



003104' 
003767' 
000002 



PRINTX 
MOV 
MOV 
MOV 



«NXRX.NOOEV 
NODEV.-(SP) 
♦NXRX.-CSP) 
♦2.-(SP) 



tNON-EXISTANT DEVICE REGISTER. 
tNOOEV - NEXH ADDRESS. 



J3 



TSV3 GLOBAL AREAS MACRO Ml US 
GLOBAL ERROR REPORT SECTION 



005560 
005562 
005564 

686 005570 

687 005574 
005574 
005574 

688 
689 
690 
691 
692 
695 

694 005576 

695 005600 

696 005602 

697 005604 
696 005610 

005610 
005614 
005620 
005622 
005624 

699 005630 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 005632 

720 005632 

721 005636 

722 005640 
005640 
005642 
005646 
005652 
005654 
005656 

723 005662 

724 005664 

725 005670 

726 005672 



010600 
104415 

062706 000006 
004737 005576' 



104423 



005727 
000000 
001402 

004777 177770 

012746 004520* 
012746 000001 
010600 
104415 

062706 000004 
000207 



010104 
010446 

012746 006315' 
012746 000002 
010600 
104414 

062706 000006 
010400 

004737 015744' 
103410 
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MOV 
TRAP 
ADD 
JSR 

ENOMSG 



SEQ 035 



L 10002: 



I 



TRAP 



SP.RO 
CIPNTX 
•6,SP 
PC. EXTEND 



CIMSG 



( PRINT EXTENSION IF REQUIRED. 



i THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
i TO ANY OF THE ABOVE ERROR SIGNATURES. 



EXTEND: 


TST 


(PC)» 




EXTA: 


0 




) 0 • NO EXTENSION. 




BEQ 


11 






JSR 


PC.6EXTA 


1 APPEND EXTENSION TEXT 


11: 


PRINTX 


«NULCR 


1 PRINT A BLANK LINE 




MOV 


«NULCR.-(SP) 






MOV 


♦l.-(SP) 






MOV 


SP.RO 






TRAP 


CIPNTX 






ADO 


«4.SP 






RTS 


PC 






.S8TTL 


PRITSSft • PRINT 


JSS'i CONTENTS 



I ♦ 

IrOUTINE to DISPLAY THE CONTENTS. AND SIT DEFINITIONS. OF 
•THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
t8Y A MESSAGE PRINTING ROUTINE 



•INPUTS: 



CONTENTS OF TSSR 



(SUBORDINATE ROUTINES: 



( 
i 
> 

I- 

PRITSSR: 



CHKAMB CHECK FOR A»«IGUOUS CONTENTS 



SAVREG 

MOV R1.R4 

PRINTB «TSSRF0R.R4 

MOV R4.-(SP) 

MOV tTSSPFORt-CSP) 

MOV ♦2.-(SP) 

MOV SP.RO 

TRAP C$PNTB 

ADD *6.SP 

MOV R4.R0 

JSR PC.CHKAr« 

BCS 5$ 

PRINTX ♦AMBTSSR 



I SAVE GENERAL REGISTERS 
I SAVE THE TSSR CONTENTS 
iPRINT THE CONTENTS OF TSSR 



I GET TSSR BACK FOR CHKAMB 
I ARE CONTENTS AMBIGUOUS ? 
{BRANCH IF NOT 

iSHOU CONTENTS ARE AMBIGUOUS 
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PRITSSR PRINT TSSR CONTENTS 





A/\dl 70 


UIc /^O 






nuv 




AAi^7Jl 


Ulc f ^O 


AAAAA1 




nuv 




AA^7AD 








MOU 

nuv 




/V\^7AA 


1 AAA 1 ^ 






TOAD 






A4^07A4^ 
UOc fUO 


AAAAAA 




Ann 


fci 


/V%^71 O 


A* AAAT 

AA07AX 
U^C f UO 






MOW 

nuv 


t cO 


IV)^71 A 


A01 476 
WA*t 'O 




DAC 




ftft^70A 
WD r 


AA1 






RPO 
DCU 


r OV 




A1 0700 


Wcocc 




HOU 

nw 


» OA 


\A^O r cO 


01 '>701 


OOX47P* 
WP^ f c 




MOW 


7^^ 


\ISJ^ f Oc 


A0^7AX 
WO f wO 




lOi • 

AW ; 


T^T 
1 O 1 


7XX 


l/vD f O^ 


001 X 








7XA 
/ o*t 


wo f oo 


OOAP41 








7XS 

f oo 


\/VO f ■•V 


0061 OX 






DOI 
nvu 


7^ 

r OQ 


WO f 


1 0X006 
XwOWO 








7X7 

f O r 


wo • ^"t 


At 1 100 
vx AxW 






MOW 
riv V 


7XA 

f oo 


wo f ^o 


A ACwCC 




lit* 
AAV • 


MOWR 
riv w o 


7^Q 


wo f ov 


001 X76 

WAO r O 






RMF 

DHK 


7AO 


wo « o^ 


AXC roc 


000054 177777 

WWO^ A • • • • • 




MOUR 

itV wD 


7A1 


wo f Ow 


OAS7P1 

wo f C A 




iSi • 
AOv • 


1 O 1 


7AP 


WO r Oc 


AA076X 
wv f oo 






RQ 


7AX 

f "to 


WO f 


10^A4P 
AVOV^C 




ISi « 
ADv • 


ri OR 


7A^ 


AA^76A 
VA/O f OO 








~W A»^ 1 ^ 




WO f oo 


01P746 
VAC f^O 


OOP6PP' 

WcOCC 




MOW 




wo f f C 


01 P746 

w Ac ' ^O 


006S06< 
WOOVO 




MOW 




\/VO r r O 


01 P746 
w Ac f ^O 


AOAAOP 
WWVc 




MOW 
nuv 




006002 


010600 






MOV 




wow^ 


1 044 1 
AV^^ AO 






TRAP 




006006 


06P706 
VOc f wO 


000006 




AOO 


» ~ -J 












746 


00601 P 


A1 AAOX 




cw9 : 


MOW 
nuv 


747 


00601 4 


04P70X 
V^c f UO 


1 77761 
A r r f OA 




RTr 
DAV. 


74A 


0060PO 


016XOX 
w AOOVO 


006^76* 
woo r o 




MOW 


749 


0060P4 

wove" 

0060P4 


01 OX46 

w AwO^O 






POTilTY 

Afl 1 A 

MOW 
rivv 




0060P6 


01 P746 
VAC r^O 


OA6X76( 
WOO rO 




MOW 
nvv 




0060XP 


01 P746 

VAC 


WWUc 




nuv 




0060V% 


010600 
VAVOW 






MOW 
nuv 




006040 


10441^ 
AV^^ AO 






TRAP 




00604P 


06P706 

VOC fVO 


wvwo 




AOO 


750 


006046 


010403 






HOV 


751 


0O6OSO 


04P70X 
\^C f vo 


1 7771 7 
A f r r A r 




Rxr 

DAU 


752 


006054 


001416 

AO 






RPQ 
DCU 


755 




006P0X 

WOcVO 






A<R 
#^Off 


754 


006060 


wocvo 






AQR 

f*OW 


755 


00606P 


006P0X 
wocLVO 






AV 


756 


006064 


016X0X 

VAOOVO 


0071 X6* 
W • AOO 




MOW 
■ 'VV 


757 


006070 
006070 


010X46 
vxvo*to 






PR TNT Y 

r n XI 1 A 
MOW 

nuv 




006072 


012746 


006437' 




HOV 




006076 


012746 


000002 




MOV 




006102 


010600 






MOV 




006104 


104415 






TRAP 




006106 


062706 


000006 




ADD 


758 


006112 


042704 


176377 


25$: 


SIC 


759 


006116 


001411 






BEQ 


'60 


006120 








PRINTX 



l< 



SEQ 036 



♦AMBTSSR, -CiP) 

♦l.-(SP) 

SP.RO 

CIPNTX 

»4.SP 

R4.R3 I CONTENTS OF 

«HI AOOR S F ATERR ! TERCLS , RS 
20» 

•TMPBFR,R2 



♦TSSRBIT.Rl 
R3 
15t 

R3 
ISt 

(Rl).RO 

(R0)».(R2)» 

111 

♦ ' ..-l(R2) 
(Rl)» 

lot 

-(R2) 

•TSSO£F,«TMPeFR 

♦T«P8FR.-(SP) 

♦TSSOEF,.(SP) 

•2.-(SP) 

SP.RO 

CIPNTX 

«6.SP 

R4.R3 

•tCTERCLS.RS 

TC0C00(R3).RS 

tTCOASC.RS 

R5.-(SP) 

♦TCOASC.-CSP) 

♦2.-fSP) 

SP.RO 

CIPNTX 

•6.SP 

R4.R3 

ttCF ATERR. RS 

251 

RS 

RS 

R3 

TSFC0O(RS).R3 

♦TFCASC.R3 

R3,-(SP) 

tTFCASC.-CSP) 

♦2.-(SP) 

SP.RO 

CIPNTX 

#6 SP 

•tCHIA00R.R4 
301 

«TEXASC.R4 



TSSR 

I CLEAR ALL MULTIPLE BIT 

iNO BITS ARE SET 
(TEMPORARY ASCII BUFFER 
I ASCII EQUIVALENT OF BITS 
iREMAINING BITS TO CONVERT 
(BRANCH WHEN ALL ARE DONE 
I CLEAR CARRr FOR SHIFT 
I SHIFT NEXT BIT TO CARRY 
(BRANCH IF BIT NOT SET 
(POINTER TO BIT DEFINITION 
(MOVE ASCIZ TO BUFFER 
(MOVE ALL BITS 

(INSERT A COMMA TO TERMINATE 
(POINT TO NEXT DESCRIPTION 
(GET THE REMAINING BITS 
(TERMINATE THE LINE 
(PRINT THE BIT DEFINITIONS 



FIELDS 



(GET THE TSSR CONTENTS 

(CLEAR ALL BUT TERMINATION 

(GET THE TERMINATION CODE MEANING 

(PRINT THE TERMINATION CODE 



(TSSR CONTENTS AGAIN 

(CLEAR ALL BUT FATAL TERMINATION 

(DON'T PRINT IF ZERO 



(ALINE TERMINATION CODE FOR INDEX 
(GET THE FATAL TERMINATION CODE 
(PRINT THE FATAL TERMINATION CODE 



(CLEAR ALL BUT EXTENDED ADDRESS 

(DON' T PRINT IF ZERO 

(PRINT THE EXTENDED ADDRESS BITS 



L3 



TSV3 • GLOBAL AREAS MACRO MlllS 01 -FEB -84 17:54 
PRITSSR PRINT TSSR CONTENTS 



SEQ 037 



006120 
006122 
006126 
006152 
006134 
006136 

761 006142 

762 006146 
006146 
006150 
006154 
006156 
006160 

763 006164 
764 

775 006166 

776 006256 

782 006315 

783 006335 

784 006376 

785 006437 

786 006506 

787 006535 
788 

789 006576 

790 006616 

791 006641 

792 006667 

793 006711 

794 006731 

795 007013 

796 007062 

797 007106 
798 

799 

800 007136 

801 007146 

802 007202 
80S 007213 
804 007257 
805 

806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 



006535' 
000002 



000006 
002170' 



000001 
000004 



501: 



010446 
012746 
012746 
010600 
104415 
062706 
015705 

010546 
012746 
010600 
104415 
062706 
000207 

045 
045 
045 
045 
045 
045 
045 
045 

006616* 
116 
124 
124 
106 
122 
122 
125 
106 



007146' 007202' 007213' TSFCOO: 

111 156 164 It; 

122 145 165 2t: 

102 165 165 5$: 

122 145 163 4ti 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

RTS 



R4. (SP) 

♦TEXASC. -(SP) 

♦2.-(SP) 

SP.RO 

CIPNTX 

♦6.SP 

EPRTSW.R5 

R3 

R3,-(SP) 

•l.-(SP) 

SP.RO 

CIPNTX 

♦4,SP 

PC 



(PRINT MEAAGGE BUFFER ADDRESS 
{PRINT PROPER MESSAGE 



iRETURN TO CALLER 



116 


045 


EPRTl: 


.ASCIZ 


'«IMA *****CHECK CABLES BETWEEN M7455 AND TRANSPORT*^ 


116 


045 


EPRT2: 


.ASCIZ 


•4NKA *****CHECK TRANSPORT*****' 


116 


045 


TSSRFOR: 




.ASCIZ '«MA TSSR - *0e' 


116 


045 


TEXASC: 




.ASCIZ '«NKA ExfruM AddPMS Bits • «06' 


116 


045 


TCOASC: 




.ASCIZ '#NKA T«PMi nation CIms Com ■ *T 


116 


045 


TFCASC: 




.ASCIZ '«NKA Fatal Tarn mat! on Claas Code > «T' 


116 


045 


TSSOEF: 




.ASCIZ '«MA TSSR Bits Sat: «T' 


116 


045 


AMBTSSR: 




.ASCIZ 'MMA TSSR Contanta Ara A«ii6iguous' 










.EVEN 


006641' 


006667' 


TCOCOO: 


.WORD 


lt.2t.5>.4l.5t.6t.7l.8l 


157 


162 


11 




.ASCIZ 


'Normal Tarmi nation' 


145 


162 


21, 




.ASCIZ 


'Tarmination Condition' 


141 


160 


5$ 




.ASCIZ 


'Tapa Statua Alarf 


165 


156 


4t 




.ASCIZ 


'Function Rajact' 


145 


145 


5> 




.ASCIZ 


'RacovarabLa Error - Tapa Position One Racord OoMn' 


145 


145 


6$ 




.ASCIZ 


'Racovarabla Error - Tapa Uaa Net Movad' 


156 


162 


7» 




.ASCIZ 


' Unracovarabla Error* 


141 


164 


8« 




.ASCIZ 


'Fatal ControLlar Error' 










.EVEN 





.WORD 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 



ll.2l.5).4t 

'Intarnal Diagnostic Failure' 
' Ra^ervad* 

'Bus Interface or Sanity Check Error' 
' Reserved ' 



•SBTTL PRIPKT 



PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 



THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 



INPUT: 



RO NUMBER OF WORDS IN PACKET 

R5 HIGH ORDER COMMAND PACKET 

R4 ADDRESS OF COMMAND PACKET 



ADDRESS 



NOTE: R5 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 



M5 



rsVS • GLOBAL AREAS MACRO MlllS Ol-FEB-84 17:54 
PRIPKT - PRINT THE AOORESS/CONTENTS Of COMMAND PACKET 



822 007270 

823 007270 

824 007274 

825 007276 

826 007S02 

827 007S04 

828 007306 

829 007310 

830 007312 

831 007314 

832 007316 
007316 
007320 
007322 
007326 
007332 
007334 
007336 

833 007342 

834 007344 

835 007346 

836 007350 

837 007354 

838 007356 

839 007360 

840 007362 
007362 
007364 
007366 
007372 
007376 
007400 
007402 

841 007406 

842 007410 

843 007412 

844 007414 
845 

846 007416 

647 007454 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 



010005 
005737 
001001 
005003 
010301 
010400 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104414 
062706 
010300 
001404 
010401 
004737 
010004 
005001 
012402 

010246 
010146 
012746 
012746 
010600 
104414 
062706 
005201 
020105 
002762 
000207 

045 
045 



003124* 



PRIPKT : 



lot: 



007454- 
000003 



000010 



017220* 



15t: 



201: 
25t: 



007416' 
000003 



000010 



SAVREG 




iSAVE THE REGISTERS 


MOV 


R0,R5 


iSAVE NO. Or WORDS IN PACKET 


TST 


KTcNABLc 


1 ABOVE 20K IMDCR TEST? 


BNc 


101 


. DD TC VCC 

|BH IF Tcb 


CLR 


D V 

R3 


. CCT ljt^u adacd aaaoccc ta a 
ibcT nlijn UHDcH MDDHcbb TU 0 


nUV 


D V Dl 

no, HI 


.r'ADV UTf^ fWALD AAAOCCC 

} CUPT niun UHUcH MUDHcbb 


nUV 


OJk DA 


mf^T 1 ALICD aaadccc 
IbCl LUI^H AOUHcbb 


ROL 


DA 
RU 


.CUTCT DTT iC TklTA DTT 

ibniri oil lb INIU r. oil 


ROL 


HI 


lANU INTU nlUn UHUCH . 


PHIN 'D 


AOV T AAA D f DA 

#HKTaUO I HI #H4 


.DDTkAT DAPVCT AAADCCC 
I PHIN 1 PMLi>t 1 HUUHCbb 


HUV 


DA f CD > 

H4 , - ^ bH ^ 




HUV 


D1 ^CD> 

HI # bP ^ 




HOV 


AOV T AAA f CD > 




nuv 


#o , - V bP ) 




HUV 


CD DA 

bP fHU 




TD AD 


AOkiTD 
L f PNID 




nUU 


A1 A CP 




nuv 


OX QC\ 


f UC 1 nXUrl UWUCn AMVnC99 


DCUI 




• DD TP MTIT AAOWF 


nuv 


DA D1 
H4 ,H1 




ICD 


or CfTTHAD 

, be 1 nMr* 


• QPTI9 PADA MAPPTMft PflO 1A R 
1 DC 1 \^ rnnfj rwwT'Ai^u r un lo D 


MAW 
HUV 


DA OA 




LLK 


D1 

Hi 


• CAUP unDH Ml MAP D 


MAii 

HUV 


^DA^^ DO 
V H4 ^ ♦ ,H^ 


• CIST DArvPT rnMTPl4TC 


PHIN ID 


AOVTCDM Di DO 
#PIS 1 r HH , H 1 , H^ 


• ODTkiT TMP nATA 

JKHINI inc uniH 


MAU 

HUV 


DO f CD 

H2 , -I bP ^ 




MAU 

HUV 


Dl ^ CD 

HI « -I bP ) 




MOW 






MOV 


#3.-(SP) 




nov 


SP.RO 




TRAP 


CIPNTB 




AOO 


♦10. SP 




INC 


Rl 


(NEXT UORO NUMBER 


CMP 


R1.R5 


iDONE All PACKET UORDS? 


BLT 


2S> 


tLOOP TILL ALL DONE 


RTS 


PC 


(RETURN 



116 
116 



045 
04S 



PKTFRMj 
PKTMH): 



t ♦ 



.ASCIZ 
.ASCI2 
.EVEN 



itNtfA Packet Word ««01«A - «06' 
'MN(A Packet Address - «01«05' 



.SBTTL PRIBXOR - PRINT EXPO. RECV AND XOR BYTE 



(PRINT EXPECTED DATA. RECEIVED DATA. AND XOR QF THE DATA BYTE 
(THIS ROUTINfc IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



» INPUTS: 
t 

t Rl 
I R2 

loOTPOT: 
I 



RECEIVED DATA 
EXPECTED DATA 



N3 



TSV3 - GLOBAL AREAS MACRO M1113 01 -FEB 84 17:54 
PRIBXOR PRINT EXPO. RECV AND XOR BYTE 



SEQ 039 



865 
866 
867 
868 

869 007512 

870 007512 

871 007516 

872 007520 

873 007530 

874 007534 

875 007536 

876 007540 

877 007542 
007542 
007544 
007546 
007550 
007554 
007560 
007562 
007564 

878 007570 

879 007572 
880 

881 007574 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 007642 

904 007642 

905 007646 

906 007650 

907 007660 
007660 
007662 
007664 
007666 
007672 
007676 



I 
i 

i - 

PRIBXOR: 



RO 



XOR OF EXPECTED/RECEIVED DATA 



010203 

012700 177400 
040001 
040002 
040003 

010346 
010146 
010246 

012746 007574' 
012746 000004 
010600 
104414 

062706 000012 

010300 

000207 



SAVREG 




iSAVE THE REGISTERS 


MOV 


R2.R3 


lEXPECTEO DATA 


XOR 


R1.R3 


iFORM THE EXCLUSIVE OR 


MOV 


♦tC<377>.R0 


iBYTE MASK 


BIC 


RO.Rl 


tSAVE LOU BYTE RECV 




R0.R2 


tSAVE LOU BYTE EXPO 


BIC 


R0,R3 


tSAVE LOU BYTE XOR 


PRINTB 


«X0RBF0R.R2.R1.R3 iPRINT THE MESSAGE 


MOV 


R3.-(SP) 




MOV 


Rl.-(SP) 




MOV 


R2.-(SP) 




MOV 


»X0R6r0R.-(SP) 




MOV 


♦4,-(SP) 




MOV 


SP.RO 




TRAP 


CtPNTB 




ADD 


♦12. SP 




MOV 


RS.RO 


tRO HAS XOR ON RETURN 


RTS 


PC 


{RETURN TO CALLER 



045 



116 



045 XORBFOR: 



t * 



.EVEN 



.ASCIZ '1(N«A EXPO: «OS«A RECV: «03«A XOR: «03' 



.SBTTL PRIXOR - PRINT EXPO. RECV AND XOR 



PRINT EXPECTED DATA. RECEIVED DATA. AND XOR OF THE TuO 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



INPUTS: 



Rl RECEIVED DATA 

R2 EXPECTED DATA 



OUTPUT: 



RO XOR OF EXPECTED/RECEIVED DATA 



PRIXOR: 



010203 



010346 
01C146 
010246 

012746 007712' 
012746 000004 
010600 



SAVREG iSAVE THE REGISTERS 

MOV R2.R3 t EXPECTED DATA 

XOR R1.R3 J FORM THE EXCLUSIVE 

PRINTB «X0RF0R.R2.R1.R3 iPRINT THE MESSAGE 

MOV R3,-(SP) 

MOV Rl.-(SP) 

MOV R2,-(SP) 

MOV OXORFOR.-CSP) 

MOV ♦4..(SP) 

MOV SP.RO 



OR 



B4 



TSV3 GLOBAL AREAS MACRO MlllS 01 FEB 04 l?sS4 
PRIXOR PRINT EXPO. RECV AND XOR 



SEO 040 



007700 
007702 
90e 007706 
909 007710 
910 

911 007712 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 007760 

929 007760 

930 007764 
951 

932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 

946 007766 

947 007766 

948 007772 
007772 
007774 
010000 
010004 
010006 
010010 

949 010014 
950 

951 010016 

952 

953 

954 

955 

956 



104414 

062706 000012 

010300 

000207 



TRAP 
AOO 
MOV 
RTS 



CIPNTB 
•12. SP 
RS.RO 
PC 



|R0 HAS XOR ON RETURN 
iRETURN TO CALLER 



045 



116 



045 



XORrOR: .ASCIZ 
.EVEN 



MMA EXPO: «06«A RECV: tf06«A XOR: «06' 
SBTTL PRIEQU • PRINT BIT NLMBERS AS ASCII EQUIVALENT 



ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



I»«»UTS: 



RO OCTAL VAI.UE TO CONVERT 

Rl TABLE OF POINTERS TO ASCII EQUIVALENT 



PRIEQU: 



000207 



SAVREG 
RTS PC 



I SAVE T»C REGISTERS 
I RE TURN TO CALLER 



.SBTTL PRIRAM • PRINT RAM ADDRESS 



PRINT CONTROLLER RAM ADDRESS. 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



I»«>UTS: 



R4 



RAM ADDRESS 



PftlRAH: 



010446 

012746 010016' 
012746 000002 
010600 
104414 

062706 000006 
000207 



SAVREG 

PRINTB •RAMF0R.R4 

MOV R4..(SP) 

MOV •RAMFOR. (SP) 

MOV •2.-(SP) 

MOV SP.RO 

TRAP CIPNTB 

ADD •6.SP 

RTS PC 



iSAVE R1R5 UNTIL NEXT RETURN 
{PRINT RAM ADORES*; IN ERROR 



I RE TURN 



045 



116 



045 RAMFOR: .ASCIZ '«N«A CONTROLLER RAM ADDRESS - «06 
.EVEN 



.SBTTL PR I ADD - PRIKT MEMORY ERROR ADDRESS 



I ♦ 



C4 



SEQ 041 



957 
95« 
959 
960 
961 
962 
965 
964 

965 
966 
967 
966 
969 
970 
971 
972 
975 
974 



975 
976 
977 
978 
979 
9P0 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
995 
994 
995 
996 
997 
998 
999 
1000 



010060 
010060 
010064 
010070 
010074 
010076 
010100 
010102 
010102 
010104 
010106 
010112 
010116 
010120 
010122 
010126 

010130 



010174 
010174 
010200 
010204 



010210 
010210 
010212 
010216 
010222 
010224 
010226 



PRINT HEMORT AOORESS 

THIS ROUTINE IS NORMALLY CALLED ONLr FROH PRINT ROUTINES. 



IMPLICIT INPUTS 

ERRHI 
ERRLO 



HIGH ORDER ADDRESS 
LOU ORDER ADDRESS 



PRIAOD: 



015700 
015701 
010102 
006101 
006100 

010246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 

045 



002226* 
002250- 



010150- 
000005 



000010 
116 



045 PRIAO: 



SAVREG 




iSAVr R1-R5 UNTIL NEXT RETURN 


nuv 


ERRHI. RO 


iGET HIGH ADDRESSS 


MOV 


ERRLO. Rl 


iGET LOU AOORESS 


MOV 


R1.R2 


iCOPr LOW AOORESS 


ROL 


Rl 


iSHIFT BIT 15 TO C BIT 


ROL 


RO 


I SHIFT INTO HIGH ORDER 


PRINTS 


•PRIAO. R0.R2 


iPRINT MEMORY ADDRESS IN ERROR 


MOV 


R2,-(SP) 


MOV 


RO.-(SP) 




MOV 


#PRIAO.-(SP) 




MOV 


♦5.-(SP) 




MOV 


SP.RO 




TRAP 


CIPNTB 




ADD 


•10. SP 




RTS 


PC 


{RETURN 


.ASCIZ 


'«WA MEMORT ERROR ADDRESS - «01«05' 


.EVEN 






.SBTTL 


PRITADD - PRINT 


MEMORY TEST ADDRESS 



PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CAL'.ED ONLY FRQH PRINT ROUTINES. 



IMPLICIT I»*UTS 



ERRHI 
ERRLO 



- HIGH ORDER AOORESS 

- LOW ORDER ADDRESS 



PRITADD: 



015702 002226 
013701 002230' 



010146 

012746 010256* 
012746 000002 
010600 
104414 

062706 000006 



SAVREG 

MOV 

MOV 

I MOV 

I ROL 

I ROL 

PRINTB 

MOV 

MOV 

MOV 

HOV 

TRAP 

ADD 



ERRHI. R2 

ERRLO. Rl 

R1.R2 

Rl 

RO 

•PRITO.Rl 

Rl.-(SP) 

•PRITO.-(SP) 

♦2.(SP) 

SP.RO 

CfPNTB 

•6.SP 



I SAVE R1-R5 UNTIL NEXT RETURN 

•GET HIGH ADDRESSS 

iCET LOU AOORESS 

•COPY LOU ADDRESS 

iSHlFT BIT 15 TO C BIT 

I SHIFT INTO HIGH ORDER 

t PRINT MEMORY ADDRESS LOW IN ERROR 



D4 



SEQ 042 



1001 010252 
010252 
010254 
010240 
010244 
010246 
010250 

1002 0102S4 
1005 

1004 0102S6 

1005 010521 
1006 

1007 

1000 

1009 

1010 

1011 

1012 

1015 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1025 

1024 

1025 

1026 

1027 

1028 

1029 

1050 

1051 

1052 

1055 

1054 

1055 

1056 

1057 

1058 

1059 

1040 

1041 

1042 

1045 

1044 010566 

1045 010566 

1046 010572 

1047 010400 

1048 010406 

1049 010410 

1050 010412 

1051 010416 



010246 

012746 010521' 
012746 000002 
010600 
104414 

062706 000006 
000207 



045 

045 



116 
116 



045 
045 



PRITOt 
PRITl: 



PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

RTS 

.ASCIZ 
.ASCIZ 
.EVEN 



«PRIT1.R2 

R2.-{SP) 

#PRIT1,-(SP) 

♦2.-(SP) 

SP.RO 

CIPNTB 

«6.SP 

PC 



iPRINT MEMORY ADORCSS HIGH IN ERROR 



iRETURN 



•«N«A MEMORY TEST ADDRESS LOU - «06' 
'«N«A MEMORY TEST ADDRESS HIGH • «06' 



.SBTTL SPACE 



SPACE RECORDS (FORWARD AND REVERSE) COrtlANO 



ROUTINE TO ISSUE A SPACE RECORDS 
COMMAND (FORWARD OR REVERSE) 



INPUT: 



R5 NUMBER OF RECORDS TO BE SPACED OVER 

BIT15 CONTROLS DIRECTION 

BITIS • 0 IS FORWARD 

BIT15 - 1 IS REVERSE 
R5 FIRST DEVICE UNIBUS ADDRESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 



OUTPUT: 



CARRY SET - SPACE RECORDS COTttANO OK 
CLR • SPACE RECORDS FAILED 



RO THE CONTENTS OF R4 IS MOVED TO RO 

IMPLICIT OUTPUT: 

TAPE HAS BEEN MOVED 
SIDE EFFECTS: 



SPACE: 



012757 000764 
012757 140010 
005705 
100405 

010557 010552' 
000407 



010560' 
010550' 



SAVREG 

MOV 

MOV 

TST 

BMI 

MOV 



#500. .SOELAT 

•140010.601 

R5 

5< 

R5.90* 

lot 



(SAVE THE GENERAL REGISTERS 
I SET UP DELA> 

I SET UP COMMAND. SPACE FORWARD 

I CHECK FOR DIRECTION 

I BR. IF REVERSE INOICATED 

I LOAD UP NUMBER OF RECORDS TO SPACE 

I GO DO COMMAND 



F4 



TSV5 • GLOBAL AREAS 


MACRO nill3 01 


-FEB -84 


17:54 




SEQ 


SPACE 


- SPACE 


RECORDS 


(FORWARD AND REVERSE) 


COMHAND 






1052 


010420 


042703 


A wWW 


St < 


BIG 


♦BIT15.R3 


iCLEAR DIRECTION BIT 


1053 


010424 


010337 






MOV 


R3,90l 


iLOAD UP NUMBER Of RECORDS TO SPACE 


1054 


010430 


052737 






BIS 


•SITS.SOt 


iSET REVERSE BIT IN COMMAND PACKET 


1055 


010436 


012704 






MOV 


<^80t ,M 


iSET UP R4 WITH PACKET ADDRESS 


1056 


010442 


010465 


www 




MOV 


R4,TSDBCR5) 


iSEND OUT COMMAND 


1057 


010446 


004737 






JSR 


PC.UAITF 


lUAIT FOR SSR 


1058 


010452 


103420 






BCS 


201 


iBR, IF SSR IS SET AND OK 


1059 


010454 








DELAY 


250 


t DELAY ABOUT .25 SECONDS 




010454 


012727 






MOV 


♦250. (PC)* 






010460 


000000 






.WORD 


0 






010462 


013727 


00?116' 




MOV 


LIDLt .(PC)* 






010466 


000000 






.WORD 


0 






010470 


005367 


177772 

1, r r r r c 




DEC 


-6(PC) 






010474 


001375 






BNE 


, -4 






010476 


005367 


177756 




DEC 


-22(PC) 






010502 


001367 






BNE 


. -20 




1060 


010504 


005337 


010560' 




DEC 


SOELAY 


J BUMP DELAY COCWTER DOWN 


1061 


010510 


001356 






BNE 


151 


tBR* IF MORE DELAY 


1062 


010512 


000411 






BR 


601 


iBR IF TROUBLE CARRY • CLEAR 


1063 


010514 


016501 


000002 


201 : 


MOV 


TSSR(R5)#R1 


AP A A T P PA 

iREAO ISSN 


1064 


010520 


012702 


000200 




MOV 


#SSR.R2 


PPT (A PwAPPTPA 

»SET UP EXPECTED 


1065 


010524 


020201 




251: 


CMP 


R2.R1 


AAP T«_^P w 

|ARE TMEY OK 


1066 


010526 


001401 






BEQ 


401 


AA TP P <Al _ ^te^ 

iBR, IF EQUAL • OK 


1067 


010530 


000402 






BR 


601 


TA^ta P PwTT 

{TROUBLE EXIT 


1066 


010532 


000261 




401: 


bCL 






1069 


010534 


000401 






BR 


701 


lEXlT 


1070 


010536 


000241 




601: 


CLC 




; CARRY CLEAR • ERROR 


1071 


010540 






701: 








1072 


010540 


010400 






MOV 


R4.R0 


iPASS PACKET ADDRESS 


1073 


010542 


000207 






RTS 


PC 


iRETURN 



1074 

1075 
1076 
1077 
1078 
1079 

1081 010544 

1085 

1084 

1085 010550 
1086 

1087 010552 

1088 010554 

1089 010556 

1090 010560 
1091 

1092 
1095 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 



000000 

000000 
000000 
000000 
000000 



i 
t 

jpACKET FOR SPACE COHNANO 

' .8LKB 10-<.-TSV2e7> 

icortlANO WORD 
801: .WORD 

•NUMBER OF RECORDS TO BE SPACED OVER WORD 
90t: .WORD 
.UORD 
.MORO 



SDELAY: 



MORO 
.EVEN 



t DELAY COUNTER 



.SBTTL URTCHR - URITE CHARACTERISTICS COMHANO 

t ♦ 

'routine to ISSUE A URITE CHARACTERISTICS 

I COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 

I INPUT : 



F4 



TSVS GLOBAL AREAS 
URTCHR 



URITE CHARACTERliT^CS^^iMHA^ 



FEB-a4 17:54 



SEQ 044 



1 1 fSX 








1 1 f%A. 








1 1 A< 








1 lUO 
































1 1 1 O 
X X XV 








1111 
XXXX 








1 1 IP 
XX Xc 








111^ 

xxxo 








1 1 1 A 
XXX^ 








111^ 
XX x^ 








1 1 1 A 
XX xo 








1117 
XXX' 








1 1 1 A 
X xxo 








1 1 1 Q 

X X X 7 








1 1 Of\ 
XXcU 








1 1 91 
XXcX 








1 1 oo 
XXcc 








1 1 9^ 

X XcO 








1 1 

XXc^ 








1 1 

X Xc^ 








1 1 9#\ 

XXcO 


ni A^AP 






1 1 P7 

X XC r 


vxv^o^ 






X X€.0 


oin*u;A 

VXv^OO 




AAPPPA* 


1 1PQ 


Al AS7P 


AASA57 


OOP916' 

WCCXv 


1 1 \t% 
xx^v 


A1 A*s7A 


A1 A4A*\ 


OAAAAA 
WWW 


1151 
xx^x 


A1 AAAP 


AA4757 


A1A95A* 

VXOC 


1 1 

XX 


A1 AAAA 


1 AX4A1 




1155 


A1 AA1 A 


AAA45'^ 




1 15A 

X X 


A1 AA1 P 
vxvoxc 


A1 A'>A1 


AAAAAP 
WVWc 


1 1 5S 

X xo^ 


A1 AA1 A 


A1 D7AD 
UXc f Vc 


AAA9AA 


1 151^ 

X X JO 


A1 AAP9 


* VX 


AAA1 AA 
WVXVU 


X X J 1 


Al AAPA 


AA14AP 




1 1511 


A1 AA5A 

V X VO J%/ 


A^07A0 


AAA1 AA 
WVXUU 


1 1 5Q 


Al AA54 


AOAOAI 




1 140 


Al AA5A 


AA14A1 




1141 

X X 


Al AA4A 


AAA4P1 




1 14P 
X x^c 


Al AA4P 


AA07A4 


AAAA1 A 
WWXw 


1 145 

XX** J 


Al AA4A 

wX 


A1 1 4A5 




1144 

X x^^ 


OlOASA 

W X^^D^V 


A5P7A5 


AAA9AA 
vwcw 


114S 
X x^^ 


OlAASA 

wX\^D^^ 


AA14AP 




1146 
X x^v 


wX WW 


AA^57 


AA9916' 


1147 
xx^ ■ 


A1AAA4 






114A 

X x^o 


010M4 

wXW\^^ 


A5P765 

w JC r O J 


AAA1 AA 
vwxw 


1149 

xx~ ^ 




AA14Ad 




IISO 
xx^v 


010674 


AASP57 


AA9P9A' 


1151 


010700 






1152 


010700 


000261 




1155 


010702 


000401 




1154 


010704 


000241 




1155 


010706 


016500 


000002 


1156 


010712 


000207 




1157 








1158 








1159 









R4 ADDRESS QT PACKET FROM TEST 

R5 FIRST DEVICE UNIBUS ADDRESS 

REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



OUTPUT ! 



RO TSSR CONTENTS 

CARRY SET • URITE CHARACTERISTICS COTtlANO OK 
CLR - URITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 

SOFTUARE SUITCHES SET AS FOLLOUS: 

EXTFEA • EXTENDED FEATURES PRESENT 
BENBSU - BUFFER ENABLE SUITCH ON OR OFF 



SIDE EFFECTS: 



URTCHR: 

101: 

201: 

251: 
401: 

4St: 
501: 



601: 
701: 



5AVREG 

CLR 

CLR 

nov 

JSR 

BCS 

BR 

MOV 

MOV 

BIT 

SCO 

BIS 

CMP 

BEQ 

BR 

ADD 

MOV 

BIT 

BEQ 

INC 

BIT 
BEQ 
INC 

SEC 

BR 

CLC 

MOV 

RTS 



BENBSU 
EXTFEA 
R4.TS06(RS) 
PC.D«<TSSR 
20t 
60< 

TSSR(R5).R1 
#SSR.R2 
•OFL.Rl 
251 

#0FL.R2 
R2.R1 
401 
601 

•a..R4 
(R4).R3 

•X2.EXTF.XST2CRS) 
45< 

EXTFEA 



I SAVE THE GENERAL REGISTERS 
t CLEAR BUFFER ENABLE SUITCH 

iCLEAR EXTE^OED FEATURES SU SUITCH 
I SEND OUT COrtlANO 
iWAIT FOR SSR 
iBR. IF SSR IS SET AM) OK 
iBR IF TROU&.E CARRY - CLEAR 
iREAO TSSR 
iSET UP EXPECTED 
lUAS OFF LINE SET IN TSSR 
jBR. IF NO OFL SET 
I MAKE THEM LOOK ALIKE 
,ARE THEY OK 
iBR. IF EQUAL - OK 
I TROUBLE EXIT 

(POINT TO URT CHARA DATA PACKET 
tGET ADDRESS OF MESSAGE BUFFER 
jEXTENOED FEATURES BIT SET? 
{BR IF NO 

I SET EXTENDED FEATURES SU SUITCH 



•X2.BUFE.XST2(R3) 
SOI 

BENBSU 



701 

TSSR(R5).R0 
PC 



(BUFFER ENABLE SWITCH SET 

I BR. IF SUITCH NOT SET 

tSET SOFTUARE SUITCH FOR ENABLED 

(SET CARRY NO TROUBLE 
(EXIT 

{CARRY CLEAR • ERROR 
(RETURN TSSR CONTENTS 
(RETURN 



.SBTTL REUINO • POSITION TAPE (REUIND) COMMAND 



TSV5 • GLOBAL AREAS HACRQ HIUS 01 FEB -64 17t54 
REUINO POSITION TAPE (REWIND) COMHAND 



G4 



SEQ 045 



1160 
1161 
116^ 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 



1195 
1196 
1197 
1198 
1199 
1200 
1201 
1203 
1205 
1206 
1207 
1208 
1209 
1210 



010714 
010714 
010720 
010724 
010730 
010734 
010740 
010742 
010742 
010746 
010750 
010754 
010756 
010762 
010764 
010770 
010772 
010774 
010776 
011000 
011002 



011004 
011010 
011010 
011012 



THIS ROUTINE WILL REWIND THE SELECTED TAPE. 

CAUTIONi THE ROUTINE DOES NOT WAIT TOR BOT 

TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 



CALLING SEQUENCE: 



00 A SOFT INIT 

00 A WRITE CHARACTERISTICS 

JSR PC. REWIND 



INPUT: 



R5 



OUTPUT 



RO 



012704 
010465 
012703 
004737 
103417 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
000241 
010400 
000207 



102010 
000000 



011010' 
000000 
000550 
016150' 



000372 
002116' 
177772 
177756 



REWIND: 



101: 



201 i 



SAVREG 
NOV 
NOV 
NOV 

JSR 

BCS 

DELAY 

NOV 

.WORD 

NOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

CLC 

MOV 

RTS 



RWPACK: 



.WORD 
.WORD 



FIRST DEVICE UNIBUS ADDRESS 



1HE CONTENTS OF R4 IS PASSED TO RO 



R4.TS0B(R5) 
•360. .RS 
PC.MAITF 
201 

250. 

♦250..CPC)* 
0 

L»DLY.(PC)» 
0 

-6(PC) 
, -4 

-22(PC) 
. -20 
R3 

lot 

R4.R0 

PC 



tSAVE R1-R5 UNTIL NEXT RETURN 

iGET PACKET ADDRESS 

{SEND PACKET ADDRESS TO EXECUTE 

lENOUGH TINE FOR 2400' REEL TO REWIND 

jWAIT FOR SSR TO SET 

s LEAVE WHEN SSR IS SET 

iWAIT FOR .25 SECONDS 



.BLKB 10-<.-TSV267> 



102010 
0 



:BUMP COUNTER DOWN 
(KEEP GOING 

I CLEAR CARRY TO SET ERROR 
:PASS THE PACKET ADDRESS 
: RE TURN 



I POST ION COMMAND (REWIND) 
(NOT USED 



.SBTTL CKRAM 



COMPARE RAM TO I/O PACKET 



H4 



TSV5 
CKRAn 



GLOBAL AREAS HACRO HI I 13 

COMPARE RAM TO I/O PACKET 



OlFEB 84 17:54 



SEQ 046 



1211 






1212 






1215 






1214 






1215 






1216 






1217 






1218 






1219 






1220 






1221 






1222 






1223 






1224 






1225 






1226 






1227 






1226 






1229 






1230 






1231 






1232 






1233 






1234 






1235 






1236 






1237 






1238 






1239 


011014 




1240 


011014 




1241 


011020 


012701 


1242 


011024 


012702 


1243 


011030 


005003 


1244 


011032 


004737 


1245 


011036 


112765 


1246 


011044 


004737 


1247 


011050 


010265 


1248 


011054 


004737 


1249 


011060 


116511 


1250 


011064 


122124 


1251 


011066 


001401 


1252 


011070 


005203 


1253 


011072 


005202 


1254 


011074 


020227 


1255 


011100 


005761 


1256 


011102 


005703 


1257 


011104 


001402 


1256 


011106 


000241 


1259 


011110 


000401 


1260 


011112 


000261 


1261 


011114 


012737 


1262 


011122 


000207 


1263 






1264 






1265 






1266 






1267 







ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 



INPUT: 



R4 

R5 



OUTPUT: 



CARRY 



ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 



SET • RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT t 

THE TABLE RAHDATA IS FILLED WITH THE 
DATA HELD IN RAM. 

RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 
SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



CKRAH: 



002232' 
000201 

016236' 

000000 000000 

016236' 101: 

000000 

016236' 

000000 



000210 



201: 



30>: 

000010 002272' 501: 



> ♦ 
t 



SAVREG 




iSAVE THE GENERAL REGISTERS 


MOV 


«RAMDATA.R1 


t ADDRESS TO SAVE THE RAM DATA 


MOV 


4RMPKT6EG.R2 


iBYTE ADDRESS OF FIRST RAH DATA 


CLR 


R5 


t CLEAR THE ERROR FLAG 


JSR 


PC.CHKTSSR 


iVMIT FOR SSR 


M0V8 


«O.TSOB(RS) 


iSET MAINTENANCE MODE 


JSR 


PC.CHKTSSR 


tUAIT FOR SSR TO SET 


MOV 


R2.TS0BCRS) 


; SELECT NEXT RAH ADDRESS 


JSR 


PC.CHKTSSR 


lUAIT FOR SSR TO SET 


MOVB 


TS8A(RS)»CR1) 


iREAO THE RAM DATA 


CMP8 


(R1)»,(R4)* 


{COMPARE TO EXPECTED 


BEQ 


20t 


: BRANCH IF OK 


INC 


R5 


iSET ERROR FLAG 


INC 


R2 


tAOORESS OF NEXT RAH LOCATION 


CMP 


R2.«RMPKTEND 


iREACHED END YET ? 


BLE 


101 


(BRANCH TILL ALL READ 


TST 


R5 


tUAS AN ERROR FOUND ? 


BEQ 


sot 


1 BRANCH IF NOT 


CLC 




1 CLEAR CARRY TO SHOW ERROR 


BR 


sot 


lANO EXIT 


SEC 




iCHOU GOOD COMPARE 


MOV 


M.. RAMSIZ 


» SETUP RAMSIZ FOR PRAMPKT ROUTINE 


RTS 


PC 


•RETURN 



.SBTTL CKRAM2 ■ COMPARE RAM TO I/O CHARACTERISTICS DATA 



14 



TSVS GLOBAL AREAS HACRO Ml 115 01 -FEB -84 17:54 





CKRAn^ 

1268 
1269 
1270 
1271 
1272 
127S 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1299 
1290 
1291 
1292 



COMPARE RAH TO I/O CHARACTERISTICS DAI 



SEQ 047 



ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAH 

HEHORY AND COHPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 



INPUT i 



R4 

R5 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT: 



CARRY 



SET 
CLR 



RAH MATCHES PACKET 

RAH DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 



THE TABLE RAMDATA IS FILLED WITH THE 
DATA HELD IN RAM. 

RAMSI2 IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 
SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



1293 


011124 






CKRAM2: 


• 






1294 


011124 








'SAVREG 




iSAVE THE GENERAL REGISTERS 


1295 


011130 


012701 


002252* 




MOV 


«ftAM0ATA.Rl 


lAOORESS TO SAVE THE RAM DATA 


1296 


011134 


012702 


000167 




MOV 


«RMCHBEG.R2 


iBYTE ADDRESS OF FIRST RAM DATA 


1297 


011140 


005003 






CLtt 


R5 


(CLEAR THE ERROR FLAG 


1298 


011142 


004757 


016256* 




JSft 


PC.CMKTSSft 


lUAIT FOR SSR 


1299 


011146 


112765 


000000 


000000 


MOVB 


•O.TSDBCRS) 


iSET MAINTENANCE MODE 


1300 


011154 


004757 


016256* 


101: 


JSR 


PC.CHKTSSR 


lUAIT FOR SSR TO SET 


1301 


011160 


010265 


000000 




MOV 


R2.TSDB(R5) 


•SELECT NEXT RAM ADDRESS 


1302 


011164 


004757 


016256' 




JSR 


PC.CWTSSR 


lUAIT FOR SSR TO SET 


1303 


011170 


116511 


000000 




MOVB 


TSBA(RS).(R1) 


tREAO THE RAM DATA 


1304 


011174 


122124 






CMPB 


(R1)».CR4)* 


1 COMPARE TO EXPECTED 


1305 


011176 


001401 






BEQ 


20t 


{BRANCH IF OK 


1306 


011200 


005205 






INC 


R5 


tSET ERROR FLAG 


1307 


011202 


005202 




20>t 


INC 


R2 


lAOORESS OF NEXT RAM LOCATION 


1308 


011204 


012757 


000010 


002272' 


MOV 


•e..RAMSIZ 
EXTFEA 


1 ASSUME EXTFEA NOT SET 


1309 


011212 


005757 


002216' 




TST 


lis THE SOFTWARE EXTENDED FEATURES SET 


1310 


011216 


001407 






BEQ 


251 


tW IF NOT SET 


1311 


011220 


012757 


000012 


002272' 


MOV 


#10..RAHSIZ 


tSET RAMSIZ FOR EXTEND FEATURES 


1312 


011226 


020227 


000200 




CMP 




1 AT END OF EXTENDED BUFFER 


1313 


011232 


005750 






BLE 


101 


iBR. IF NOT AT END YET 


1314 


011234 


000405 






BR 


271 


|AT END BRANCH 


1315 


011236 


020227 


000176 


251: 


CMP 


R2.fAMCHEN0-2 


iREACHED END YET ? 


1316 


011242 


005744 






BLE 


101 


1 BRANCH TILL ALL READ 


1317 


011244 


005705 




271: 


TST 


R5 


lUAS AN ERROR FOUND ? 


1318 


011246 


001402 






BEQ 


501 


1 BRANCH IF NOT 


1319 


011250 


000241 






CLC 




(CLEAR CARRY TO SHOU ERROR 


1320 


011252 


000401 






BR 


501 


(AND EXIT 


1321 


011254 


000261 




501: 


SEC 




(SHOU GOOD COHPARE 


1322 


011256 


000207 




50<: 


RTS 


PC 


(RETURN 



1525 
1324 



TSV3 GLOBAL AREAS MACRO MlllS 01 rEB-84 17:34 
CKMSG COMPARE WRITE CHAR. MESSAGE BUFFERS 



1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1336 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1572 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 



011260 
011260 
011264 
011270 
011274 
011300 
011302 
011306 
011310 
011312 
011314 
011316 
011322 
011326 
011330 
011332 
011334 
011340 
011344 
011346 
011354 
011356 
011362 
011364 
011366 
011370 
011372 
011374 
011376 



.SBTTL CKMSG 



J4 



COMPARE URITE CHAR. MESSAGE BUFFERS 



SEQ 048 



ROUTINE TO COMPARE A kiRITE CHARACTERISTICS EXPO AND RECV 
BUFFER. THE EXPECTED ANO RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT! 



OUTPUT: 



RO 
Rl 
R2 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPO MESSAGE BUFFER ADDRESS 



CARRY 



SET • MESSAGE BUFFERS MATCH 

CL.R -MESSAGE BUFFERS DON' T MATCH 



IMPLICIT OUTPUT] 

EXPMSG 
RECMSG 
RCVHIADD 
RCVLOAOO 



CKMSG:: 



BUFFER IS SET TO EXPO DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



010037 
010137 
005737 
001403 
004737 
010001 
005004 
005003 
010205 
011264 
011164 
022221 
001401 
005203 
062704 
020427 
003764 
032765 
001403 
020427 
003755 
005703 
001402 
000241 
000401 
000261 
000207 



002274- 
002276' 
003124' 

017220' 



002312' 
002456' 



000002 
000014 

000200 000012 
000016 





SAVREG 




tSAVE R1-R5 UNTIL NEXT RETURN 




MOV 


RO.RCVHIAOO 


iSAVE RECV HIGH ADDRESS 




MOV 


Rl.RCVLOAD 


iSAVE RECV LOU ADDRESS 




TST 


KTENA8LE 


{TESTING ABOVE 28K? 




BEQ 


10$ 


iBR IF NO 




JSR 


PC.SETMAP 


iRETURN ADDRESS BIASED TO PAR6 IN RO 




MOV 


RO.Rl 


iGET RETURNED ADDRESS BIASED TO PAR6 


10>: 


CLR 


R4 


(WORD IN BUFFER 




CLR 


R3 


1 CLEAR ERROR SEEN FLAG 




MOV 


R2.R5 


(GET EXPD BUFFER ADDRESS 


151: 


MOV 


(R2).EXPHSG(R4) 


iSAVE EXPD FOR ERROR REPORT 




MOV 


(R1).RECHSG(R4) 


tSAVE RECV FOR ERROR REPORT 




CMP 


(R2)*.(R1}» 


lEXPD EQUAL RECV? 




BEQ 


251 


iBR IF YES 




INC 


RS 


iSET ERROR SEEN FLAG 


25t: 


ADO 


•2.R4 


tPOINT TO NEXT WORD ADDRESS 




CMP 


R4.«14 


(DONE FIRST 7 WORDS? 




BLE 


151 


iBR IF NO 




BIT 


«X2.EXTF.XST2(RS)iIS EXTENDED FEATURES SET in EXPD? 




BEQ 


501 


iBR IF NO 




CMP 


R4.*16 


lOONE EXTENDED FEATURES WORD? 




BLE 


151 


iBR IF NO 


SOI: 


TST 


R5 


lANY ERRORS SEEN? 




BEQ 


551 


iBR IF NO 




CLC 




tSET FAILURE 




BR 


601 




55$: 


SEC 




!sET SUCCESS 


60t: 


RTS 


PC 


1 RE TURN 



.SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 



I<4 



TSVS GLOBAL AREAS MACRO Ml 113 01 -FEB -84 17:54 
CKMSCa COMPARE EXPO RECV MESSAGE BUFFERS 



SEQ 049 



1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
i.401 
1402 
1403 
1404 
1405 
1406 



ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
BUFFER. TK<E EXPECTED AND RECEIVED B'JFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT! 



RO 
Rl 
R2 
R3 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOU ORDER ADDRESS 
EXPO MESSAGE BUFFER ADDRESS 
NUMBER OF BYTES TO COMPARE 



OUTPUT: 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR - MESSAGE BUFFERS DON' ^ ^-PTCM 



IMPLICIT OUTPUT J 

EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADO 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOU ORDER ADDRESS OF RECV 



1407 












1408 


011400 






Cl<nSG2: 


• 


1409 


011400 








SAVREG 


1410 


011404 


020327 


000144 




CMP 


1411 


011410 


003412 






BLE 


1412 


011412 


012703 


000144 




MOV 


1413 


011416 








PRINTF 




011416 


012746 


011532* 




MOV 




011422 


012746 


000001 




MOV 




011426 


010600 






MOV 




011430 


104417 






TRAP 




011432 


062706 


000004 




ADD 


1414 


011436 


010037 


002274* 


SI: 


MOV 


1415 


011442 


010137 


002276* 




MOV 


1416 


011446 


005737 


003124' 




TST 


1417 


011452 


001403 






BEO 


1418 


011454 


004737 


017220' 




JSR 


1419 


011460 


010001 






MOV 


1420 


011462 


005004 




10$: 


CLR 


1421 


011464 


005005 






CLR 


1422 


011466 


111264 


002312* 


151: 


MOVB 


1423 


011472 


111164 


0024S6' 




MOVB 


1424 


011476 


122221 






CMPB 


1425 


011500 


001401 






BEti 


1426 


011502 


005205 






INC 


1427 


011504 


062704 


000001 


251: 


ADD 


1428 


011510 


020403 






CMP 


1429 


011512 


002001 






BGE 


1430 


011514 


000764 






BR 


1431 


011516 


005705 




50t: 


TST 


1432 


011520 


001402 






BEQ 


1433 


011522 


000241 






CLC 



I SAVE R1-R5 UNTIL NEXT RETURN 
R3.4AECMSG -EXPMSG I 8BD IS COUNT ABOVE MAX ALLClCD? 
SI tSSO BR IF NO 

4RECMSG -EXPMSG . R3 I 080 
•DEBUGHSG 
«DEBUGMSG.-CSP) 
♦l.-CSP) 
SP.RO 
CIPNTF 
#4 SP 

RO'.RCVHIADO 
Rl.RCVLOAO 
KTENABLE 
101 

PC.SETMAP 
RO.Rl 
R4 

R5 

(R2).EXPMSG(R4) 
(R1).RECMSGCR4) 
(R2)».CR1)« 
251 
R5 

•1.R4 
R4.R3 
501 
151 
R5 
551 



tSAVE RECV HIGH ADDRESS 
iSAVE RECV LOU ADDRESS 
I TESTING ABOVE 28K? 
iBR IF NO 

{RETURN ADDRESS BIASED TO PAR6 IN RO 
iGET RETURNED ADDRESS BIASED TO PAR6 
lUORO IN BUFFER 
I CLEAR ERROR SEEN FLAG 
I SAVE EXPD FOR ERROR REPORT 
I SAVE RECV FOR ERROR REPORT 
I EXPD EQUAL RECV? 
I BR IF YES 

I SET ERROR SEEN FLAG 
I POINT TO NEXT BYTE 
I DONE ALL BYTES? 
I BR IF YES 
iDO NEXT BYTE 
{ANY ERRCRS SEEN? 
iBR IF NO 
•SET FAILURE 



TSV3 - GLOBAL AREAS 
CKMSCa 



lACRO Mills 
COMPARE EXPD RECV MESSAGE B' 



u^ferI 



84 17:54 



L 4 



SEQ 050 



1434 
1435 
I43t> 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 

1461 
1462 
1463 



1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 

1477 
1478 
1479 
1480 



1481 
1482 
1483 
1484 



011524 
011526 
011530 

011532 
011622 
011633 
011666 
011721 



011734 
011734 
011734 
011740 
011744 
011744 
011744 



011746 
011746 
011746 

011752 
011756 
011762 
011762 
011762 



000401 
000261 
000207 

120 
045 
040 
056 
124 



122 
116 
040 
056 
105 



117 
045 
124 
056 
123 



004737 005632' 
004737 017104' 



10442S 



004737 005632' 
012700 000004 
004757 007270' 



104423 



BR 60* 
55t : SEC 
60» : RTS PC 



I SET SUCCESS 
(RETURN 



DEBUGMSG: 
FERCM: .ASCII 



ERCM: 
SIMSG: 
TINERR: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



.ASCIZ 'PROGRAM INTERNAL ERROR 

/ TSSR ERROR CODE REC'D - / 

/ AFTER DOING SOFT INIT/ 

/TEST: .../ 



CKMSG2 MESSAGE BUFFER EXCEEDED- ' .aaO 



PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
INPUT: 

Rl CONTENTS OF TSSR AT ERROR 

SIDE EFFECTS: 

EXECUTES DROP UNIT TO CEASE TESTING 



SFIHSG:: 



BGNMSG SFIMSG 



L 10003: 



JSR 
JSR 

ENOMSG 
TRAP 



PC.PRITSSR 
PC.CKOROP 



CtMSG 



I PRINT CONTENTS OF TSSR REGISTER 
tOROP UNIT. IF ALLOWED 



I PRINT ROUTINE TO PRINT THE CONTENTS OF 

I TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 



I INPUTS: 
I 
t 
I 
t 

I - 



Rl TSSR CONTENTS 

R4 ADDRESS OF COMMAND PACKET 



PKTSSR:: 



BGNNSG PKTSSR 



L10004: 



JSR 
MOV 
JSR 

ENDMSG 
TRAP 



PC.PRITSSR 

•4.R0 

PC»PRIPKT 



C»MSG 



I PRINT THE CONTENTS OF TSSR REGISTER 

iNO. OF UORDS IN PACKET 

I PRINT THE CONTENTS OF COMMAND PACKET 



jpRINT ROUTINE TO PRINT THE CONTENTS OF 
I TSSR AND A GET STATUS COMMAND PACKET. 



m 



TSV5 
CKHSG2 

1485 
1466 

1487 
1488 
1489 
1490 
1491 
1492 
1493 

1494 
1495 
1496 
1497 



1498 
1499 
1500 
1501 
1502 
1505 
1504 
1505 
1506 
1507 
:'>08 
1509 

1510 
1511 



1512 
1515 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 

1528 
1529 
1530 
1531 
1532 



SEQ 051 



INPUTS: 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMHAND PACKET 



011764 
011764 
011764 
011770 
011774 
012000 
012000 
012000 



012002 
012002 
012002 
012006 
012006 
012006 



012010 
012010 
012010 
012014 
012016 
012020 
012024 
012024 
012024 



004757 005632' 
012700 000002 
004737 007270* 



104423 



PKTGETS: 



BGNHSG PKTGETS 



L10005: 



JSR 
MOV 
JSR 

ENDMSG 
TRAP 



PC.PRITSSR 

»2.R0 

PC.PRIPKT 



CtMSG 



I PRINT THE CONTENTS OF TSSR REGISTER 
iNO. OF WORDS IN GET STATUS PACKET 
I PRINT THE CONTENTS OF COHMAND PACKET 



PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
INPUTS: 



004737 005632' 



104423 



SFFMS6: 



L10006; 



Rl 
R4 



BGNMSG 

JSR 

ENDHSG 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



SFFMSG 
PC.PRITSSR 



iPRINT CONTENTS OF TSSR REGISTER 



TRAP CIMSG 



.SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
BUFFER FOR ERROR REPORTS 



INPUTS: 



Rl CONTENTS OF TSSR 

R2 LOW ORDER MESSAGE BUFFER 

R5 HIGH ORDER MESSAGE BUFFER ADDRESS 

NOTE: R5 IS IGNORED IF KTENABLE FLAG IS CLEAR 



004757 005632' 

010200 

010301 

004737 014142' 



104425 



PKTMES:: 



BGNMSG PKTMES 



L10007: 



JSR 
MOV 
MOV 
JSR 

ENDMSG 
TRAP 



PC.PRITSSR 
R2.R0 
R3.R1 
PC.PRMESS 



CtMSG 



»PRINT CONTENTS OF TSSR 
;LOW ORDER ADDRESS 
(HIGH ORDER ADDRESS 
; PRINT THE MESSAGE BUFFER 



N4 



TSV5 GLOBAL AREAS MACRO Ml I 13 01 -FEB 64 17:54 
PKTMES PRINT TSSR AND MESSAGE BUFFER 



SEQ 052 



1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 

1548 
1549 
1550 
1551 



1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 

1567 
1568 
1569 
1570 
1571 
1572 



SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSR 



012026 
012026 
012026 
012032 
012036 
012042 
012042 
012042 



004737 010174' 
016501 000002 
004737 005652' 



104423 



1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 



012044 
012044 
012044 
012050 
012054 
012056 
012062 
012066 
012066 
012066 



012700 000007 

005737 002216' 
001402 

012700 000010 

004737 014452' 



104423 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A MEMORY TEST ADDRESS 



INPUTS: 



R5 FIRST DEVICE UNIBUS ADDRESS 

ERRHI HIGH ORDER MEMORY TEST ADDRESS 
ERRLO LOU ORDER MEMORY TEST ADDRESS 



ADDSSR:: 



BGNMSG ADDSSR 



LlOOlO: 



JSR 
MOV 
JSR 

ENDMSG 
TRAP 



PC.PRITADD 

TSSR(R5).R1 

PC.PRITSSR 



CIMSG 



iPRINT MEMORY TEST ADDRESS 
I GET CURRENT TSSR 

iPRINT THE CONTENTS OF TSSR REGISTER 



.SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 

PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 
AECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



MSGEXP: 
51: 

LlOOll: 



BGNMSG MSGEXP 



MOV 
TST 
BEQ 
MOV 
JSR 

ENOnSG 

TRAP 

.SBTTL 



♦7.R0 

EXTFEA 

5t 

«6..R0 
PC.PRMSGEXP 



s ASSUME NO EXT FEATURES 
J EXT FEATURES SET? 
sBR IF NO 

:EXT FEATURE BUFFER IS 8 WORDS 
tPRINT EXPD/RECV MESSAGE BUFFERS 



C«MSG 
FIFEXP 



PRINT FIFO EXP/RECV DATA 



PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 

Rl - BYTE COUNT 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 



B5 



TSV3 < GLOBAL AREAS HACRO hlllS 01 -FEB 84 17:54 
f If EXP PRINT FIFO EXP/RECV DATA 



SEQ 053 













1 RECMSG 


1S8S 










1 • 


1S86 


012070 
012070 








BGNMSG 

riFEXP:: 


1567 


012070 
012070 


010146 






PRINTX 

nov 




012072 


012746 


012142' 




HOV 




012076 


012746 


000002 




HOV 




012102 


010600 






HOV 




012104 


104415 






TRAP 




012106 


062706 


000006 




AOO 


1588 


012112 








PRINTX 




012112 


012746 


012211' 




nov 




012116 


012746 


000001 




nov 




012122 


010600 






nov 




012124 


104415 






TRAP 




012126 


062706 


000004 




AOO 


1589 


012132 


010100 






HOV 


1590 


012134 


004737 


015022' 




JSR 


1591 


012140 
012140 
012140 


104423 






ENOnSG 

t 10012 t 

TRAP 


1592 


012142 


045 


116 


045 


FIFinSG: 


1S9S 


012211 


045 


116 


045 


FIF2HSG: 



- RECEIVED MESSAGE BUFFER (CONTAINS fVO DATA ONLO 
FIFEXP 

•FIFinSG.Rl iPRINT BYTES TRANSFERRED 
Rl.-(SP) 
•FIFIHSG.-(SP) 
*2.-(SP) 
SP.RO 
CIPNTX 
•6.SP 
•FIF2nSC 
•FIF2«SC,-(SP) 
•1,-(SP) 
SP.RO 
CIPNTX 
•4.SP 
Rl.RO 

PC.PRBVTEXP 



I PRINT HEADER HSG 



iGET BYTE COUNT 

iPflINT FIFO BYTES IN ERROR 



1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 



.EVEN 



CINSG 

.ASCIZ 'Umik NUreER OF BYTES TRANSFERRED - «02' 
.ASCIZ '«NM FIFO DATA BYTES IN ERROR." 



.S6TTL NSGSTAT • PRINT STATUS HEADER AND HESSAGE BUFFERS 



PRINT ROUTINE TO PRINT HESSAGE BUFFER EXPD/RECV 



ILLICIT INPUTS: 



1609 


012250 








BGNHSG 


NSGSTAT 




012250 






nSGSTAT 


• • 

"hov 




1610 


012250 


012701 


012312' 




•STATCOO.Rl 


1611 


012254 


012100 




101: 


HOV 


(R1)*.R0 


1612 


012256 


001410 




BEQ 


20t 


1613 


012260 








PRINTX 


RO 




012260 


010046 






NOV 


RO.(SP) 




012262 


012746 


000001 




nov 


•1,-(SP) 




012266 


010600 






HOV 


SP.RO 




012270 


104415 






TRAP 


CtPNTx 




012272 


062706 


000004 




ADD 


•4.SP 


1614 


012276 


000766 






BR 


10» 


1615 


012300 


012700 


000012 


20ti 


NOV 


•10.. RO 


1616 


012304 


004737 


014452' 




JSR 


PC.PRHSGEXP 


1617 


012310 
012310 






LIOOIS: 


ENDHSG 




012510 


104423 






TRAP 


CtHSG 



EXPHSC - EXPECTED HESSAGE BUFFER 
RECHSG • RECEIVED HESSAGE BUFFER 

RCVHIAOD- RECEIVED HESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOAOO- RECEIVED HESSAGE BUFFER LOU ORDER ADDRESS 



I ASCI I ADDRESS TABLE 
lOONE ALL NSG LINES? 
tBR IF YES 

•PRINT STATUS BIT NAHES 



lOO ANOTHER HSG LINE 

tNUHBER OF UOROS IN A READ STATUS BUFFER 
I PR INT EXPD/RECV HESSAGE BUFFERS 



1618 



C5 



SEQ 054 



1619 
1620 
16^1 
1622 
1623 
1624 
162S 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
163S 
1636 
1637 
1638 
1639 
1640 
1641 
1642 

1643 
1644 
1645 
1646 



1647 
1648 
1649 

1650 



1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 



012512 
012330 
012372 
012463 
012554 
012645 
012707 



012764 
012764 
012764 
012770 
012772 
012774 
012774 
012776 
013002 
013004 
013006 
013012 
013014 
013020 
013024 
013024 
013024 

013026 
013046 
013121 
013220 
013317 
013416 
013515 
013614 



Oli?550- 
045 
045 
045 
045 
045 
045 



012372' 
116 
116 
116 
116 
116 
116 



012463' STATCOD: 

045 SI:.ASCIZ 

045 4II.ASCIZ 

045 5I:.ASCIZ 

045 6I:.ASCIZ 



012701 019026' 

012100 

001410 

010046 

012746 000001 

010600 

104415 

062706 000004 
000766 

012700 000012 
004737 014452' 



104423 

013046' 
045 
045 
045 
045 
045 
045 
045 



.EVEN 



.WORD II. 21. SI. 4t. St. 61.0 
«>MA Tap* Buf^Sionalf in.Uer<l •S:' 
«>MA PARERR<1S> lEOT <12> 

«N«A IRESV2<14> II0ENT<11> 

«»MA IRESV1<13> ICER <10> 

«MA Tap* Bua SianaU in Uerd •9t' 

0ATHIS«7> ILW«6> 0OTR0Y<5> 



Ifm *9/ 
IHER <8> 
ISPEE0<7> 



IR0r*6> 
IONL<S> 
IL0P<4> 



IRU0<2>' 
IfBr*l>' 
irPT<0>' 



INR0r<4>' 



013121' 
116 
116 
116 
116 
116 
116 
116 



013220' 
045 
045 
045 
045 
045 
045 
045 



.S8TTL HSGLOOP - PRINT L00P8ACK HEADER AND MESSAGE BUFFERS 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPO/RECV 



IMPLICIT INPUTS! 



EXPMSG - EXPECTED MESSAGE BUFFER 
RECMSG • RECEIVED MESSME BUFFER 

RCVHIAOO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOAOO- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



BGNHSG 
MSGLOOPm 

MOV 

101: MOV 
BEQ 
PRINTX 
MOV 
MOV 
MOV 
TRAP 
ADO 



20«: 



L 10014: 



MOV 
JSR 

ENOMSG 



TRAP 



MSGLOOP 

«L00PCaO.Rl 

(RD'.RO 

201 

RO 

RO.-CSP) 

•l.-CSP) 

SP.RO 

CIPNTX 

•4.SP 

101 

•10.. RO 
PC.PRMSGEXP 



CtMSG 



I ASCII ADDRESS TABLE 
iDONE ALL MSG LINES? 
iBR IF TES 

iPRINT STATUS BIT NAMES 



tOO ANOTHER MSG LINE 

t NUMBER OF WORDS IN A READ STATUS BUFFER 
I PRINT EXPD/RECV MESSAGE BUFFERS 



LOOPCOOt 

1«:.ASCIZ 

2ft.ASCIZ 

SIt.ASCIZ 

4»:.ASCIZ 

5I:.ASCIZ 

6I:.ASCIZ 

7li.ASCIZ 



.WORD II. 21. 3I.4I. 51.61. 71.0 
«N«A Iw Bus Loopbaek Signal* In Uerd M: 

IRESV2<14> 

IURT->IIO€NT<ll> 
IE0IT»IHER <0«> 
ITA01->I0NL <05> 
IRUU >>IRUO <02> 



.EVEN 



PARERR<15> 
«N«A IHISP«>IE0T<12> 
«WA lUFM •>IFMK<09> 
«N«A ITAD0»IR0Y<06> 
dN«A IREU •>ID6Y<03> 
«MA IGO •>IFPT<00> 



IReSVl<13>' 
IREV ->ICER <10>' 
IF AO •>ISPeE0«07>' 
IERASE->ILOP <04> 
IFEN ->IF8Y <0l>- 



.SBTTl MSGSUB ' PRINT URITE SUBSYSTEM MESSAGE BUFFER 



I ♦ 
t 



iPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPO/RECV 



D5 



17.54 



SEO 055 



16<>a 
166«» 
1670 
1671 
1672 
1673 
1674 
1675 

1676 
1677 
1678 



1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 

1697 
1698 
1699 
1700 
1701 



1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 



013642 
013642 
013642 
013646 

013652 
013652 
013652 



IMPLICIT INPUTS J 



EXPMSG - EXPECTED MESSAGE BUFFER 
RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



012700 000012 
004737 014452' 



104423 



MSGSUB:: 



BGNMSG MSGSUB 



L10015: 



MOV 
JSR 

ENDMSG 
TRAP 



•10. ,R0 
PC.PRMSGEXP 



CIMSG 



I SIZE OF URITE SUBSYSTEM BUFFER 
t PRINT EXPO/RCCV MESSAGE BUFFERS 



013654 
013654 
013654 
013660 
013664 
013670 
013674 
013674 
013674 



.S6TTL MEMAOO - PRINT MEMORY ADDRESS DATA ERROR 

PRINT ROUTINE TO PRINT MEMORY AOORCSS DATA COMPARE ERROR 

IMPLICIT I»^TSt 

ERRHI • MEMORY ERROR HIGH ORDER ADDRESS 

ERRLO - MEMORY ERROR LOU ORDER ADDRESS 

EXP • EXPECTED DATA 

RECV - RECEIVED DATA 



004737 010060' 

013701 002222' 

013702 002224' 
004737 007642* 



104423 



MEMAOOm 



8GM1SG MEMAOO 



L 10016 t 



JSR 
MOV 
MOV 
JSR 

ENDMSG 

TRAP 

.»TTL 



PC.PRIADO 
EXPO.Rl 
RECV.R2 
PC.PRIXOR 



iPRINT MEMORY ADDRESS IN ERROR 
iGET EXPO DATA 
iGET RECEIVED DATA 
iPRINT EXPO/RECV 



CIMSG 

prampkt 



PRINT RAM AND PACKET DATA 



PRINT ROUTINE TO DISPLAY RAH/PACKET DATA 
UHEN THE RAM DATA DOES NOT MATCH. 

INPUTS: 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RAMDATA 
RAMSI2 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ*0 THEN DEFAULT TO 8. 



E5 
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PRAMPKT PRINT RAM A<«) PACKET DATA 



SEQ 056 



I7l» 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
17S0 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 



1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 



013676 
013676 
013702 
013706 
013710 
013712 
013714 
013724 
013726 
013732 
013736 
013746 
013752 
013760 
013766 
013766 
013770 
013774 
014000 
014002 
014006 
014012 
014014 
014016 
014022 
014024 
014030 
014032 
014036 
014040 
014042 
014046 
014050 
014054 

014056 



I IMPLICIT OUTPUTS t 

! RAMSIZ SET TO 0 

t - 

PRAMPKT: 



012701 
005002 
122124 
001005 

000436 
116105 
116403 

042703 
116137 
116437 

010346 
013746 
013746 
010246 
012746 
012746 
010600 
104414 
062706 
005202 
005737 
001404 
020237 
003724 
000403 
020227 
002720 
005037 
000207 

045 



002232* 



177777 
177777 

177400 

177777 002224' 
177777 002222* 



002222' 
002224* 

014056' 
000005 



000014 

002272' 

002272' 

000010 
002272' 

116 





SAVREG 




iSAVE R1-R5 UNTIL NEXT RETURN 




MOV 


♦RAMDATA.Rl 


tOATA FROM THE RAM 




CLR 


R2 


iINIT BYTE NUMBER 


51: 


CMPB 


(R1)».<R4)» 


1 COMPARE EXPECTED. RECEIVED 




BNE 


71 


1 BR IF NO MATCM 




FORCERROR 7I.N0TSSR 




BR 


101 


|880 


71: 


MOVB 


-1(R1),R5 


iGET RECV RAM DATA 




MOVB 


-1(R4),R3 


iGET EXPO PACKET DATA 




XOR 


R5.R3 


|X0R EXPO/RECV 




BIC 


♦177400, R3 


iLOU BYTE ONLY 




MOVB 


-KRD.RECV 


iGET RECEIVED RAM DATA 




MOVB 


-1(R4).EXP0 


iGET EXPECTED RAM DATA 




PRINTB 


•RAnASC.R2.RECV.EXP0,R3 






MOV 


RS, -(SP) 






MOV 


EXPO.-(SP) 






MOV 


RECV.-(SP) 






MOV 


R2.-(SP) 






MOV 


•RAMASC.-(SP) 






MOV 


•5.-(SP) 






MOV 


SP.RO 






TRAP 


CIPNTB 






ADD 


♦14. SP 




lOti 


INC 


R2 


lUPDATE BYTE COUNT 




TST 


RAMSIZ 


{DEFAULT TO 8.? 




BED 


15t 


iBR IF YES 




CMP 


R2. RAMSIZ 


iDONE ALL BYTES? 




BLE 


SI 


iBR IF NO 




BR 


2St 




ISt: 


CMP 


R2.*8. 


IdONE DEFAULT NUMBER OF BYTES 


20t: 


BLT 


5« 


iBR IF NO 


2S«> 


aR 


RAMSIZ 


tSET DEFAULT RAMSIZ 




RTS 


PC 


iRETURN 


RWMSC: 


.ASCIZ 


•««IA BYTE: «D2«A RAM: 


«03«A Packet: «03tfA X0R:«03' 



.EVEN 

.SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



i 



I THIS ROUTINE PRINTS THE CONTENTS OF 
iTHE 7 OR 8 MORD MESSAGE BUFFER RETURNED BY 
lTSV-05. 



THE 



|I>^T: 
t 

I RO 
I Rl 
t NOTE: 

!this routine 



LOU ORDER ADDRESS OF MESSAGE BUFFER 
HIGH ORDER ADDRESS OF MESSAGE BUFFER 
Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 

IS NORMALLY CALLED FROM A PRINT ROUTINE 



TSV3 • GLOBAL AREAS MACRO Ml 113 01 -FEB -84 17:54 
PRMESS PRINT CONTENTS OF MESSAGE BUFFER 



F5 



SEQ 057 



1767 










1 




1766 










1 - 




1769 














1770 


014142 












1771 


014142 












1772 


014146 


A • AAAE 

010005 








nuv 


1775 


014150 


AAK ^ V ^ 

005757 


AA 9 t A 1 

005124' 






15 1 


1774 


014154 


001001 








Okie 


17/5 


014156 


AAK AA • 

005001 










1776 


014160 


010105 






lOi : 


nuv 


1777 


014162 


AA^ • AA 

006100 








DAl 


1778 


014164 


006101 








O Al 

HUL 


1779 


014166 










DD TkJT V 




014166 


At ACAf 

010546 








HUV 




014170 


A • At 

010146 








MAii 

nuv 




014172 


At ^'^M^ 

012746 


A t A S ^ A 1 

014520 






nuv 




014176 


At OTA^ 

012 746 


00U005 






nuv 




014202 


At A^ AA 

0106O0 








nuv 




014204 


t AAA t K 

104415 








TDAD 




014206 


A^ **TA^ 


AAAAl A 
OOOUlO 






AAA 
HUU 


1780 


014212 










ODTkiT V 

KHlN 1 A 




014212 


At ^'^^^ 

012746 


014565' 






nuv 




014216 


At O^A^ 

012746 


A^iAAA 1 

000001 






nuv 




014222 


At A^AA 

010600 








MAU 

nuv 




014224 


t A A A t C 

104415 








TOAD 




014226 


A^ *\ T A^ 

062706 


^VAAAAA 

O000O4 






AAA 

wu 


1781 


014252 


005004 










1782 


014254 


At AitAt 

010501 








iiAii 

nuv 


1785 


014256 


A t A V AA 

010500 








MAii 

nuv 


1784 


014240 


AAt AAV 

001405 








ACA 


1783 


014242 


AAA 

004757 


At ^9^Al 

017220' 






ICO 
J5K 


1786 


014246 


At AAAE 

010005 








nov 


1787 


014250 








9AA . 

201 ; 


PHINTX 




014250 


At '^KAf 

012546 








nuv 




014252 


010446 








nOV 




014254 


At ^^A^ 

012746 


At A A ^ V < 

014425' 






MA4J 

nuv 




A 1 A A 


At 0*7^^ 

012746 


000005 






MAU 

nuv 




U142d4 


At A^ AA 

010600 








MA%i 

nuv 




014266 


t AA A t C 

104415 








TO AO 




Q14270 


A^ A^ 

062706 


AAAAt A 

000010 






AAA 


1788 


O 142 74 


AAK^AA 

005204 








INC 


1789 


014276 


A^AA 

020427 


AAAAA^ 

000007 






^MO 






WOW3 










1791 


014304 


002761 








BLT 


1792 


014306 


032763 


000200 


000012 




BIT 


1793 


014314 


001355 








BNE 


1794 


014316 


000207 






501: 


RTS 


1795 














1796 


014320 


045 


116 


045 


PftOASC: 


.ASCIZ 


1797 


014365 


045 


116 


045 


PRIASC: 


.ASCIZ 


1798 


014423 


045 


116 


045 


PRASC: 


.ASCIZ 



1799 
1800 
1801 
1802 
1803 
1804 



.EVEN 



I SAVE THE REGISTERS 
I SAVE LOU ORDER ADDRESS 
I ADDRESS ABOVE 28K7 
I BR IF YES 

I SET HIGH ORDER ADDRESS TO 0 
I SAVE HIGH ORDER ADDRESS 
iSHIFT BIT15 TO C BIT 
•SHIFT TO HIGH ORDER FOR PRINTOUT 
•PRINT MESSAGE BUFFER ADDRESS 



R0.R5 
KTENABLE 
101 
Rl 

R1.R3 
RO 
Rl 

•PR0ASC.R1.R5 
R5.-(SP) 
Rl.-(SP) 
♦PROASC.-(SP) 
♦3.-(SP) 
SP.RO 
C»PNTX 
#10. SP 
•PRIASC 
•PRIASC. -(SP) 
•l.-(SP) 
SP.RO 
CtPNTX 
•4.SP 
R4 

R5.R1 
RS.RO 
20t 

PC.SETMAP 
R0.R5 

•PRASC. R4.(R5) 
(R5)..-(SP) 
R4.-(SP) 
•PRASC, -(SP) 
•3,-(SP) 
SP.RO 
CtPNTX 
♦10, SP 

R4 (NUMBER OF THE NEXT 

R4.*7 (DONE ALL YET ? 

50* iBRANCH IF ALL DONE 

20* iPRINT FIRST 7 WORDS 

•X2.EXTF,XST2<R3)|EXTENDE0 FEATUTES ON ? 
20t iPRINT EXTENDED STATUS WORD 

PC tRETURN 

'ifN«A MMsag* Buffer Address - «01«05' 
'dN«A MMMOt Buffsr Contents:' 
'««A yer<W)l«A: «0' 



•PRINT HEADER FOR CONTENTS 



•NUMBER OF THE NEXT WORD 
•COPY LOU ORDER ADDRESS 
•COPY HIGH ORDER ADDRESS 
tBR IF NOT ABOVE 2SK 
•SETUP PAR ADDRESS IN RO 
•GET PAR FORMAT ADDRESS ABOVE 28K 
•PRINT THE CONTENTS OF MEMORY BUFFER 



.SBTTL PRMSGEXP - PRINT EXPO/RECV MESSAGE BUFFERS 



i ♦ 



ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 



TSV5 GLOBAL AREAS MACRO MU13 

PRMSGEXP PRINT EXPD/RECV MESSAGE 



01 FEB 84 

BUFFFRS 



17:54 



G5 



SEQ 058 



1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 



1 A1 ^ 








1 A1 #^ 
lOXD 








1 A1 7 




A1 AAA^ 




1 A1 A 




A1 X7AA 
UXO rUV 


AAPP7#\» 


1 A1 Q 




A1 AAAA 




1 ADA 


A1 A AAA 


A1 X7A1 
\/XO r vX 


AAPP7A • 


1 AD1 


A1 


AAA1 AA 




1 ADO 


A 1 A A 7 A 


AAA1 A1 






A1 A Ala 








A 1 A A 


A1 AAAA 






A1 ASAA 


A1 A1 






A1 A^AD 


A1 07AA 

vXc f 


Al AAXD' 




A1 A^AA 


A1 97AA 
UXc r^O 


AAAAAX 




A1 A^l 9 
UX^3Xc 


A1 AAAA 






A1 A^l A 








A1 A^^ A 


AAD7AA 


AAAA1 A 
wwxv 




A1 A^OO 








f^^A^oo 

vXHD<c 


A1 97AA 

vXc f 


Al AA77« 




A1 A^DA 


A1 D7AA 

UXc ff 


AAAAA1 




A1 A^XO 


A1 AAAA 






A1 A^XA 


1 t%AA 1 ^ 






A1 A^XA 


AAD7AA 


AAAAAA 


1 A^ 


A1 A*>AD 
vX^ 


AA^AAA 




1 A>A 


A1 ASAA 


A1 07Af 
UXc r vX 


AA9X1 D* 


1 AP7 


A1 A^^A 


Al 07A0 
vXc rUc 




1 R?A 

X0£0 


A1 AS*>A 

VX^ J 


Al 1 1 AA 






AIAS^ 
vxt^^o 


Al yo€%x 












1831 


014570 








014570 


010346 






014572 


012246 






014574 


012146 






014576 


010446 






014600 


012746 


014735' 




014604 


012746 


000005 




014610 


010600 






014612 


104415 






014614 


062706 


000014 


1832 


014620 


005204 




1833 


014622 


020405 




1834 


014624 


002001 




1835 


014626 


000752 




1836 


014630 


000207 




1837 








1838 


014632 


045 


116 


1839 


014677 


045 


116 


1840 


014735 


045 


116 



RO 

IMPLICIT INPUTS: 

EXPMSG - 
RECMSG - 
RCVMIADO- 
RCVLOAOO- 



PRMSGEXP: : 



NUMBER OF WORDS IN BUFFER 



EXPECTED MESSAGE BUFFER 
RECEIVED MESSAGE BUFFER 

RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



20*: 



SOI: 

045 PRMSGO: .ASCIZ 

045 PRMSGl: .ASCIZ 

045 PRMSG21 .ASCIZ 



SAVREG 




tSAVE R1-R5 UNTIL NEXT RETURN 


MOV 


R0,R5 


iSAVE NUMBER OF WORDS 


MOV 


RCVLOAOD.RO 


iGET RECV LOU ADDRESS 


MOV 


R0«R4 


iCOPY LOU ADDRESS 


MOV 


RCVHIADD.Rl 


tGET RECV HIGH ADDRESS 


ROL 


RO 


iSHIFT BIT15 TO C BIT 


ROL 


Rl 


1 SHIFT TO HIGH ORDER FOR PRINTOUT 


PR INT X 


#PRMSG0.R1.R4 


t PRINT MESSAGE BUFFER ADDRESS 


MOV 


R4,-(SP) 




MOV 


Rlt*(SP) 




MOV 


fPRMSGO. -(SP) 
♦3.-(SP) 




MOV 




MOV 


SP.RO 




TRAP 


CIPNTX 




ADO 


#10,SP 




PRINTX 


•PRMSGl 


(PRINT HEADER FOR CONTENTS 


MOV 


•PRMSGl. "^(SP) 




MOV 


#1, .(SP) 




MOV 


SP.RO 




TRAP 


CIPNTX 




ADO 






CLR 


R4 


1 NUMBER OF THE CURRENT WORD 


MOV 


•EXPMSG. Rl 


iGET EXPO BUFFER ADDRESS 


MOV 


•RECMSG. R2 


(GET RECV BUFFER ADDRESS 


MOV 


(Rl).RO 


iGET EXPO 


riov 


(R2).RS 


iGET RECV 


XOR 


RO.RS 

•PRMSG2.R4,(R1) 


iXOR EXPD/RECV 


PRINTX 


•.(R2)*.R5 


MOV 


R3.-CSP) 




MOV 


(R2)».-(SP) 




MOV 


(Rl)».-(SP) 

R4.-(SP) 

•PRMSG2.-(SP) 




MOV 




MOV 




MOV 


♦5.-(SP) 




MOV 


SP.RO 




TRAP 


CIPNTX 




AOO 


♦14. SP 




INC 


R4 


1 NUMBER OF THE NEXT 


CMP 


R4.R5 


lOONE ALL YEl? 


BGE 


501 


iBR IF YES 


BR 


201 


tOO ANOTHER 


RTS 


PC 


iRETURN 



'#NifA M«M«9« Buffer Address • «01«I05' 
'^A M«««aM Buffer Contents:' 

UORO MD2«A EXPO: «06«A RECV: «06M XOR: «06 



TSVS - GLOBAL AREAS NACRO MlllS Ol-FEB-84 17:54 
PRHSGEXP • PRINT EXPO/RECV MESSAGE BUFFERS 



H5 



SEO 059 



1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1661 
1662 
1863 
1864 
1865 
1866 
1667 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 



1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 



015022 
015022 
015026 
OlSOSO 
015034 
015036 
015042 
015046 
015050 
015054 
015060 
015062 
015066 
015072 
015102 
015104 
015106 
015112 
015120 
015122 
015122 
015124 
015130 
015134 
015136 
015142 
015146 
015150 
015152 
015156 
015166 
015170 
015170 
015200 
015200 
015202 
015204 
015206 
015210 
015210 
015214 
015220 



010005 
005037 
005004 
012701 
012702 
111100 
042700 
110037 
111203 
042703 
110337 

122122 
001431 
005237 
023727 
101023 

010346 
013746 
013746 
010446 
012746 
012746 
010600 
104415 
062706 

000404 



005204 
020405 
002001 
000717 

013746 
012746 
012746 



.EVEN 

.S6TTL PR6YTEXP 



PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 



ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 

ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 

RO - NUMBER OF BYTES IN BUFFER 

IMPLICIT INPUTS: 



EXPMSG 
RECMSG 



PRBYTEXPi: 

SAVREG 



- EXPECTED MESSAGE BUFFER 
• RECEIVED MESSAGE BUFFER 



002310* 

002312' 
002456' 

177400 
015370' 

177400 
015372' 



002310' 

002310* 000010 



015372' 
015370' 

015236' 
000005 



20»: 



271: 



000014 



002310' 
015323' 
000002 



301 1 
3S»: 



50»t 



MOV 
CLR 
CLR 
HOV 
HOV 
MOVB 
BIC 
MOVB 
MOVB 
BIC 
MOVB 
XOR 
CMPB 
BEQ 
INC 
CMP 
BHI 

PftZNTX 
MOV 
MOV 
HOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

FORCEXIT 
BR 3St 



iSAVE R1-R5 UNTIL NEXT RETURN 

R0.R5 I SAVE NUMBER OF BYTES 

PRMNO tINIT ERROR COUNT 

R4 iNUMBER OF THE CURRENT BYTE 

«EXPMSG.R1 iGET EXPO BUFFER AOORESS 

«RECMSG.R2 iGET RECV BUFFER AOORESS 

(Rl).RO (GET EXPO BYTE 

#tC<377>.R0 iCLEAR UPPER BYTE 

RO.PRBEXP I SAVE FOR ERROR REPORT 

CR2)»R3 iGET RECV BYTE 

«tC<377>.R3 f CLEAR UPPER BYTE 

RS.PR8REC iFOR ERROR REPORT 

R0,R3 tXOR EXPO/RECV 

(R1)».(R2)« lEXPO - RECV? 

301 iBR IF YES 

PRMNO t UPDATE ERROR COUNT 

PRMNO.M. {PRINTED 8? 

30* tBR IF YES 



«PI«HSC.R4.PRBEXP .PRBREC .R3 
RS. -CSP) 



.-(SP) 
PRBEXP.-(SP) 
R4.<(SP) 
«PR8MSG.*(SP) 
♦5.-(SP) 
SP.RO 
CIPNTX 
«14.SP 

50t 



FORCERROR 27 1 . NOTSSR 



INC 
CMP 
BGE 
BR 

PRINTX 
MOV 
MOV 
MOV 



R4 

R4.R5 

501 

201 

•PR8T0T. PRMNO 
PRMNO. -CSP) 
•PRBTOT.-(SP) 
•2. -CSP) 



isao 

iSSO 

i8S0 
tBSO 

iNUMBER OF THE NEXT 
iDONE ALL YET? 
tBR IF YES 
I DO ANOTHER 

tPRINT TOTAL ERROR COUNT 



TSV3 GLOBAL AREAS 
PRBYTEXP 



MACRO M1113 01 FEB 84 I7i54 

PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 



15 



SEO 060 



1086 
1887 
1866 
1689 
1890 
1891 
1692 
1893 
1894 
1695 
1896 
1897 
1896 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 

1907 
1906 



1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 

1927 
1928 



1929 
1930 
1931 
1932 
1933 



015224 
015226 
015230 
015234 

015236 
015323 

015370 
015372 



010600 
104415 

062706 000006 
000207 



HOV 
TRAP 
ADO 
RTS 



SP.RO 
CIPNTX 
•6.SP 
PC 



•RETURN 



045 
045 

000000 
000000 



116 
116 



215 £29^?55' -^SCIZ 'WWA byte M02tfA EXPO: K0S*A RECV: K03«A XOR: «03' 

045 PRO TOT: .ASCI2 '^A NUMBER OF BYTES IN ERROR - *02' 
.EVEN 

PRBEXPt .UORO 0 I EXPO 

PRBRECi .WORD 0 jRECV 

•SBTTL EXPREC - PRINT EXPO/RECV WORD DATA 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS; 



Rl RECEIVED DATA 

R2 EXPECTED DATA 



015374 
015374 
015374 
015400 
015400 
015400 



004737 007642' 



104423 



EXPREC: 



L10017: 



BGNNSG EXPREC 

■ 

JSR PC.PRIXOR 
ENOnSG 



iPftINT THE DATA 



TRAP 



CinSG 



.S6TTL EXPBREC - PRINT EXPD/RECV BYTE DATA 
PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 
It^TS: 

Rl RECEIVED DATA BYTE 

R2 EXPECTED DATA BYTE 



015402 
015402 
015402 
015406 
015406 
015406 



004737 007512' 



104423 



BGItlSG EXPBREC 
EXPBREC;: 

JSR PC.PRIBXOR 
ENOnSG 

L 10020: 

TRAP OnSG 



iPRINT THE DATA 



.SBTTL RAHERR - PRINT RAH AND PACKET DATA 



J5 



TSV5 - GLOBAL AREAS MACRO MlllS 
RAMERR ■ PRINT RAH AND PACKET DATA 



1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
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SEQ 061 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 POINTER TO COmAND PACKET 

IMPLICIT INPUTS: 



RAHDATA 
RANSIZ 



DATA AS READ FROH THE RAH 
NUMBER or BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 8. 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 0 



1954 

1955 



1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1960 

1981 
1982 
1983 



1984 



015410 
015410 

015410 004737 013676' 

015414 

015414 

015414 104423 



RAMERR: 



L 10021: 



BGM1SC RAMERR 

JSft PC.PRAMPKT 
ENOMSG 



I PRINT RAM/PACKET DATA 



TRAP 



CIMSG 



.S8TTL RWfTAOO • PRINT TEST ADDRESS. RAM AND PACKET DATA 

* 

PRINT ROUTINE TO DISPLAY RAN/PACKET DATA 
IM»UTS: 

R4 POINTER TO COMMAND PACKET 

IMPLICIT I»rUTSt 



RAMDATA 
RAMSIZ 

ERRHI 
ERRLO 



DATA AS READ FROM THE RAH 
NUMBER OF BYTES IN PACKET 
IF RAHSIZ-O THEN DEFAULT TO 8. 
HIGH ORDER TEST ADDRESS 
LOU ORDER TEST ADDRESS 



015416 
015416 

015416 004737 010174' 
015422 004737 013676' 
015426 
015426 

015426 104423 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 0 



BGNMSG RAMTADD 
RAMTADD: : 

JSR PC.PRITADD 
JSR PC.PRAMPKT 
ENDMSG 

L 10022: 

TRAP CIMSG 



tPRINT TEST ADDRESS 
tPRINT RAM/PACKET DATA 



K5 



TSV3 GLOBAL AREAS 
RAMTAOO 



1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1996 



_ _ MACRO M1113 01-FE 

PRINT TEST ADDRESS. RAM AND PACKi 



17:54 
r DATA 



■84 



SEQ 06^ 



1999 
2000 
2001 
2002 
2003 



2004 

2005 
2006 
2007 
2006 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 

2016 



2019 
2020 



2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 



015430 
015430 
015430 
015434 
015440 
015444 
015450 
015450 
015450 



042701 177400 

042702 177400 
004737 007766* 
004737 007642' 



104423 



015452 
015452 
015452 
015452 
015456 
015462 
015464 
015466 
015472 
015476 
015476 
015476 



015500 



012746 015500' 

012746 000001 
010600 
104415 

062706 000004 

004737 007642' 



104423 



045 



.SBTTL RAHEXP - PRINT RAM EXPO/RECV DATA 

PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 

Rl RECEIVED DATA 

R2 EXPECTED DATA 

R4 CONTROLLER RAM ADDRESS 



RAMEXP : 



BGNMSG RAMEXP 



116 



045 



L 10023: 



t ♦ 



BIC 
BIC 
JSR 
JSR 

ENOnSG 



♦tC<377>.Rl 
♦tC<377>,R2 
PC.PRIRAM 
PC.PRIXOR 



tSAVE EXPD RAM DATA BYTE 
(SAVE EXPD RAM DATA BYTE 
(PRINT THE RAM ADDRESS 
(PRINT THE DATA 



TRAP C*HSG 



.SBTTL TIMEXP - PRINT TIMER A.B AND EXP/REC 



{PRINT ROUTINE TO DISFLAY EXPQ/RECV DATA 
lAND TIMER A.B HEADER MESSAGE 



I INPUTS: 
t 

» Rl 
t R2 

I - 



RECEIVED DATA 
EXPECTED DATA 



TIMEXP: 



BGM1S6 TIMEXP 



L 10024: 



PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

JSR 

ENDMSG 
TRAP 



•TIMSGO 

♦TIMSGO,-(SP) 

♦l.-(SP) 

SP,RO 

CtPNTX 

#4.SP 

PC.PRIXOR 



CtMSG 



I PRINT HEADER 



tPRINT THE DATA 



TIMSGO: .ASCIZ 
.EVEN 



TIMER A STATUS IS IN BIT S«NtfA TIMER B STATUS IS IN BIT 2 



.SBTTL BAOSSR • PRINT TSSR ERRORS ON DATA TRANSFERS 



I ♦ 
I 



Lb 



MACRO M1115 01 
PRINT TSSR ERRORS ON DATA TRANSF 



TSV5 GLOBAL AREAS 
BAOSSR 



2031 
2052 
2053 
2034 
2055 
2036 
2057 
2058 
2059 
2040 



64 17:54 



SEQ 065 



2041 
2042 
2045 



2044 

2045 
2046 



2047 
2048 
2049 

2050 
2051 
2052 
2055 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2065 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2075 
2074 
2075 
2076 
2077 
2078 



015600 
015600 
015600 
015602 
015606 
015606 
015610 
015614 
015620 
015622 
015624 
015630 
015632 
015636 
015636 
015636 
015640 



010246 

042702 177400 
010246 

012746 015640' 
012746 000002 
010600 
104414 

062706 000006 
012602 

004737 0^ j6S2' 



104423 
045 



116 



PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
INPUTS: 

RI CONTENTS OF TSSR 

R2 DATA URITTEN (8 BITS) 



BADSSR: 



8GNHSG BAOSSR 



L1002S: 
045 XFERASC: 



MOV 
BIC 

PriNTB 

nov 
nov 
nov 

MOV 

TRAP 

AOO 

HOV 

JSR 

ENOnSG 
TRAP 



R2.-(SP) 

♦177400, R2 

•XFERASC.R2 

R2.-(SP) 

♦xrERASC.-(SP) 

♦2.-(SP) 

SP.RO 

CtPNTB 

•6.SP 

(SP)*.R2 

PC.PRZTSSR 



I SAVE DATA TRANSFERRED 
iGET JUST ONE BrTE 



; RESTORE R2 

; DECODE TSSR CONTENTS 



ctnsG 

.ASCIZ 



'MWA 0»t» Transferred * tf03' 



.S8TTL GLOBAL SUBROUTINES SECTION 

!*THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
t THAT ARE USED IN MORE THAN ONE TEST. 
I - - 

.SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 

»♦ 

IrOUTINE TO 00 a SOFT INITIALIZE OF THE CONTROLLER 
iBY URZTING INTO THE TSSR REGISTER. AFTER THE INIT. 
I THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
tOETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 



I INPUTS: 
I 

I R5 

1 OUTPUTS: 
i 

I RO 
t CARRY 
t 



ADDRESS OF FIRST REGISTER 



CONTENTS OF TSSR. IF ERROR 
SET IF INIT UAS OKAY 
CLEAR IF FATAL ERROR 



{CALLING SEQUENCE: 

I MOV «A00RESS.R5 



M5 



TSV5 GLOBAL AREAS 


SOFINIT 


C/KT T 

blF T 


IN 1 T 1 ML J 


2079 






2080 






2081 






2082 






2083 






2084 






2085 


0156 /4 




2086 


015674 




2087 


015700 


012765 


2088 


015706 


004737 


2089 


015712 


016500 


2090 


015716 


010004 


2091 


015720 


AA ^^AA 
042704 


2092 


015724 


AC%*VAA 

052704 


2095 


015730 


020400 


2094 


015732 


001402 


2095 


015734 


000241 


2096 


015736 


000401 


2097 


015740 


000261 


2096 


015742 


AAA OA 7 
000207 


2099 






2100 






2101 






2102 






2103 






2104 






2105 






^ « Af 
2106 






2107 






2108 






2109 






2110 






2111 






2112 






2113 






2114 






otic 
2115 






2116 






2117 






2118 






2119 






« ^A 
2120 


015744 




2121 


015744 




2122 


/\4 C '7CA 

015750 


A 4 AAA^ 

010004 


2125 


015752 


032700 


2124 


015756 


001004 


2125 


015760 


032700 


oi o^ 
2126 


A4 C7£^ 

015764 


AA4 AOV 

001023 


2127 


015766 


AAAA Oil 

000424 


2126 


015770 


AVO^AA 

032700 


2129 


015774 


AA4 A4 4 

001011 




vlD f r O 


AXD7AA 


2131 


016002 


001414 


2132 


016004 


042704 


2133 


016010 


020427 


2134 


016014 


001007 


2135 


016016 


000410 



MA 



FEB -84 17:54 



JSR PC.SOFINIT 
BCS CONTINUE 
ERROF 



iREPORT FATAL ERROR 



SOFINIT: 



100000 
174077 

000200 

000040 

177761 
000016 



SI: 
lot: 



SAVREG t SAVE THE REGISTERS 

MOV ♦O.TSSRCRS) j 00 THE INIT. 

JSR PC.WAITF I WAIT FOR SSR 

HOV TSSR(R5).R0 iGET THE TSSR RCGISTER 

HOV R0.R4 iTSSR CONTENTS 

BIC •tC<HIAD0R!0FL>.R4 

BIS «SSR!NBA.R4 |R4 HAS EXPECTED CONTENTS 

CMP R4,R0 lONLY EXPECTED BITS SET ' 

6EQ SI {BRANCH IF OKAY 

CLC t CLEAR THE CARRY FOR ERROR 

BR 10$ iGO TO EXIT 

SEC tSET THE CARRY BIT 

RTS PC iRETURN TO CALLER 



.SBTTL CMCAMB 



CHECK TSSR FOR AMBIGUITY 



THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
FOR AMBIGUITY 



INPUT: 



RO CONTENTS Of TSSR 



OUTPUT: 



RO CONTENTS OF TSSR 

CMRY SET • NO AMBIGUITY 

CLR - AMBIGUOUS CONTENTS 



CHKAMB: 



SI: 



SAVREG 




iSAVE THE GENERAL REGISTERS 


MOV 


R0,R4 


{CONTENTS OF TSSR 


BIT 


«SC.R0 


lis BIT 15 SET ? 


BNE 


SI 


1 BRANCH IF YES 


BIT 


*»C<NBA!0rL!SSR!HIA00R>.R0 lANY OTHER BITS 


BNE 


401 


iMUST BE AN ERROR 


BR 


451 


t RE TURN WITH SUCCESS 


BIT 


♦SSR.RO 


lis READY BIT SET ? 


BNE 


101 


1 BRANCH IF READY BIT IS SET. 


BIT 


•6IT5.ro 


lis FATAL ERROR BIT SET ? 


BEQ 


401 


1 ERROR IF NOT 


BIC 


«tCTERCLS.R4 


1 CLEAR ALL BUT TERMINATION CODE 


CMP 


R4.416 


lALL THREE BITS MUST BE SET 


BNE 


401 


1 ERROR IF NOT SET 


BR 


451 


tOK IF ALL ARE SET 



N5 
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CMKAMB - CHECK TSSR TOR AMBIGUITY 

000040 

000006 



SEQ 065 



2136 


016020 


032700 


2137 


016024 


001405 


2136 


016026 


032700 


2139 


016032 


001002 


2140 


016034 


000241 


2141 


016036 


000401 


2142 


016040 


000261 


2143 


016042 


000207 


2144 






2145 






2146 






2147 






214o 






2149 












2151 






2152 






2153 






2154 




000200 


2155 




A/\/\tf\A1 


2156 






2157 






^4 CO 

2156 


016044 


OUO 


^ 4 CO 

2159 






04 £ A 

2160 


^ 4 ^ Ail C 

016045 


000 


^4^4 

2161 






2162 






cl63 


016046 


OOOvOO 


^4 £Ji 

2164 






2165 


016050 


000000 


2lDO 






clo7 






clo6 


016052 


010046 


2169 


A4 ^ /\C ^ 

016054 


013700 


cl70 


016060 


012720 


cl r 1 




012720 


cl re 


^^7A 


/\4 0^«<W\ 

012600 




016072 


/\4 A ^ 

011646 


cl74 


016074 


012766 


cl75 


016 102 


000002 








2177 






cl rO 


A1 ^1 /VA 


A4 4 f iif 

011646 


dl r9 


A1 £.1 A^ 


012766 






000002 








OI AO 






OI AT 






OI A^ 


Olollb 




2185 


016116 


012737 


2186 


016124 


10i>037 


2187 


016130 


132737 


2188 


016136 


001003 


2189 


016140 


152737 


2190 






2191 







002200' 
016116' 
000340 



000000 000002 



000340 000002 



000001 

016045' 

000001 

000001 



002214' 
016044' 
016045' 



lot: 


BIT 


«6IT5.R0 


tIS TATAL ERROR BIT SET ? 




BEQ 


45t 


1 ERROR IF BIT IS SET WITH GSR 




RTT 
DX 1 




■ TQ TMTQ A ntfJ/^TTHM DP IPPT 

1 X3 »nx3 n r unc 1 xun hcucl i 




BNE 


45« 


iBR. IF TSSR IS OK 


40t: 


CLC 




iA^eIGU0US CONTENTS 




BR 


sot 




45t: 


SEC 




iSHOU SUCCESS - NO AnBIGUITY 


501: 


RTS 


PC 


t RETURN TO CALLER 




.S8TTL 


ENAINT.OSBINT 


- ENABLE/DISABLE INTERRUPTS 



I DEFAULT DISPLAY INTERRUPT HANDLERS. 

I IF DISPLAY TIME-OUT. REPORT OEV FATAL, AND ABORT PASS. 
I OTHERWISE. SAVE OPU REGISTERS AND DISMISS. 



I BIT DEFINITIONS FOR "INTMASK" AND "INTFLAG" BYTES: 



I0KCK1N-BIT7 
lOKSTP-BITO 



t DON' T CHECK FOR BAD INTERRUPTS - 
I EXPECT "STOP" INTERRUPT. 



TEST WILL. 



{INTERRUPT MASK SAYS EXPECTING INTERRUPTS 
INTMASK: .BYTE 0 

{INTERRUPT FLAG SAYS UE GOT ONE (IF POSITIVE) 
INTFLAG: .BYTE 0 

i SAVED INTERRUPT VECTOR: 
INTVEC: .WORD 0 
tSAVE CPU PC 
INTCPC: .WORD 0 



i SUBROUTINE TO ENABLE INTERRUPTS: 



ENAINT: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



RO.-(SP) 
IVEC.RO 
#INTR.(RO)» 
«PRI07.(R0)* 
(SP)».RO 
(SP).-(SP) 
«0.2(SP) 



I SAVE RO 
iGET POINTER TO VECTORS 
:SET UP INTERRUPT VECTOR 

J RESTORE RO 

sSET CPU TO LEVEL 0 



(SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 



OSBINT: 



MOV (SP).-(SP) 

MOV •PRI07.2(SP) 
RTI 

.SBTTL INTR - INTERRUPT HANDLERS 

BGNSRV INTR i DEFINE INTERRUPT ENTRY 

MOV «1.INTRECV tSET FLAG TO SHOW INTERRUPT RECEIVED 

CLRB INTFLAG i CLEAR FLAG TO SAY WE GOT INTERRUPT 

BITB MOKSTP. INTMASK lEXPECTING STOP INTERRUPT? 

BNE It iBR IF YES 

BISB 4M0KSTP. INTFLAG iNO. SET THE ERROR FLAG. 

tSAVE REGISTERS. MSG BUFFER. ETC. 



INTR:: 



B6 



TSVS GLOBAL AREAS nACftO Nil IS 
INTR INTERRUPT HANDLERS 
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SEO 066 



2192 
2193 



2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
220S 
2204 
2205 
2206 
2207 
2206 
2209 
2210 

2211 
2212 
2213 
2214 
2215 
2216 



016146 
016146 
016146 
016146 



2217 
2216 
2219 
2220 
2221 
2222 
2221 
2224 
2225 
2226 
2227 
2226 
2?29 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 



016150 
016152 
016152 
016154 
016160 
016164 

016166 
016170 
016170 
016174 
016176 
016202 
016204 
016210 
016212 
016216 
016220 
016222 
016224 
016226 
016230 
016232 
016234 



000002 



It: 

L10026: 



ENOSRV 



000401 

104422 
012746 
016500 
105700 

100420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005316 
001356 
000241 
000401 
000261 
005326 
000207 



RTI 
.S8TTL 
SUBROUTINE TO 
INPUTS: 

R5 
OUTPUTS: 
RO 

CARRY 



WAITF . UAIT FOR SUBStSTEH REAQv 
UAIT FOR THE SUBSYSTEM READY FLAG 

ADDRESS OF FIRST DEVICE REGISTER 



CONTENTS OF LAST TSSR READ 

SET • READY BIT SET 

CLR - TIMEOUT WAITING FOR READY 



011000 
000002 



000001 
002116' 
177772 
177756 



II: 
2»: 



Sit 
41: 



BR 


It 


iNOP UHEN SUPER FIXED 


BREAK 




1 DO A SUPVSR BREAK FIRST. 


TRAP 


CtBRK 




NOV 


#11000, (SP) 


I25-APRIL-S3 REV B - 1100 NSEC TINER 


NOV 


TSSR(R5).R0 


iREAD THE TSSR REGISTER 


TST6 


RO 


tTEST FOR READY BIT SET 


BHI 


St 


1 EXIT ON STOP FLAG. 


DELAY 


1 


1 UAIT 100 USEC 


NOV 


•l.CPC)* 




.UORO 


0 




NOV 


LtDLY.CPO* 




.UORO 
DEC 


0 

•6(PC) 




BNE 

DEC 


.-4 

•22CPC) 




BNE 


.-20 




DEC 


(SP) 


iREOUCE DELAY COUNT 


BNE 


2t 


iRETRY UNTIL TIMER EXPIRES 


ac 




t C - 0. CONTROLLER STILL RUMlINC. . . 


BR 


4t 


i..,OR MUNG-UP AFTER 300 MSEC. 


SEC 




1 C - 1. CONTROLLER IS STOPPED. 


DEC 


(SP). 


{RESTORE STACK UITHOUT CHANGING CARRY 


RTS 


PC 





.SBTTL CWTSSR • CHECK TSSR FOR READY 



THIS ROUTINE I '4lTS FOR READY IN THE TSSR 

AND TESTS FOR ."iSIGUOUS BIT SETTINGS IN TSSR. 



INPUT: 



RS 



ADDRESS OF CSR REGISTERS 



OUTPUT: 



C6 



TSV3 



016256 
016236 
016242 
016244 
016250 
016252 
016256 
016260 
016264 
016266 
016270 
016272 
016274 



CHKTSSR 



225S 
2259 
2240 
2241 

2242 
2245 
2244 

2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2255 
2254 
2255 
2256 
2257 
2256 
2259 
2260 
2261 
2262 
2265 
2264 
2265 
2266 
2267 
2266 
2269 
2270 
2271 
2272 
2275 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2285 
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SEQ 067 



RO CONTENTS Of TSSR 

CARRY SET • OKAY 

CLR - NOT READY AMBIGUOUS. OR SC SET 



CHKTSSR I 



004757 


016150* 




JSR 


PC.WAITF 


lUAIT FOR READY 


105014 




BCC 


201 

PC.CHKAMB 


•BRANCH IF TIME OUT 


004757 


015744' 




JSR 


iTSSR AMBIG0US7 


105006 






BCC 


101 


iBR IF YES 


052700 


100000 




BIT 


•SC.RO 


•SPECIAL CONDITION SE1 ? 


001405 






BEQ 


151 


iBR IF NO 


052700 


074000 




BIT 


•<SCEiBIE!Rr 


«!NXM>.RO lANY ERROR BITS SET? 


001402 






BEQ 


151 


iBR IF NO 


000241 




lot: 


CLC 




iSET FAILURE 


000401 






BR 


201 




000261 




15t: 


SEC 




I SET SUCCESS 


000207 




201: 


RTS 


PC 


•RETURN TO CALLER 



.S6TTL XNXM 



CHECK FOR NONEXISTENT MEMORY 



2284 

2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 



016276 
016504 
016512 
016514 
016516 

016520 
016522 
016524 
016SS0 

016552 
016554 
016540 
016542 
016542 
016546 
016350 
016352 
0163S4 
016356 



012757 016552' 000004 

012737 000200 000006 

005005 

000241 

005711 

020102 
001407 

062701 000002 
000772 

005105 

012716 016542' 
000002 

012700 000004 

104436 

005703 

001401 

000261 

000207 



ROUTINE TO TEST FOR A NEXM IN THE RANGE (Rl) THRU (R2). 
ON RETURN. IF "C" - 1. (Rl) - NEXM ADDRESS. 

"C • 0. ALL ADDRESSES OK. 



CALL: 



XNXM: 



II: 



21: 
SI: 



MOV ADRl.Rl 


MOV A0R2.R2 


JSR PC.NXM 


RETURN 


iTI 


MOV 


«2t.8M 


MOV 


•PRI04.0C6 


CLR 


R3 


ac 




TST 


(Rl) 


CMP 


R1.R2 


BEQ 


51 


ADD 


•2.R1 


BR 


11 


COM 


R5 


MOV 


♦51. (SP) 


RTI 




CLRVEC 


•4 


MOV 


«4.R0 


TRAP 


CICVEC 


TST 


RS 


BEQ 


,♦4 


SEC 




RTS 


PC 


.S8TTL 


TSTLOOP 



•TEST "C" AND PROCEED. 

t SET BUSERR VECTOR. 



•FLAG. 

•CLEAR THE CARRY FOR NO NXM FOUND 

•TEST THE AOORESS(ES). 

lIF ANY TRAP. CONTINUE AT 2«. 

t OTHERWISE. CONTINUE HERE. 

•BR IF FINISHED (NO NEXMS). 

•SET NLXT ADDRESS... 

I... WO CONTINUE. 

iGOT ONE. SET FLAG... 

1...AND DISMISS INTERRUPT... 
I... AND GIVE BACK THE VECTOR. 



•DID UE CATCH ONE ?? 

iNO. "C" - 0. SKIP NEXT. 

lYES, "C" • 1. (Rl) - NEXM ADOR. 



D6 



TSV5 GLOBAL ARI 



TSTLOOP 


CHtCK 






2^94 




2295 




2296 




2297 




2296 




2299 




2300 


016360 


2301 


016360 


2302 


016364 


2303 


016366 


2304 


016372 


2305 


016374 


2306 


016400 


2307 


016402 


230o 


016404 


2309 


016406 


2310 


016410 


2311 




2312 




2313 




2314 




2315 




2316 




2317 




2318 




2319 




2320 




2321 




2322 




2323 




2324 




2325 




2326 




2327 




2328 




2329 




2330 




2331 




2332 




2333 




2334 




2335 




c336 




2337 




233o 


016412 


233" 


Olo412 


2340 


01o414 


2341 


016420 










2344 


016434 


2345 


016440 


2346 


016442 


2347 


016446 


2346 


016450 


2349 


016452 



lEAS 
ITEI 



MACRO HI 115 
RATION COUNT 



01 FEB 64 17:54 



SEQ 066 



005737 002160* 
001006 

005737 002174* 
100403 

005337 002206* 

001002 

000241 

000401 

000261 

000207 



SUBROUTINE TO EXECUTE TEST ITERATIONS, 

EXIT WITH "C" SET IF LOOPS ALLOUED AND LOOP COUNT NON-ZERO. 
LOOP COUNTER IS SET BT "BEGIN. TEST" HACRO. 





UUUr 1 V 






TSTLOOP 










■fsT 


NOUS 


1 ITERATIONS INHIBITEO? 




BNE 


11 


1 YES. 




TST 


QVP 


1 NO. 




BMI 


11 


1 LOOPS DISALLOUED IN QUICK PASS. 




DtC 


LOOPCNT 


1 aUMP LOOP COUNTER. 




UNE 


21 




11: 


CLC 




iLOOP OISM.LOUED. OR DONE. 




BR 


SI 




21: 


SEC 




iLOOP ENMBLEO. 


Sli 


RTS 


PC 






.S8TTL 


TSTSETUP 


- PRINT TEST NAHE AND INIT ERROR COUNTS 



PRINT THE NUHBER AND NAHE OF EACH TEST AS ME GO ALONG. 
INCREHENT "TESTK" TO INDICATE THE NUNBER OF TESTS 
IN THE CURRENT RUN SEQUENCE. 

aEM) THE ERROR COUNTER RND SIGNATURE EXTENSION FLAGS. 



II#UT: 



RO 



POINTER TO TEST ID ASCIZ STRING 



OUTPUT* 



R5 



ADDRESS OF FIRST DEVICE REGISTER 

IMPLICIT OUTPUTS! 

TSTCNT UPDATED TO COUNT TESTS PERFQRHED SINCE START OR RESTART 

SIDE EFFECTSt 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



010046 

005037 003144' 
005037 016660' 
005037 005600' 
105037 016044' 
013700 002172' 
006300 

005737 003104' 

001430 

100010 

052760 160000 003166' 



TSTSETUPi J 
HOV 
CLR 
CLR 
CLR 
CLR6 
HOV 
ASL 
TST 
BEQ 
BPL 
BIS 



RO.-(SP) 

SIFLAG 

ERRK 

EXTA 

INTHASK 

UNITN.RO 

RO 

NODEV 
41 
SI 



SAVE THE TEST ID MESSAGE 
CLEAR "SOFT INIT" FLAG 
CLEAR LOCAL ERROR COUNTER. 
CLEAR ERROR EXTENSION FLAG. 
CLEAR INTERRUPT MASK (CHECK ERROR) 
GET THE UNIT NUMBER. 
... AND MAKE IT A UORD OFFSET. 
DID STARTUP FIND THE DEVICE? 
BR IF YES 
BR IF NOT IDLE 



♦160000. ERTABL(RO) i FLAG ERROR IN THE ERROR TABLE 



E6 

TSV5 ' GLOBAL AREAS MACRO Ml I 15 01 -FEB -64 17:54 SEQ 069 

TSTSETUP PRINT TEST NAME AND INIT ERROR COUNTS 



2550 


016460 
016460 
016462 
016464 
016466 


104455 

000001 

005750' 

005544' 








ERRDF 
TRAP 
.WORD 
• WORD 
.WORD 


l.NXR.NXRERR 

CIERDF 

1 

NXR 

NXRERR 


1 NO DEVICE HERE - PRINT IT 


2551 


016470 


000407 








BR 


21 




2552 


016472 


052760 


160001 


005166' 


51: 


BIS 


•160001. ERTABL(RO) i FLAG ERROR IN THE ERROR TABLE 


2555 


016500 
016500 
016502 
016504 
016506 


104455 

000002 

004525' 

000000 








ERRDF 
TRAP 
.WORD 
• WORD 
.WORD 


2,N0INIT 

/« A f AAP 

CIEROF 
NOINIT 


Af ki^^P ^kA T TAi f 

t DEVICE NOT IDLE 


2554 


016510 


012757 


177777 


005102' 


21: 


MOV 


«-1.0UFLG 


AAAA TfcJC l^TT 

t DROP TMt UNIT 


2555 


016516 










DOOU 


IWITN 






016516 


015700 


002172' 






nOV 


■ ^TTkJ AA 

IMITNiRO 






016522 


104451 








▼ AAA 

TRAP 


* AAAl • 

CIDODU 




2556 


016524 
016524 


104444 








DOCLN 
TRAP 


A AAl 

CIDCLN 


AOAOT T^C A ACC 


2557 


016S26 


000425 










5t 




2556 


















2559 


016550 
016550 


104421 






4$: 


RFLAGS 
TRAP 


AA 

RO 

A « A^l A 

CIRFLA 


TUC AAg AA^AA n AAC 

1 GET TME OPERATOR FLAub, 


2560 


016552 


052700 


001000 






ATT 

BIT 


V A A 

fPNT^RO 


1 PRINT THE TEST NUWERb? 


2561 


016556 


001412 








AC A 

BcQ 




AA TtfT k.kA 

t BR IF NO 


2562 


016540 


011600 








MOV 


/ ^ A % AA 

(SPJ.RO 


iGET THE ID MESSAGE 


2565 


016542 
016542 


010046 








AA ▼kjTP 

PRINTF 
MOV 


AY&tAM AA 

^TNAMfRO 

RO, -(SP) 


AT^B« Aw Tk.^ f T TA 

iDISPLAY THE TEST ID 




016544 


012746 


016606* 






MOV 


^TNAMt -CSP) 
♦2, -(SPi 






016550 


012746 


000002 






MOV 






016554 


010600 








MOV 


SP.RO 






016556 


104417 








AA 

1 wAP 


CIPNTF 






016560 


062706 


000006 






AAA 

ADO 


«6.SP 




2564 


016564 


005237 


002204' 




1$: 


INC 


TSTCNT 


1 BUMP TEST COUNTER. 


2565 


016570 










SETPRI 


IPRI 


4PRIORITY THAT OF DEVICE 




016570 


015700 


002202' 






MOV 


IPRI.RO 






016574 


104441 








VA A A 

TRAP 


CtSPRI 




2566 


016576 


005726 






51: 


TST 


(SP)» 


jFIX UP THE STACK 


2567 


016600 


015705 


002176' 






NOV 


CSRA00R.R5 


1 ADDRESS OF TSV REGISTERS ON UNIBUS 


2566 


016604 


000207 








RTS 


PC 




2569 


016606 


045 


123 


045 


TNAM: 


.ASCX2 


•«S«T«A TMt' 




2570 












.EVEN 






2571 


















2572 












.SBTtL 


TSTENO • PRINT 


ERRORS RECEIVED 


2575 










f 








2374 










I AT 


END OF EACH TEST. PRINT THE NUMBER OF ERRORS RECEIVED 


2375 










1 V 


NORMAL ERROR REPORTING IS 


DISABLED (FLA:IER). 


23 7o 










t 








2o77 


016622 








TSTENO: f^LAGS 


RO 
















TRAP 


CIRFLA 




2576 


016624 


030027 


020000 






BIT 


RO,#IER 




2579 


016650 


001412 








BEQ 


11 


1 BR IF "lER" NOT SET. 


2560 


016652 








PRINTF 


•ESUM.ERRK 


1 PRINT ERROR COUNT. 




016652 


015746 


016660' 






MOV 


ERRK.-(SP) 






016656 


012746 


016662' 






MOV 


♦ESUM,-(SP) 






016642 


012746 


000002 






MOV 


♦2.-(SP) 






016646 


010600 








MOV 


SP.RO 






016650 


104417 








TRAP 


CIPNTF 





F6 



TSVS CLOeAL AREAS MACRO Ml 113 01 -FEB 64 17:54 
TSTEND - PRINT ERRORS RECEIVED 



SEQ 070 



2501 
25«2 
2363 
2394 
2385 
2386 
2387 
2386 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2396 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 

2414 
2415 
2416 
2417 



2416 



2419 

2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 



016652 
016656 

016660 
016662 
016701 



016746 
016752 
016754 
016760 
016762 
016766 
016770 
016774 
016776 
017000 
017002 

017004 
017006 
017012 
017014 
017020 
017024 
017030 
017032 
017040 
017042 
017042 
017044 
017050 
017052 
017060 
017060 
017062 
017064 
017066 
017070 
017070 
017074 
017076 
017076 
017100 
017102 



017104 
017106 



062706 000006 
000207 



000000 
045 
105 



101 
122 



040 

122 



11: 

ERRK: 
ESUri: 
EMAXDU: 



AOO 
RTS 

0 

.ASCIZ 
.ASCIZ 
.EVEN 



«6.SP 
PC 

I LOCAL ERROR COUNT. 

/«A ^A ERRORS/ 
/ERROR LIMIT REACHED 



.SBTTL INCERK 



DROPPING UNIT/ 



INCREMENT LOCAL EfMOR COUNT 



I ^ROUTINES 



TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 



016660* 


• 

INCERK: 


INC 


ERRK 


i INCREMENT LOCAL ERROR COUNT 






MOV 


RO.-(SP) 


t SAVE RO 


002172* 




MOV 


UNITN.RO 


1 (XT UNIT NUMBER. 






ASL 


RO 


1 ... AND MAKE IT A WORD OFFSET. 


0OS166* 




ADD 


•ERTABL.RO 


1 RO OEIS ADDRESS OF ERROR TABLE ENTRY. 




INC 


(RO) 


t INCREMENT THE DEVICE ERROR COUNT 


007777 




BIT 


♦7777, CRO) 


1 DID UE OVERFLOU THE FIELD? 






BNE 


1* 


1 BR IF NO 






DEC 


(RO) 


1 YES -- BACK IT UP TO 7777. 




11: 


MOV 


(SP)*,RO 


1 RESTORE RO 






RTS 


PC 


1 RETURN TO CALLER. 




CKEfWX: 


MOV 


RO.-(SP) 


i SAVE RO 


002172* 




MOV 


UNITN.RO 


1 (XI UNIT NUMBER 






ASL 


RO 


1 ... AND MAKE IT A WORD OFFSET 


003166* 




MOV 


ERTABL(RO).RO 


1 OEl ERROR TABLE ENTRY 


170000 




BIC 


•170000. RO 


1 EXTRACT ERROR COUNT FIELD 


002164' 




CMP 


RO.GERRMAX 


1 IS OLOML LIMIT EXCEEDED FOR THIS UNIT? 






BHIS 


11 


1 BR IF YES 


016660* 002162* 




CMP 


ERRK . LERRMAX 


1 IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 






BLO 


2i 


1 BR IF NO 



010046 
013700 
006300 
062700 
005210 
032710 
001001 
005310 
012600 
000207 

010046 

013700 
006300 



103004 
023737 
103417 

104421 

032700 000040 
001013 

012737 177777 003102' 

104455 
000004 
016701* 
000000 

013700 002172' 
104451 

104444 

012600 
000207 



010046 



II: 



2»: 



I 



RFLAGS 
TRAP 
BIT 
BNE 
MOV 
ERRDF 
TRAP 
.WORD 
.WORD 
.WORD 
OOOU 
MOV 
TRAP 
OOCLN 
TRAP 
MOV 
RTS 



RO 
CIRFLA 
•IDU.RO 
21 

♦-1.0UFLG 
4. EMAXDU 
CIEROF 
4 

EMAXDU 
0 

UNITN 

UNITN.RO 

ODODU 

CIDCLN 

(SP)*.RO 

PC 



GET OPERATOR FLAGS 

IS DROPPING INHIBITED? 

BR IF YES. 

NO DROP THE UNIT 



.SBTTL CKDROP 



I RESTORE RO 

I RETURN TO CALLER 

CHECK IF UNIT SHOULD BE DROPPED 



I CHECK IF UNIT SHOULD BE DROPPED 

CKDROP: MOV RO.-(SP) 

FORCERROR It.NOTSSR 



TSV3 GLOBAL AREAS 
CKOROP 



MACRO HU13 01 -FEB 84 17:54 

CHECK IF UNIT SHOULD BE DROPPED 



G6 



SEQ 071 



w ~ w w 


017116 






or LAGS 


RO 




017116 


104421 




TRAP 


CIR^LA 


2430 


017120 


032700 


000040 


BIT 




2451 


017124 


001010 








24 32 


017126 


011600 




MOV 


(SP) RO 


2433 


017130 


012737 


177777 003102' 


liOV 


#-1 DUTLG 


2434 


017136 






DODO 


UNITN 




017136 


013700 


002172' 


MOV 


UNITN.RO 




017142 


104451 




TRAP 


ClOOOU 


2435 


017144 






OOCLN 


1 ABORT THE PASS 




017144 


104444 




TRAP 


CIDCLN 


2436 


017146 


012600 


It: 


MOV 


(SP)»,RO 


2437 


017150 


000207 




RTS 


PC 


2438 












2439 








.SBTTL 


CONFIG - DETERMINE CONFIGURATION OF SYSTEH 



2440 
2441 
2442 

2443 017152 

2444 017152 

2445 017156 
2446 

2447 
2448 
2449 
2450 

2451 017160 

2452 017164 

2453 017166 

2454 017174 
2455 

2456 
2457 
2458 
2459 
2460 



2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 



017176 
017202 
017204 
017206 
017210 
017216 



004737 
000207 



005737 
001403 
012737 
000207 



005737 
001405 
000240 
000240 
012737 
000207 



015674' 



003122' 
000001 



177572 



003122' 



000000 177572 



I SUBROUTINE - DETERMINE CONFIGURATION OF TSU05 SrSTEH. 



CONFIG: 



JSR 
RTS 



PC.SOFINIT 
PC 



.SBTTL KTON.KTOFF 
! SUBROUTINE - ENABLE HEH MGT. 



KTON; 



It: 



TST 
BEQ 
MOV 
RTS 



KTFLG 
It 

«1.SR0 
PC 



ENABLE/DISABLE MEMORr MANAGEMENT 



I GOT KT? 
I NO. 

I YES. ENABLE KTll. 



SUBROUTINE • DISABLE MEM MGT. 



KTOFFt 



It: 



TST 
BEQ 
NOP 
NOP 
MOV 
RTS 



KTFLG 
It 



•O.SRO 
PC 



; GOT KTll? 
> NO. 



DISABLE KT. 



.SBTTL SETMAP • SETUP PAR6 MAPPING 

t ♦ 

IthIS routine SETS UP KERNEL PAR6 TP HANDLE 
lAN 22 BIT ADDRESS. THE OFFSET INTO THE PAGE 
lis RETURNED BIASED TO PAR6. 

! INPUTS: 
t 

I RO 
» Rl 

! OUTPUTS: 



HIGH ORDER ADDRESS BITS 
LOU ORDER ADDRESS BITS 



H6 



TSV3 GLOBAL AREAS MACRO Ml I 13 

SETMAP SETUP PAR6 MAPPING 

3*62 
2463 
24S4 
2465 
2466 

2467 017220 
2466 017220 

2469 017224 005757 003122' 

2490 017230 001433 

2491 017232 010102 

2492 000006 
2493 

2494 
2495 

2496 017264 042701 000177 

2497 017270 0201S7 003122' 

2498 017274 103011 

2499 017276 010137 172354 

2500 017302 042702 160000 

2501 017306 062702 140000 

2502 017312 010200 

2503 017314 000261 

2504 017316 000401 

2505 017320 000241 

2506 017322 000207 
2507 

2506 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 

2524 017324 

2525 017324 

2526 017330 004737 017176' 

2527 017334 010003 

2528 017336 013701 003114' 

2529 017342 013702 003116' 

2530 017346 010321 

2531 017350 005302 

2532 017352 003375 

2533 017354 005737 003122' 

2534 017360 001502 

2535 017362 004737 017160' 

2536 017366 005000 

2537 017370 013701 003142* 

2538 000006 



01 PEB 64 17:54 



RO 

CARRY 



SEQ 072 



OFFSET INTO BLOCK UITH PAR6 BIAS (I.E. 
SET IF SUCCESS 
CLR IF ERROR 



THE ADDRESS) 



SETMAP: 



10«: 
15«: 



SAVREG 

TST 

BEQ 

MOV 

.REPT 

ASR 

ROR 

.ENDR 

SIC 

CMP 

BHIS 

HOV 

SIC 

MOD 

HOV 

SEC 

BR 

CLC 

RTS 



KTFLG 

lot 

R1.R2 
6 

RO 
Rl 

♦177.R1 
Rl, KTFLG 
10« 

R1.BM(IPAR6 
«160000.R2 
•140000.R2 
R2.R0 

15« 

PC 



I SAVE R1-R4 UNTIL NEXT RETURN 
i SYSTEM HAVE ABOVE 28K? 
iBR IF NO 

I SAVE LOU ORDER BITS 

I CONVERT WORD ADDRESS TO S2W BLOCKS 
(MAKE IT DOUBLE PRECISION 

I ALINE FOR LOUER 4K BOUNDARY 
I HIGHER THAN EXISTING MEMORY? 
I BR IF YES 

I SETUP MAPPING REGISTER PAR6 
(SETUP DISPLACEMENT IN PAGE 
I ADD IN PAR6 BIAS 
{RETURN IN RO 
tSET SUCCESS 

I SET FAILURE 
{RETURN 



.SBTTL FILUCn - FILL MEMORY UITH BACKGROUND PATTERN 
FILL MEMORY UITH A BACKGROUND PATTERN 
KffUTSt 

RO • BACKGROUND PATTERN 



FREE 
KTFLG 

OUTPUTS: 

NONE 



- FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
• SET TO HIGHEST MEMORY LOCATION IF > 28K. 



FILLMEHi 



10«t 



SAVREG 
JSR 
MOV 
HOV 
HOV 
HOV 
DEC 
BGT 
TST 
BEQ 
JSR 
CLR 
HOV 
.REPT 



tSAVE R1-R5 UNTIL NEXT RETURN 

PC.KTOFF {DISABLE KT. 

R0,R3 iCOPY TEST PATTERN 

FREE.Rl tGET FIRST FREE LOCATION 

FRESIZ.R2 tSIZE OF FREE SPACE BELOW 28K. 

R3,(R1)» iSTORE A BACKGROUND UORD 

R2 I DONE ALL HEHORY IN FREE SPACE? 

10« iBR IF NO 

KTFLG I GOT KT? 

SSI i NO. GET OUT. 

PC.KTON » YES. ENABLE KT. 

RO IHIGH ORDER ADDRESS START 

PST32U.R1 iGET >28K START ADDRESS (IN 32U BLOCKS) 
6 



16 

TSV3 GLOBAL AREAS MACRO Ml I 13 01 -FEB -84 17:54 

FILLMEM FILL MEMORY UITH BACKGROUND PATTERN 



2539 












CLC 




CLEAR C BIT 


2540 












ROL 


Rl 1 


CONVERT BLOCKS TO WORDS 


2541 












ROL 


RO ) 


MAKE IT DOUBLE PRECISION 


2542 












.ENDR 






2543 


017440 


004737 


017220' 






JSR 


PC.SETMAP \ 


4*P Vi W% B AB^ MABB V&k^ BP ^ V O TP n 

SETUP PAR6 MAPPING REGISTER 


2544 


017444 


010320 






301: 


MOV 


R3,(R0)* 1 


4*V#^BP TP^T BATVPB&i ^ «\A&^ Jl.l%J%B.g" J* J* 

[STORE TEST PATTERN IN >28K ADDRESS 


2545 


017446 


020027 


160000 






CMP 


RO, #160000 j 


p ^ tf% o AB^ MABBT&A^ ABP A 1 

lENO Or PAR6 MAPPING AREA? 


2546 


017452 


103774 








BLO 


30$ 


BB T C" ftjB 

iBR IF NO 


2547 


017454 


162700 


020000 






SlA 


#20000 • RO 


BA^l^lIB Y^TB B AB^ MABBV^i^ BP/*V^ 

(BACKUP INTO PAR6 MAPPING BEGIN 


2548 


017460 


062737 


000200 


172354 




ADD 


#200 • 0#K IP AR6 


(POINT TO NEXT 4K BLOCK >28K. 


2549 


017466 


013705 


003122* 






MOV 


KTFLG|R5 


iGET VALUE FROM MEMORY SIZER 


2550 


017472 


042705 


170000 






BIC 


#170000 .RS 


lONLY 18 BITS PASS 


2551 


017476 


023705 


172354 






CMP 


8#KIPAR6»R5 


kEND Or MEMORY? 


2552 


017502 


001427 








BEQ 


501 


BB TP 

iBR IF YES 


2553 


017504 


005737 


003134' 






TST 


T25A 


BBB^f <* 0 BB ▼ w Bf A 

1 PROCESSOR TYPE A 


2554 


017510 


001407 








BEQ 


351 


|N0 KEEP GOING 


2555 


017512 


013704 


177572 






MOV 


SRO • R4 


iGET SRO CONTENTS 


2556 


017516 


042704 


177761 






BIC 


#177761, R4 


CAO Al 1 Ol IT BA#*g MOCD 

1 CLE AN Fix. BUT PAbc MjnocR 


2557 


017522 


022704 


000016 






CMP 


#16 •R4 


iSEE IF PAGE 7 


2558 


017526 


001415 








BEQ 


CB A 

501 


lEXIT IF THERE 


2559 


017530 


005737 


003136' 




35s : 


TST 


T23B 


I PROCESSOR TYPE B 


2560 


017534 


001410 








BEQ 


451 


SNO KccP uUiNU 


2561 


017536 


023727 


172354 


007600 




CMP 


S#K IPARe • ^7600 


«tt OTTO 

{REACHED 16 BITS? 


2562 


017544 


103001 








BHIS 


40 1 


lYES 


2563 


017546 


000403 








BB 

BR 


4S> 


iNO KEEP GOING 


2564 


017550 


012737 


000020 


172516 


401: 


NOV 


#20.SR3 


tSET MMU RELOCATION 


2565 


017556 


000137 


017444* 




4St: 


JMP 


30) 


iKEEP GOING ON ETC. 


2566 


017562 


004737 


017176' 




S0«: 


JSR 


PC.KTOFF 


1 DISABLE KT. 


2567 


017566 


000207 






SSI: 


RTS 


PC 




2566 


















2569 












.SBTTL 


CMPMEM • COMPARE MEMORY TO BACKGROUND PATTERN 


2570 










1 ♦ 








2571 










t COMPARE MEMORY UITH A BACKGROUND PATTERN 


2572 


















2573 










1 INPUTS: 






2574 


















2575 












RO - BACKGROUND PATTERN 




2576 












FREE 


- FIRST LOCATION 


AVAILABLE TO DIAGNOSTIC 


2577 












KTFLC 


• SET TO HIGHEST 


MEMORY LOCATION IF > 28K. 


2578 


















2579 










I OUTPUTS; 






2580 


















2581 












CARRY 


- SET IF NO ERROR 


2582 












CMRV 


• CLR IF ERROR 




2583 


















2584 










s IMPLICIT OUTPUTS: 




2585 


















2586 












ERRHZ 


• ERROR HIGH ADDRESS 


2587 












ERRLO 


- ERROR LOU ADDRESS 


OOO 












EXPO 


- EXPECTED DATA 




2589 












RECV 


• RECEIVED DATA 




2590 


















2591 


017570 








CMPMEM: 






jSAVE R1-R5 UNTIL NEXT RETURN 


2592 


017570 










SAVREG 




2593 


017574 


010003 








MOV 


R0.R3 


iCOPY TEST PATTERN 


2594 


017576 


004737 


017176' 






JSR 


PC.KTOFF 


{DISABLE KT. 


2595 


017602 


013701 


003114' 






NOV 


FREE.Rl 


I GET FIRST FREE LOCATION 



TSV3 - GLOBAL AREAS MACRO M1113 01 FEB -84 17:54 
Cr*>HEn - COr«>ARE MEMORY TO BACKGROUND PATTERN 



J6 



SEQ 074 



2596 


017606 


013702 


003116' 




MOV 


FRESIZ.R2 


2597 


017612 


020311 




101: 


CMP 


R3.(R1) 


2598 


017614 


001411 






BEQ 


151 


2599 


017616 


010137 


002230' 




MOV 


RI.ERRlO 


2600 


017622 


005037 


002226' 




CLR 


ERRHI 


2601 


017626 


010357 


002222' 




MOV 


R3,EXP0 


2602 


017632 


011137 


002224' 




MOV 


(Rl).RECV 


2603 


017636 


000474 






BR 


501 


2604 


017640 


005721 




15%: 


TST 


CR1)» 


2605 


017642 


005302 






DEC 


R2 


2606 


017644 


003362 






BGT 


101 


2607 


017646 


005737 


003122' 




TST 


KTFLG 


2608 


017652 


001472 






BEQ 


551 


2609 


017654 


004737 


017160' 




JSR 


PC.KTON 


2610 


017660 


005000 






CLR 


RO 


2611 


017662 


013701 


003142' 




MOV 


PST32U,R1 


2612 




000006 






.REPT 


6 


2613 










RX 


Rl 


2614 










ROL 


RO 


2615 










• ENDR 




2616 


017716 


042701 


000177 




SIC 


♦177, Rl 


2617 


017722 


010046 






MOV 


RO. -(SP) 


2618 


017724 


010146 






MOV 


Rl» -CSP) 


2619 


017726 


004737 


017220' 




JSR 


PCtSETMAP 


2620 


017732 


010004 






MOV 


R0,R4 


2621 


017734 


012601 






MOV 


(SP)»,R1 


2622 


017736 


012600 






MOV 


(SP)».RO 


2623 


017740 


020314 




SOI: 


CMP 


R3,(R4) 


2624 


017742 


001411 






BEQ 


321 


2625 


017744 


010037 


002226' 




MOV 


RO, ERRHI 


2626 


017750 


010137 


002230' 




MOV 


Rl.ERRLO 


2627 


017754 


010337 


002222' 




MOV 


RS.EXPO 


2628 


017760 


011437 


002224 ' 




MOV 


(R4),RECV 


2629 


017764 


000421 






BR 


501 


2630 


017766 


062701 


000002 


32$: 


ADD 


♦2.R1 


2631 


017772 


005500 






ADC 


RO 


2632 


017774 


062704 


000002 




ADO 


#2,A4 


2633 


020000 


020427 


160000 




CMP 


R4. #160000 


2634 


020004 


103755 






BLO 


SOI 


2635 


020006 


162704 


020000 




SUB 


♦20000, R4 


2636 


020012 


062737 


000200 


172354 


ADO 


#200.S#KIPAR6 


2637 


020020 


023737 


172354 


003122' 


CMP 


WKIPAR6,KTFL6 


2638 


020026 


101744 






BtOS 


301 








'71 7iC fl 


501 ; 


JSR 


rC»KTOr F 


2640 


020034 


000241 






CLC 


2641 


020036 


000403 






BR 


60 « 


2642 


020040 


004737 


017176' 


551: 


JSR 


PC .K TOFF 


2643 


020044 


000261 






SEC 


2644 


020046 


000207 




601: 


RTS 


PC 


2645 












2646 










•SBTTL 


REGSAV - SAVE 



2647 
2648 
2649 
2650 
2651 
2652 



SIZc OF FREE SPACE BELOW 28K. 
FREE SPACE LOCATION EQUAL TO EXPO? 
BR IF YES 

SAVE ADDRESS IN ERROR 
NO HIGH ADDRESS 
SAVE EXPO FOR ERROR REPORT 
SAVE RECV FOR ERROR REPORT 

POINT TO NEXT ADDRESS 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS (IN S2U BLOCKS) 

CONVERT BLOCKS TO WORDS 
HAKE IT DOUBLE PRECISION 

ALINE 4K BOUNDARY 

SAVE HIGH ORDER 

SAVE LOW ORDER 

SETUP PAR6 MAPPING REGISTER 

COPY ADDRESS BIASED TO PAR6 

RESTORE LOW ORDER IN NON PAR6 FORMAT 

RESTORE HIGH ORDER IN NON PAR6 FORMAT 

ABOVE 26K LOCATION EOUAL EXPD? 

BR IF YES 

SAVE HIGH ORDER IN ERROR 
SAVE LOW ORDER IN ERROR 
SAVE EXPD FOR ERROR REPORT 
SAVE RECV FOR ERROR REPORT 

UPDATE NON PAR6 ADDRESS 
MAKE IT DOUBLE PRECISION ADD 
UPDATE PAR FORMAT ADDRESS 
END OF PAR6 HAPPING AREA? 
BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 
POINT TO NEXT 4K BLOCK >28K. 
END OF MEMORY? 
BR ir NO 

TURN OFF MEMORY MAPPING 
SET FAILURE 

TURN OFF MEMORY MAPPING 
SET SUCCESS 



SAVE R1-R5 ON STACK 



I ♦ 
I 



•ROUTINE TO 
iSAVE Rl THROUGH R5 ON THE STACK 

I CALLING SEQUENCE: 



Kb 



TSV3 GLOBAL AREAS MACRO Ml I 13 
REGSAV SAVE R1-R5 ON STACK 



2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 



Ol-FEB-84 17:54 



SEQ 075 



020050 
020050 
020052 
020054 
020056 
020060 
020062 
020066 
020070 
020072 
020074 
020076 
020100 
020102 



010446 
010346 
010246 
010146 
010546 

016605 000012 

004736 

012601 

012602 

012603 

012604 

012605 

000207 



020104 
020104 
020110 
020110 
020112 
020114 
020116 
020120 
020122 
020124 



104443 

000406 

020140' 

000022 

020142' 

000377 

000000 



JSR 



RS. REGSAV 



I 
< 

IthIS is a COOROUTINE UIHZCH TRANSFER CONTROL BACK TO 
{THE CALLING ROUTINE. AT THE END OF THE PALLING ROUTINE. 
I THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
{REGISTERS. 

IthIS routine should only be CALLED FROM ROUTINES WHICH ARE 

iCALLED VIA A JSR PC INSTRUCTION 

I 

I - 



REGSAV: 



MOV 


R4,-(SP) 


NOV 


R3.-(SP) 


NOV 


R2.-(SP) 


nov 


Rl.-CSP) 


MOV 


R5,-CSP) 


nov 


10.(SP).R5 


JSR 


PC.»(SP)» 


nov 


(SP)»,Rl 


nov 


(SP)*.R2 


nov 


CSP)».R3 


nov 


(SP)..R4 
(SP)».R5 


nov 


RTS 


PC 



.SBTTL GCTPAT - GET 6 BIT PATTERN FROM OPERATOR 

ROUTINE TO REQUEST AN B BIT DATA PATTERN FRON THE OPERATOR 
INPUTS: 

NONE * 
OUTPUTS: 

RO OCTAL NUMBER FROM THE OP^'RATOR 

CALLING SEQUENCE: 

JSR PC.GETPAT 



GETPAT: 
lit 



SAVREG I SAVE THE GENERAL REGISTERS 

GMANID OATASC.PATOAT. 0.377.0. 577.no 

TRAP CtGMAN 

BR 10000 t 

.WORO PATDAT 

.WORO TtCOOE 

.WORD OATASC 

.WORD 577 

.WORD TILOLin 



L6 
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'lETPAT GET 6 BIT PATTERN FROM OPERATOR 



SEQ 076 



2705 

2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2715 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2725 
2724 
2725 
2726 
2727 
2728 
2729 
2750 
2751 
2752 
2755 
2754 
2755 
2756 
2757 
2758 



020126 
020150 
020150 
020150 
020152 
020136 



020140 
020142 



2759 
2740 



2741 



020166 
020166 
020172 
020174 
020176 
020200 
020202 
020202 
020204 
020210 
020214 
020216 
020220 
020224 
020226 
020226 
020250 
020232 
020234 
020256 
020240 
020242 
020244 
020246 
020246 



000577 



105567 

015700 020140' 
000207 



lOOOOt: 



.WORD 



T»HILIM 



BNCOMPLETE 1« 
BCC U 
HOV PATOAT.RO 
RTS PC 



I LOCAL DATA AREA 
I- 



000000 
105 



116 



124 



PATOAT: .UORO 
OATASC: .ASCIZ 
.EVEN 



I RE TRY IF ERROR 

(DATA PATTERN FROM OPERATOR 
{RETURN TO CALLER 



(TEMPORARY STORAGE FOR DATA 



ENTER DATA PATTERN' 
.SBTTL GETSEL - ISSUE NENU AND GET OPERATOR RESPONSE 



ROUTINE TO ISSUE A MENU AND GET 
THE OPERATOR'S RESPONSE. 



INPUTS: 



OUTPL 



RO 
Rl 



RO 



ADDRESS OF ASCIZ STRING OF MENU 
MAXIMUM ALLOWABLE OPERATOR RESPONSE 



NUMBER OF THE OPERATOR'S SELECTION 



GETSEL:: 



010002 
010203 
005713 
001412 

012346 

012746 020352' 
012746 000002 
010600 
104417 

062706 000006 
000764 

104443 

000406 

020406' 

000042 

020357' 

177777 

000000 

177777 



It: 
21: 



3t: 



100011: 



SAVREG 
NOV 

MOV 

TST 

BEQ 

PRINTF 

«0V 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

GMANIO 

TRAP 

8R 

.WORD 
.UORD 
.WORD 
.UORD 
.WORD 
.WORD 



R0.R2 
R2.RS 
(R3) 
31 

•SELASC.(R3)» 
(R3)».-(SP) 
♦SELASC.-(SP) 
♦2.-(SP) 
SP.RO 
CtPNTF 

♦6.SP 
2t 

MENASC . HCNRES . 0 . - 1 . 0 . 

CtGMAN 

10001$ 

MENRES 

TICOOE 

MENASC 

-1 

TILOLIM 
TIHILIM 



I SAVE GENERAL REGISTERS 
I SAVE THE MENU AOORESS 
I START OF MENU STRING 
lENO OF ASCII ? 

I BRANCH IF ALL LINES DISPLAYED 
t DISPLAY THE MENU 



l.NO 



BNCOMPLETE 



1» 



(RETRY IF ERROR 
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GETSCL ISSUE MENU AND GET OPERATOR RESPONSE 



M6 



SEQ 077 





020246 


105552 








BCC 


11 




2742 


020250 


015700 


020406' 






MOV 


MENRES. RO 


(GET THE OPERATOR'S REPLY 


2743 


020254 


020001 








CMP 


RO.Rl 


(COMPARE TO MAXIMUM ALLOWED 


2744 


020256 


101411 








BLOS 


SI 


tBRANC*^ IF OK 


2745 


020260 










PRINTF 


«MENERR 


lOISPLAY ERROR MESSAGE 




020260 


012746 


020304' 






MOV 


•MENERR. -(SP) 






020264 


012746 


000001 






MOV 


n,-CSP) 
SP.RO 






020270 


010600 








MOV 






020272 


104417 








TRAP 


CIPNTF 






020274 


062706 


000004 






ADO 


♦4,SP 




2746 


020300 


000735 








BR 


1« 


t RE TRY 


2747 


020302 


000207 






5«: 


RTS 


PC 


i RETURN TO CALLER 


2748 


020304 


045 


116 


045 


MENERR: 


.ASCIZ 


'tfNKA *** M«nu 


S«l«etion Too Larg* *««' 


2749 


020352 


045 


116 


045 


SELASC: 


.ASCIZ 


•#Ni»T' 


2750 


020357 


105 


156 


164 


HENASC: 


.ASCIZ 


'Ent«r M«nu ScUetiont 


2751 












.EVEN 






2752 


020406 


000000 






MENRES: 




.WORD 0 





2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 

2776 020410 

2777 020410 

2778 020414 
020414 

2779 020416 
020416 

2780 020420 
020420 
020424 
020430 
020432 
020434 
020440 
020442 



2781 
2782 
2783 
2784 
2785 



020444 



.SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 

ROUTINE TO TEST FOR MANUAL IHt-PV€NT10N LEGALITY. 
INPUT: 



NONE • 



OUTPUT: 



CARRY 



SIDE EFFECTS: 



0 MANt^ INTERVENTION NOT ALLOUED 

1 MANUAL INTERVENTION IS OK 



A MESSAGE IS DISPLAYED MARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOUED. 



CHKHANi : 



104450 
103411 

012746 020444' 
012746 000001 
010600 
104417 

062706 000004 

000241 

000207 



SAVREG 
MANUAL 

TRAP CIMANI 
BCOHPLETE U 



045 



116 



045 



1«: 

NOMAN: 



ecs 

PRINTF 
MOV 

nov 

MOV 

TRAP 

ADO 

CLC 
RT'o 

.ASCIZ 
.•von 



1> 
•NOMAN 

•NQHAN.-(SP) 

•l.-CSP) 

SP.W 

CtPNTF 

•4,SP 

PC 



;SAVE THE REGISTERS 

(SEE IF MANUAL INTERVENTION OK 

I BRANCH IF ALLOUED 

(PRINT THE UARNING MESSAGE 



I CLEAR CARRY FOR ERROR 
(RETURN 



'tfHtKA *** Manual Intervention not Allotted Test Aborted 



N6 
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CHKMAN 
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CHECK MANUAL INTERVENTION LEGALITY 



SEQ 078 



2786 
2787 
2788 
2789 
2790 
2791 

2792 
2795 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2325 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 



020540 
020540 
020542 
020546 
020554 
020560 
020566 
020572 
020600 
020602 
020604 
020610 
020614 
020620 
020624 



020626 
020626 
020632 
020636 
020644 
020646 
020654 
020656 
020662 
020670 
020674 
020676 
020704 
020712 
020716 
020720 
020724 
020732 
020734 
020740 
020744 
020746 
020752 

020754 
020760 



104431 
010037 
062737 
011037 
162737 
013702 
162737 
005302 
001373 
013700 
063700 
162700 
010037 
000207 



005037 
005037 
023727 
101453 
023727 
101447 
013700 
012737 
005737 
000240 
013737 
042737 
010037 
005000 
012701 
012761 
010021 
062700 
020027 
001367 
012741 
000410 

012716 
000002 









,SBTTL 


ENVIRN - SETUP 


FREE DIAGNOSTIC SPACE 






1 SUBROUTINE TO 


SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 






i 

ENVIRN: 


MEMORY 


RO 










TRAP 


CIMEM 










MOV 


RO.FREE 


1 GET 1ST FREE ADDRESS... 


WWVc 








SO PDPP 










MOV 


(RO).FRESIZ 


t...AND UORD COUNT. 








SUB 


•4,FRESIZ 




002012* 






MOV 


L»UNIT.R2 


1 GET NUMBER OF UNITS 


000007 


003116' 


10»: 


SUB 


♦7,FRESIZ 


I TAKE AWAY 7 WORDS PER UNIT 








DEC 


R2 










BNE 


101 




003114' 






MOV 


FREE.RO 


(GET FIRST FREE ADDRESS 


003116' 






ADD 


FRESIZ.RO 


t POINT TO LAST FREE ADDRESS 


000002 






SUB 


«2.R0 


{BACKUP 1 WORD 


003120' 






MOV 


RO.FREEHI 


1 STORE LAST FREE ADDRESS 






401: 


RTS 


PC 


tRETURN 








.S6TTL 


KTINIT - SETUP 


KTll MEMORY MANAGEMENT REGISTERS 



003122' 
003124* 
002120' 

002120' 

000004 

020754' 

177572 

002120' 

000177 

000004 

172340 
077406 

000200 
002000 

177600 



020770' 



I ♦ 

Iroutine to INir KT-11 
I 

i - 

KTINIT: 



001577 
001777 

000004 



003122' 
003122' 



177740 II: 



020762 012716 021016' 



2t: 



SI: 



CLR 


KTFLG 


s INIT >28K MEMORY FLAG 


CLR 


KTENABLE 


1 INIT TEST >28K FLAG 


CMP 


L$HIME.*1S77 


: GOT ENOUGH MEMORY (>28K)? 


BLOS 


91 


t NO. 


CMP 


LIHIME.#1777 


1 GOT ENOUGH MEMORY (>32K)? 


BLOS 


9t 


i NO. 


MOV 


baerrvec.ro 


: SAVE OLD ERR VEC PTR. 


MOV 


*2l.8«ERi)VEC 


1 SET ERR VEC PTR. 


TST 


StSRO 


: GOT KTll? 


NOP 




: (TRAP IF NO). 


MOV 


LIHIME. KTFLG 


t YES. SET KT FLAG. 


BIC 


♦177, KTFLG 




MOV 


RO.SfERRVEC 


! RESTORE OLD ERR VEC PTR. 


CLR 


RO 


1 RO - AR DATA. 


MOV 


•KIPARO.Rl 


J Rl - KI REGS PTR. 


MOV 


#77406. -40(R1) 


1 SET DESCRIPTOR REG. 


MOV 


RO.CRD* 


i SET KIPAR REG. 


ADO 


«200,R0 


1 BUMP AR DATA BY "4K". 


CMP 


R0.«2000 


I AT "I/O"? 


BNE 


1* 


} NO. 


MOV 


*177600.-(R1) 


) YES. SET KTPAR7 FOR I/O. 


BR 


9t 




MOV 


#61. (SP) 


J SET UP RETURN 


RTI 


; RTI TO NEXT LOCATION 


MOV 


noi.csp) 


» SET UP RETURN 



B7 



TSVS GLOBAL AREAS 
KTINIT 
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SETUP KTll MEMORY MANAGEMENT REGISTERS 



0l-FEB-a4 I7t54 



SEQ 079 



2S42 
2845 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 

2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2681 
2682 
2884 
2886 
2687 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 



020766 000002 

020770 010037 000004 



020774 
020774 
021000 
021006 
021014 
021016 
021022 



021024 

021024 
021030 
021032 
021040 
021046 
021054 
021062 
021066 
021072 



021074 

021100 
021102 
021104 
021106 



021110 
021112 
021114 



6t: 
91: 



013700 000004 

012737 020762' 000004 

042737 OOOOOl 170200 
000240 

010037 000004 lOt: 
000207 



RTI 
NOV 



MOV 
MOV 
BIC 
NOP 
MOV 
RTS 



RO.0«ERRVEC 



B4ERRVEC.ro 

•SI.8«€RRVEC 

•6XT0.B«MMR0 

R0.B«ERRVEC 
PC 



I RTI 70 NEXT LOCATION 

I RESTORE OLD ERR VEC PTR. 



I SAVE OLD ERR VEC PTR. 

I SET ERR VEC PTR. 

I BE SURE UNIBUS MAP IS OFF 



I RESET VECTOR BACK TO ERROR POINTER 



005737 
001020 
012737 
012737 
012737 
012737 
012704 
004737 
000207 



000000 
000000 
000000 
000000 



000000 
000000 
000000 



SUBROUTINE TQ SET EXTENDED FEATURES SUITCh 

R^quiPM that SOFINIT and URTCHR *%mv b—n dot** previous to call. 



X»^TSt 

RS 

OUTPUTS ( 

Tha EKta n d a d Taaturaa Sttitch aat. 



CURMENT UNIT NUMBER 



INVERT:! 



002216* 

100206 021100* 
021110' 021102' 
000006 021106' 
100010 021110' 
021100* 
010562' 



TST EXTTEA 

BNt II 

NOV n00206.DOPKT 

MOV • MS I« K .OCPKT»2 

NOV ««.CH0PKT*6 

NOV noooio.ysMBK 

MOV 4CMDPKT.R4 

JSR PC. URTCHR 

RTS PC 



COrtMNO PACKET. 
.BLKB lO-<.-TSV2t7> 



IS SUITCH SET? 

TES.EXIT STAGE RIGHT !(or the 

URT SUB-STS rtn CMD 

MSG BUT AOOR 

BYTE COUNT 

INVERT THE SUITCH 

SET OVPKJ INTO R4 

DO IT 

RETURN 



n«Ht on* outa tOM 



CMDPKT:: 0 
0 
0 
0 



(1ST UORD IS TS05 COrVMNO. 
l2N0 UORD IS THE BUFFER LOU AOORESS. 
1 3RD UORD IS THF BUFFER HIGH ADDRESS. 
|4TH UORD IS THE BYTE /RECORD/FILE COLMT. 



URITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 



USMBK: 



0 
0 
0 

.EVEN 



1 1ST UORD:: SEL 0 
|2ND UORD:: SEL 2 
i3RD UORD:: SEL 4 



C7 



7:54 



SEQ 080 



2901 
2902 
2905 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2915 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2925 
2924 
2925 
2926 
2927 
2928 
2929 
2950 
2951 
2952 
2955 
2954 
2955 
2956 
2957 
2958 
2959 
2940 
2941 
2942 



2943 
2944 

2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 



SUBROUTINE TO CHECK UETHER OR NOT UE'LL TEST NXH 



INPUTS! 

OUTPUTS: 

Th« NXMFLG Mt if m« 
Th« NXHLO and NXMHI 



can t««t. 

•ra Mtup. 



021116 








HtnCK : ; 








021116 














. CAUC TMC DCflTCTCBC 


021122 


005057 


AAV % » 






Cl D 




• n PAD Tur n Afl 

iwucwf inc ^uMU 


021126 


005057 








n D 




• n PAO Tfc^ TPCT Annopcc i n 

1 WUC 1 nc 1 C9 I 


021152 


005037 


AAV 4 1 

003132 










.^1 CAD Tft^ TPCT AIV1DCCC kJT 


021136 


032737 


1 7AAAA 

170000 


AA0 1 9A < 

002120 




DTT 


A1 7AAAA 1 AMTBiC 

#1 r OOOO • L f nine 


m^^K^W COD MfiOr TUAftI lA DTTC Tfttf>T^ATCn 

luncw^ r UH m^fc in^n ip oils inuiLMicu 














.CBAM T^f CiAlCBuTCAO 
trffun inc 9U9tNVlMIN 


021144 


001050 










141 


- ft A TP MAD Bnv CT^ 


/%^a a 

021146 


005737 


003136 






TCT 


ic30 


.TC TT A OOn^PCC/lD TvDC D7 


021152 


001407 








DcQ 


1» 


• kin 


021154 


023727 


AA^« ^A t 

002120' 


007777 




CnP 


1 AkATMC 

L irlint ^Wfffc 


COCATCD TUAftI 1 9ABf 


021162 


103406 












1 ^iU 


021164 


004737 


A^4 W ^« 

021312 






ICO 

J5R 


B^ ^VMTCT 


.CCTtA> TMC AnADCCC 


021170 












4 VA 

13f 


.CCT T^ff PI A#l AW> CVTT 

t5cl int rUMU MW cXll 


/%^a a ^ 

021172 


005737 


AAV* WM t 

003134' 




11: 


TCT 

TbT 


1 c3M 


. TC TT A DDA^CCCflO TvDP A7 


021176 


001413 








BC A 


* • 


• kin 


02I20U 




002I20 


OODr r r 


2i : 


CnK 


t AMTMC B^777 

L •Hint • wo 9 f f 


• ftDCATPD TMAIkl 


021206 


101027 








But 


1 A A 

14 f 


• VPC OTA/3YD UTTM IOAV MPMTIDy 
iTCSaCdn^cdD Ml in IcOVv nCrVHT 


021210 


023727 


AA94 ^Al 

002120' 


AAV997 

003777 




CnP 


L fnint • W9 III 


.I^DCATPD TwAfti JLAtf Dl IT 1 PCC ThAAki QO^ 9 


021216 


103403 








Bl A 


n f 


inu« vncL^ 


















021224 


000411 








BR 


1S< 


tSET THE TLAG AND EXIT 


021226 


025727 


002120* 


001577 


41s 


CMP 


L<HZIC«#1577 


t GREATER THAN 24K BUT LESS THAN 64K? 


021234 


103414 








BLO 


14 1 


sNO. TELL THEH AM) EXIT WITH FLAG CLEAR 


021236 


004757 


021512' 






JSR 


PC.NXMTST 


1 SETUP THE ADDRESS 


021242 


062757 


000077 


00S1S2' 




ADD 


*77. NXMHI 


irOOL THE 11/02 C 11/03 


021250 


032757 


177774 


00S1S2' 


131: 


BIT 


#177774 .NXNHI 


lANY HORE THAN 16 BITS SET? 


0212S6 


001014 








BNE 


151 


iBR. V MORE THAN 16 BITS SET 


021260 


005257 


005126* 






INC 


NXMFLG 


iSET THE FLAG 


021264 


000411 








BR 


15 < 


sEXlT 


021266 


000410 






141: 


BR 


1S< 


sNOP FOR PRINTOUT 


021270 










PRINTF 


•NOMCM 




021270 


012746 


005450' 






nov 


•NOMEM.-(SP) 




021274 


012746 


000001 






nov 


♦l,-(SP) 




021300 


010600 








MOV 


SP.RO 




021302 


104417 








TRAP 


CIPNTF 




021304 


062706 


000004 






ADO 


•4.SP 




021510 


000207 






151: 


RTS 


PC 


t RE TURN 



SUBROUTINE TO SETUP THE NXH ADDRESS FOR TESTING 
OUTPUTStNXMLO.NXHHl iSETUP WITH NXM ADDRESS 



D7 

TSV3 • GLOBAL AREAS MACPO HlllS OlFEB-64 17:54 SEQ 061 

KTINIT SETUP KTll MEnORY MANAGEMENT REGISTERS 



2955 021512 


015701 


002120' 


NXflTbT : nov 


1 AUTMC Of 

L •Mint tHl 


lUcT TUP Or ntnOHT 


2954 021316 


062701 


00U200 






• MAk^C TT r yA Dl AP^ AO ATk^D 


2933 02152c 


/\A At 

042 IQl 


UUVl ' r 


OTP 
OIL 


77 Dl 




2956 021526 


010102 




nuv 


D« DO 
HI «Nc 




2957 


000006 






D 










ASL 


Rl 


iPUT IN PLACE FOR XFER 


2959 






.ENOR 






J960 021544 


010157 


005150' 


MOV 


Rl.NXMLO 


iSAVE TEST ADDRESS LOW 


2961 


000012 




.REPT 


10. 




2962 






ASR 


R2 


iPUT IN PLACE FOR XFER 


2963 






.ENDR 






2964 021374 


042702 


177700 


BZC 


•177700.R2 


lOON' T WANT ILA! 


2965 021400 


010257 


005152' 


nov 


R2.NXHHI 


tSAVE TEST ADDRESS HIGH 


2966 021404 


000207 




RTS 


PC 


1 RE TURN 



2967 
2968 
2969 

2970 

2971 021406 ENDMOD 



E7 



TSV4 MISCELLANEOUS SECTIONS MACRO Mill) 01-FEB 84 17:54 
KTINIT - SETUP KTII MEMORY MANAGEMENT REGISTERS 



SEQ 062 



6 

7 

6 021406 
021406 

9 
15 
16 

17 021406 
021406 
16 021406 
19 021416 

20 
21 
22 
23 
24 
25 
26 
27 
26 
29 
30 
31 
32 
33 

34 021416 
021416 

35 021416 

36 021422 

37 021426 
36 021434 

39 021440 

40 021444 

41 021450 
021450 
021454 

42 0214S6 
021456 

43 021460 

44 021466 

45 021470 

46 021474 

47 021476 
46 021502 

49 021504 

50 021510 

51 021512 

52 021520 

53 021522 
021522 
021524 

54 021526 
021526 
021532 

55 021534 
021534 

56 021536 



TSV4 : : 



.TITLE TSV4 
8GNM00 TSV4 



MISCELLANEOUS SECTIONS 



.SBTTL PROTECTION TABLE 
6GNPR0T 

LtPROT: : 

177777 177777 177777 .WORD -1, -1. -1. -1 

ENDPROT 

.SBTTL INITIALIZE SECTION 



I NO DEVICE PROTECTION REQUIRED . 



I THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
I AT THE BEGINNING OT EACH PASS, 
t 

ilf 
I IF 
I 

I -- 

(INSERT TEMPORARY JUMP TO OOT 



"START" OR "RESTART". SET QUICK -PASS FLAG AND BUS -INIT. 
"CONTINUE". NOTHING IS REQUIRED. 







t - 


BGNINIT 










LIINIT: 


• 






005037 


002216' 


40t: 


CLR 


EXTFEA 




005037 


003126' 




CLR 


NXMFLG 




012737 


006166' 


002170' 


MOV 


«EPRT1.EPRTSU 


iSET UP PRIMARY MESSAGE FOR REPLACEMENT 


005037 


003144' 




CLR 


SIFLAG 


J CLEAR "SOFT INIT" FLAG 


005037 


003124* 




CLR 


KTENA8LE 


(CLEAR TEST ABOVE 26K FLAG 


005037 


002272* 




CLR 
REAOEF 


RAHSIZ 

«EF. CONTINUE 


(CLEAR RAM SIZE FOR RAMERR ROUTINE 


012700 


000036 




MOV 


•ef.continue.ro 




104447 






TRAP 


CtREFG 










BNCOHPLETE It 




103023 






BCC 


It 




023737 


002172* 


002012* 


CMP 


UNITN.LtUNIT 


(UNIT IN RANGE? 


103070 






BHIS 


4» 


iBR IF NO. 


005737 


003102' 




TST 


OUFLG 


(DROPPED UNIT? 


100472 






BMI 


NXTU 


(BR IF YES 


013701 


002172' 




MOV 


UNITN.Rl 




006301 






ASL 


Rl 




005761 


003166' 




TST 


ERTABLCRl) 




001516 






BEQ 


SETU 




032761 


040000 


003166' 


BIT 


•BIT 14. ERTABLCRl) 


(DROPPED? 


001060 






BNE 
EXIT 


NXTU 
INIT 


(DO NOTHING IF "CONTINUE". 


104432 






TRAP 


CtEXIT 




000416 




It: 


.WORD 
REAOEF 


L10030-. 
•EF.NEU 




012700 


000035 




MOV 


•EF.NEU.RO 




104447 






TRAP 


CtREFG 










BNCOHPLETE NXTU 


(TAKE NEXT UNIT IF NOT NEU PASS. 


103052 






BCC 


NXTU 





REAOEF •EF. START 



F7 



TSV4 HISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



HACRO HI lis 01 FEB 84 17:54 



SEQ 083 





021536 


012700 


000040 






NOV 


♦Er. START. RO 




021542 


104447 








TRAP 


CIREFG 














BCOMPLETE 21 




021544 


103404 








BCS 


21 


58 


021546 










READEF 


♦EF. RESTART 




021546 


012700 


000037 






MOV 


♦EF. RESTART, RO 




021552 


104447 








TRAP 


CIREFG 


59 


021554 










BNCOMPLETE 311 




021554 


lOSOSl 








BCC 


311 


60 


02155c» 








21: 






61 


021556 










BRESET 






021556 


104433 








TRAP 


C IRE SET 


62 


021560 


005037 


002204' 






CLR 


TSTCNT 


63 


021564 


005037 


002212' 






CLR 


FATFLG 


64 


021570 


005037 


003134' 






CLR 


T23A 


65 


021574 


005037 


003136' 






CLR 


T23B 


66 










1 


HOV 


#340, -(SP) 


67 










1 


MOV 


#201. -(SP) 


68 










1 


JHP 


O.OOT 


69 


021600 


005037 


003370' 






CLR 


SKIPT 


70 


021604 








201: 






71 


021604 


012737 


177777 


002174' 




nov 


#-l«QVP 


72 


021612 


004737 


020540* 






JSR 


PC.ENVIRN 


73 


021616 


004737 


020626' 






JSR 


PC.KTINIT 


74 


021622 


012700 


003166' 






HOV 


#ERTABL,RO 


75 


021626 


005020 






301: 


CLR 


(R0)» 


76 


021630 


020027 


003366* 






CHP 


RO««ERTABE 


77 


021634 


103774 








BLO 


301 


78 


021636 


000404 








BR 


41 


79 


021640 


005037 


002174' 




311: 


CLR 


QVP 


80 


021644 


000137 


021714' 






JMP 


PASRPT 


81 
82 


021650 








41: 






83 


021650 


012737 


177777 


002172' 


NEUPAS: 


HOV 


#-l,UNITN 


84 


021656 


005037 


002210' 






CLR 


DEVCNT 


85 


021662 








NXTU: 


BREAK 






021662 


104422 








TRAP 


CIBRK 


86 


021664 


005237 


002172' 






INC 


UNITH 


87 


021670 


023737 


002172' 


002012' 




CHP 


UNITN.LIUNIT 


88 


021676 


103423 








BLO 


5ETU 


89 


021700 


012737 


177777 


003102' 




HOV 


t-l»DUFLG 


90 


021706 


000401 








BR 


111 


91 


021710 










OOCLH 






021710 


104444 








TRAP 


CIDCLN 


92 


021712 


000240 






111: 


NOP 




93 


021714 








PASRPT: 






94 


021714 


023727 


002012' 


000001 




CMP 


L»UNIT,#1 


95 


021722 


101752 








BLOS 


NEUPAS 


96 


021724 


005737 


002210' 






TST 


DEVCNT 


97 


021730 


001747 








BEQ 


NEUPAS 


98 


021732 










RFLAGS 


RO 




021732 


104421 








TRAP 


CIRFLA 


99 


021734 


032700 


000100 






BIT 


tZSR.RO 


100 


021740 


001343 








BNE 


NEUPAS 


101 
















102 


021742 










DORPT 






021742 


104424 








TRAP 


CIDRPT 



list PASS. BUS-INIT... 
I BUS RESET. 

iNUr«ER or TESTS RUN IN PASS 
t CLEAR FATAL ERROR COUNT 
I CLEAR PROCSSOR TYPE A FLAG 
iCLEAR PROCSSOR TYPE B FLAG 

•RETURN TO DEBUGGER 
I 188ENTER THE DEBUGGER 
I CLEAR THE SUBTEST "SKIPPER" 

1... QUICK VERIFY,, . 

I SET ENVlROItCNT, 

I INITIALIZE KT HEMORY HANAGEHENT 

I CLEAR THE ERROR TABLE 



iGO REPORT THE STATUS 



iINIT UNIT NUMBER... 

t CLEAR COUNT OF* DEVICES RUMING 



AND SET NEXT UNIT NUMBER. 



tABORT. NO NORE UNITS. 



iHOU »MNY UNITS SELECTED? 
iBR IF ONLY 1 
I ARE ANY STILL RUMING? 
iBR IF NO 



I SHOULD UE PRINT STATISTICS 
iBR IF NO 



G7 



TSV4 • MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



MACRO M1113 Ol-FEB-64 17:54 



SEO 064 



103 021744 

104 021746 
lOS 

106 021746 
021746 
021752 

107 021754 
021754 

108 021756 

109 021762 

110 021766 

111 021770 
112 

113 021774 
114 

lis 

116 021776 

117 022002 

118 022006 
119 

120 022012 

121 

122 

123 

124 

125 

126 

127 

128 022012 

129 022016 

130 022020 

131 022026 

132 022032 

133 022040 

134 022042 
022042 

135 022044 

136 022050 

137 022052 
022052 
022056 
022062 
022066 
022070 
022072 

138 022076 

139 022076 

140 022102 

141 022106 

142 022110 

143 022114 

144 022120 

145 022122 

146 022126 

147 022134 
148 

149 



000741 



013700 002172* 
104442 

103342 

005037 003102' 
005237 002210* 
012001 

010137 002176* 
012001 



010137 002200* 
012721 016116* 
013721 002202* 



013701 
006301 
052761 
005037 
023727 
101416 

104421 

OS2700 
001412 

013746 
012746 
012746 
010600 
104417 
062706 

005037 
013701 
010102 
062702 
004737 
103005 
010137 
012737 



101: 
SETU: 



BR 



NEUPAS 



GPMARO UNITN.RO 

nOV UNITN.RO 

TRAP CIGPHRO 
BNCOHPLETE NXTU 

BCC NXTU 

CLR DUFLG 

INC OEVCNT 

MOV CR0)*.R1 

MOV Rl.CSRAOOR 



II: 

t 

t 



MOV 

tHOV 

iMOV 

MOV 

MOV 

MOV 



TST 
BEQ 



CR0)«.R1 

(R0).R2 

R2.ZPRZ 

Rl.XVEC 

♦XNTR.CRD* 

IPRZ.CRD* 



QVP 
SI 



I GET UNIT N P- TABLE POINTER. 

iBR IF UNIT NOT AVAILABLE. 

iCLEAR "DROPPED" FLAG. 

I GET 1ST REGISTER ADDRESS. 

I ADDRESS OF REGISTERS OF UNIT UIAER TEST 

I GET VECTOR ADDRESS. 

iG£T INTERRUPT PRIORITY 

tSET INTERRUPT PRIORITY. 

iSET INTERRUPT VECTOR POINTER... 

t . . .VECTOR. . . 

I... AND PRIORITY. 



I 1ST PASS ?? 

iND. SKIP THE PASS 1 STUFF. 



tlST PASS. CHECK THAT DEVICE ADDRESSES ARE VALID. AND 
I THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 



002172* 

100000 003166' 
005600' 

002012* 000001 



001000 



002172' 
022144* 
000002 



000006 

003104* 
002176' 

000002 
016276' 

003104' 

177777 003102' 



101: 



21: 



MOV 


UNITN.Rl 


ASL 


Rl 


BIS 


«eiTl5.ERTA8LCRl) 


CLR 


EXTA 


CMP 


LIUNXT.tl 


8L0S 


101 


RFLAGS 


RO 


TRAP 


CIRFLA 


BIT 


4PNT.R0 


SEO 


101 


PRINTF 


•PUNIT.UNITN 


MOV 


UNITN.-(SP) 


NOV 


4PUNIT.-CSP) 


MOV 


•2.-(SP) 


MOV 


SP.RO 


TRAP 


CIPNTF 


ADO 


•6.SP 


CLR 


NODEV 


MOV 


CSRADDR.Rl 


MOV 


R1.R2 


ADD 


•TSSR.R2 


JSR 


PC.XNXM 


BCC 


21 


MOV 


Rl. NODEV 


MOV 


•-1. DUFLG 



I SAY DEVICE RUNNING 
laEAR ERROR EXTENSION FLAG. 
lARE UE TESTING MULTIPLE UNITS? 
tBR IF NO. 

)YES - GET OPERATOR FLAGS. 

I SHOULD UE PRINT UNIT •? 

iBR IF NOT. 

I PRINT nc UNIT # 



t ADDRESS OF FIRST REGISTER 

t START OF REGISTERS 

I ADDRESS OF TSSR REGISTER 

iTEST BOTH CONTROLLER REGISTERS. 

I... AND BR IF ALL OK. 

iFLAC DEVICE AS NON-EXISTENT 

I DROP THIS UNIT. 



iFINALLY. SET CPU PRIORITY ANC WE'RE DONE. 



H7 



TSV4 MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



MACRO MIIIS OI-FEB-84 17:54 



SEQ 065 



150 

151 022134 
022134 012700 
022140 104441 

152 022142 
022142 

022142 104411 

153 

154 022144 045 

155 
156 
157 
158 
159 
160 
161 
162 
163 

164 022212 
022212 

165 022212 010001 

166 022214 006301 

167 022216 052761 

168 022224 042761 

169 022232 
022232 010046 
022234 012746 
022240 012746 
022244 010600 
022246 104417 
022250 062706 

170 022254 
022254 000167 
022256 000026 

171 022260 045 
172 

173 

174 022306 
022306 

022306 104452 

175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 

166 022310 
022310 

187 022310 012737 

188 022316 010001 

189 022320 006301 

190 022322 052761 



000000 



116 



I 

5«: 



L 10030: 



SETPRI «PRIOO 
MOV «PRIOO.RO 
TRAP CISPRI 
ENDINIT 



I ENABLE INTERRUPTS. 



TRAP 



CtlNIT 



045 PUNIT: .ASCIZ /MMNtfA 
.EVEN 



** TESTING UNIT «02tfA 
SBTTL AOO AND DROP UNITS SECTIONS 



THE AOO-UNIT SECTION CONTAINS THE COOING THAT CAUSES A DEVICE 
TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME. 
OR (6) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 



LIAU: : 



100000 
040000 



022260* 
000002 



000006 



003166' 
003166' 



116 



04S It: 



BGNAU 




HOV 


RO.Rl 


ASL 


Rl 


BIS 


•lOOOOO.ERTABL(Rl) 


BIC 


MOOOO.ERTABLCRl) 


PRINTF 


•11. RO 


nov 


RO,-(SP) 


MOV 


•1».-(SP) 


MOV 


♦2,-(SP) 


MOV 


SP.RO 


TRAP 


CIPNTF 


ADD 


•6.SP 


EXIT 


AU 


.UORD 


JUMP 


.UORD 


L 10031 -2-. 


.ASCIZ 


/«NM UNIT «DtfA ADDED/ 


.EVEN 




ENOAU 


1 UNUSED. 


TRAP 


CIAU 



i GET UNIT TO BE AOOEO CRO) 
t MAKE IT A WORD INDEX 
I SET THE "ACTIVE- BIT 
t aEAR THE "DROPPED" BIT 



L 10031: 



THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 

SUPVSR DOES THE "DROPPING". THIS IS JUST TO TELL THE MAN. 
"DROPPED" UNITS ARE RE -SELECTED ON OPERATOR "STA" OR "AOO" 
COMMANO. OTHERWISE REMAIN INACTIVE. THE "DISPLAY" COMMAND 
UILL PRINT ALL DROPPED UNITS. AND THE P- TABLES OF THOSE 
UHICH ARE STILL ACTIVE. 

UPON ENTRY. RO CONTAINS THE UNIT TO BE DROPPED. 



177777 003102' 
140000 003166' 



L«DU:: 



BGNDU 

MOV 

MOV 
ASL 
BIS 



••l.OUFLG 

RO.Rl 

Rl 

•140000, ERTABL(Rl) 



i SAY DROPPED 
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TSV4 MISCELLANEOUS SECTIONS 
AOO AND DROP UNITS SECTIONS 



MACRO hlllS 01 -FEB -04 17:54 



SEQ 086 



191 022330 

192 022336 
022SS6 
022340 
022344 
022350 
022352 
022354 

193 022360 
022360 
022362 

194 022364 
195 

196 022414 
022414 
022414 

197 
196 
199 

200 022416 
022416 

201 022416 

202 022422 

203 022426 

204 022432 

205 022434 
022434 
022440 
022442 
022446 
022450 
022454 
022456 
022462 

206 022464 

207 022466 
200 022470 

209 022474 

210 022474 
022474 
022474 

211 
212 
213 
214 
215 
216 
217 
210 

219 022476 
022476 

220 022476 

221 022502 

222 022506 
223 

224 

225 022510 



000240 000240 000240 



010046 
012746 
012746 
010600 
104417 
062706 

000167 
000030 
045 



104453 



013705 
012703 
004737 
103420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
004737 



104461 



240.240.240 
PRINTF «1I.R0 



I ????????? 



013705 
005737 
100405 



022364* 
000002 



000006 



116 



045 It: 



L 10032: 



MOV 
MOV 
MOV 
MOV 
TRAP 
AOO 
EXIT 
.yORD 
.WORD 
.ASCIZ 
.EVEN 
ENDOU 

TRAP 



RO,-(SP) 
♦ll.-CiP) 
♦2. -(SP) 
SP.RO 
CIPNTF 
«6.SP 
DU 

JtJMP 
L100S2-2-. 

/«N«A UNIT «0«A DROPPED/ 



CIDU 



002176' 

000550 

016150* 



000372 
002116' 
177772 
177756 

017104' 



rAUTG-OROP CODE SECTION. 

* BCNAOTO 
L9AUT0: 

101 1 



201: 
L10055i 



NOV 
NOV 
JSR 
BCS 
DELAY 
MOV 
.WORD 
MOV 
.WORD 
DEC 
8NE 
DEC 
BNE 
DEC 
BNE 
JSR 



CSRA00R.R5 
•360.. R3 
PC.WAITF 
201 

250. 

♦250.. (PC)* 
0 

LIOLY.CPO* 
0 

-6(PC) 
. -4 

-22(PC) 
.-20 
R3 
101 

PC.CKOROP 



tPOINT TO DEVICE REGISTER 

I ENOUGH TIME FOR 2400' REEL TO REWIND 

iWAIT FOR SSR TO SET 

iLEAVE WHEN SSR IS SET 

lUAIT FOR .25 SECONDS 



tBUMP COUNTER DOWN 

;KEEP GOING 

sTRY AND DROP UNIT 



ENDAUTO 

TRAP CI AUTO 



UNUSED. 



.SBTTL CLEAN-UP AND REPORT CODING SECTIONS 



THE CLEANUP COOING SECTION CONTAINS THE COOING THAT 
EXECUTED AT THE END OF EACH PASS (OR SUB -PASS). 
USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 



002176' 
003102' 



012765 000000 000002 



I 
t 
t 

BGNCLN 
LtCLEANi : 

MOV 
TST 
BMI 



MOV 



IS 



CSRADDR.R5 

DUFLG 

It 



«0.TSSR(R5) 



iPOINT TO DEVICE REGISTER 
I "DROPPED" FLAG IS SET ON... 
I . . .AND GROSS CONTROLLER FAULT. . . 
I... DON'T TRY TO XCT CLEANUP CODE. 

I DO SOFT INIT 



J7 



TSV4 - MISCELLANEOUS SECTIONS MACRO H1113 
CLEAN-UP AND REPORT COOING SECTIONS 



Ol-FEB-64 17:54 



SEQ 067 



CCO 


rtOO*Cl ^ 


for 


A 1 1 <v A * 




JSP 


PC.WAITF 






DO 7 


AOO«vOO 






It: 








228 


022522 


1 AAA 1 O 




2t: 

L 10034: 


ENOCLN 
TRAP 


CICLEAN 






CC7 








1 










OX A 








1 THE REPORT CODING SECTION CONTAINS THE 


OX1 








1 "PRINTS" CALLS THAT GENERATE 


STATISTICAL REPORTS. 










1 " " 










cOO 




























PDTMTQ 










AOPSOA 


A1 07AA 


APP7IU^* 




HAW 










APPSXA 


A1 P7A#% 


AAAAAI 




nov 


♦l.-(SP) 








APPSXA 


A1 A^AA 






HOV 


SP.RO 










1 AAA1A 






TQAD 










APPSAA 




AAAAAA 






AA ^P 








APPSAA 


A1 APAA 








pp • r QP ^ 








APPSAI^ 








MAW 










AppSSO 


OIAAAI^ 






MflW 


PA .r^pS 








APPSSP 


A1P7AA 


W^XOw 




MAW 

nuv 


AiPPTABl PA 
vcff 1 HOC « 


1 


fIFT CTAPT AT PPPAD TADI P 
UC 1 o 1 HK 1 CHHi^ 1 HOi_C. • 


239 


022556 


005003 








PX 


\ 


n TAD IDITT MlMftPD 


240 


022560 


011402 




X9 8 


MAW 

nuv 


f PA ^ pp 

\ H^ ^ « He 


t 


nPT rOOAD TADl P PftiTPV /* TPCT TT 
UC 1 CHHUH CnlHf G ICol XI 




022562 


AA1 AA7 








^ f 


1 


7PPA TC 1A<TT MAT Pi AA 
A.CHU Xr mix 1 WU 1 


PAP 


022564 


1 AAAAI^ 






BPL 


41 






PAX 


022566 


AXP7AP 


AAAAAA 




BTT 
OX 1 


AD r T 1 A P9 
•ox 1 X^ tHC 


1 


UAC lAiTT r^ADOeA^ 
WHO UnX 1 UHl^ftU { 




022572 


AA1 A1S 








Pi 


\ 


DP Tr VPC 
OH Xr ICO 


PAS 


022574 


AAP7AP 


1 7 AAAA 




DXW 


Atr7777 PP 
V ■ U f f f f t He 


f 


nPT PPPAD TAIDaT ttpi a 
UC 1 CHHUVf wUUM 1 r XCLU 




III 


A1 APA#^ 
A1 AXAA 






MAW 

nuv 

MAW 

nuv 


AACWAM P1l PP 
VUC VIXIL » H 0 « He 

PP .rcpS 

He » - i Of / 

pv -TcpS 

HO » -\ of / 


1 


PP TUT 
f HXn 1 




022604 


A1 07AI^ 
UXc r^D 


APXAPX< 




MAW 

nuv 


AACwAifl r ep\ 








022610 


012746 


000003 




MAW 

nuv 


A^ . t CP ^ 

♦ • \ Of } 








022614 


A1 AI^AA 






MAW 
nuv 


CP DA 
Of #HW 








022616 


1 AAA1 A 
XV^^ XO 






TRAP 


CIPNTS 








022620 




AAAA1 A 
WW XV 




AAA 


A1 A CP 
wXV • Of 






247 


022624 


AAAAAJ; 






OH 








P4A 


022626 


APAPP7 


1IUW)A 

xoww 


Pft • 


CMP 


PP A1AAAAA 
He t wXOW^^ 


1 


UAC lltfTT MAM.P VTCTPIUT> 
HnT> unx I nun ~CAx o ■ en T ; 


249 


022632 


AA1 A1P 






one 


It 
o* 


} 


AP TP MA 
OH A" nu 


PSO 


022634 
022634 


A1 AXAA 






rff Xnl 9 

MAW 
nuv 


AAPWiivp PY 

WUC VflAH * HO 
HO i •V Of / 






022636 


A1P7AI; 
VXC t 


APXA7X' 




HOV 










022642 


012746 


000002 




NOV 


♦2* (SP) 








022646 


A1 AMM 






NOV 


SP.RO 








022650 








TRAP 


CIPNTS 








022652 


Atf%P7A#h 


AAAAAA 
WWUP 




ADD 


•6,SP 








022656 


AOAAXI 

%^A^* JX 






BR 


41 






252 


022660 


APAPP7 


1 AAAA1 
XOV^/X 


SI: 


CHP 


R2. #160001 


\ 


UAS UNIT NOT READY AT STARTUP? 


255 


022664 


\A/xvxc: 






BNE 


SOI 


• 


BR IF NO. 


2S4 


022666 
022666 


010346 






PRINTS 
MOV 


40EVNR0.R3 
R3, (SP) 








022670 


012746 


023155' 




nov 


4K)EVNR0.-(SP) 








022674 


012746 


000002 




HOV 


#2.-(SP) 








022700 


010600 






HOV 


SP,RO 








022702 


104416 






TRAP 


CIPNTS 








022704 


062706 


000006 




ADO 


«6.SP 






255 


022710 


000414 






BR 


4$ 







I< 1 



TSV4 NISCELLANEOOS SECTIONS MACRO MlllS 
CLEAN UP AND REPORT COOINC SECTIONS 



01 -FEB -84 17:54 



SEQ 086 



256 022712 

257 022716 
022716 
022720 
022722 
022726 
0227S2 
022734 
022756 

258 022742 

259 022746 

260 022750 

261 022754 

262 022756 

263 022760 

264 022762 

265 022764 
022764 
022764 

266 

267 

268 022766 

269 023023 

270 023073 

271 023155 

272 023236 
273 

274 

275 023306 

276 

277 

278 



042702 170000 



010246 
010346 
012746 
012746 
010600 
104416 
062706 
062704 
005203 
020427 
103701 
012604 
012603 
012602 



104425 



045 
045 
045 
045 
045 



023236' 
000003 



000010 
000002 

003366' 



116 
101 
101 
101 
101 



SOI: 



41: 



L 10035: 



eic 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

ADO 

INC 

CMP 

BLO 

MOV 

MOV 

MOV 

ENORPT 

TRAP 



045 
040 
040 
040 
040 



OEVSUM: 
OEVONL: 
OEVNXR: 
OEVMO: 
OEVORO: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 

ENOHOO 



♦tC7777.R2 

•0EV0R0.R5.R2 

R2.-(SP) 

R3.-(SP) 

•OEVDRO.-(SP) 

♦3.-(SP) 

SP.RO 

CIPNTS 

*10.SP 

♦2.R4 

R3 

R4.«ERTABE 
It 

(SP)*.R4 
(SP)*.R3 
(SP)*.R2 



I UNUSED. 



CIRPT 



/MIMOEVICE STATUS SUrtMRY:«N/ 
/tfA UNIT «09M ONLINE. ERfMlRS « 
/tfA UNIT «09tfA DROPPED. NON-EXISTENT REGISTER^/ 
/«A UNIT «OSM DROPPED. NDT READY AT STARTUPS/ 
/tfA UNIT «09M DROPPED. ERRORS " «OriN/ 



L7 



TSV7 



HARDWARE TESTS 1-8 
CLEAN-UP AND REPORT CODING SECTION! 



MACRO rilllS 01 -FEB -64 17:54 



SEQ 089 



1 

2 
9 

10 023306 
023306 

16 
24 

25 
26 
27 
28 
29 
30 
31 
32 
33 

34 023306 
023306 

35 023306 
36 

37 
38 
39 
40 
41 
42 
43 

46 023314 

49 023320 

50 023324 

51 023330 

52 023336 

53 023336 

54 023342 
55 

56 
57 
56 
59 
60 
61 

62 023346 

63 023354 

64 023360 

65 023362 
023362 
023366 
023370 
023374 
023376 
023402 
023404 
023410 

66 023412 

67 023416 

68 023420 
72 023424 



TSV7: 



I ♦ 



.TITLE TSV7 - HARDWARE TESTS 1-6 



BGNHOO TSV7 



.SBTTL TEST 1: INITIALIZE «4 TEST 



I THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
iCONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 
I (I.E. LOOPBACK ENABLED. FORCING WRONG PARITr. INVERTING SENSE OF 
I EXTENDED FEATURES SWITCH. ETC.) 



012737 006166' 002170* 



BGNTST 

NOV tEPRTLEPRTSW 



Tl: • 

f SET UP PRIMARY ERROR MESSAGE 



TEST I 



004737 
012700 
004737 
012737 

004737 
004737 



016104- 
024244' 
016412* 

000005 002206' 

024266' 
024356' 



T21L00P: 



JSR 
MOV 
JSR 
MOV 

! 

JSR 
JSR 



PC.DSBINT 
•TST21ID.ro 
PC.TSTSETUP 
•5.L00PCNT 

PC.TZIREST 
PC,T21RT2 



•DISABLE INTERRUPTS 
I ASCII MESSAGE TO IDENTIFY 
tOO INITIAL TEST SETUP 
{PERFORM 5 ITERATIONS 



TEST 



tSET COMMAND PACKET 

tSET UP OTHER COMMAW PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



012737 
004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 



176750 023722' 
015674' lit! 



000250 

002116' 

177772 

177756 

023722' 

002212' 



MOV •65000.. T21DLY 

JSR PC.SOFINIT 

BCS 20t 

DELAY 250 



I SET DELAY ROUTINE 

iDO INITIALIZE ON CONTROLLER 

tBR IF INIT WAS OK 

s DELAY FOR A REWIND TO FINISH 

MOV 
.WORD 
MOV 
.WORD 
DEC 



DEC 
BNE 
INC 
MOV 



T210LV 
111 

FATFLG 
RO.Rl 



DEC 
BNE 

tBUMP COUNTER DOWN 
tBR. IF MORE TIME TO GO 
iBUMP COUNT 

•CONTENTS OF TSSR REGISTER 



♦250.(PC)» 

0 

L«DLY.CPC). 
0 

-6(PC) 
.-4 

22( PC) 
.-20 



M7 



MACRO MIIIS Ol-rEB-84 17:54 



SEQ 090 



75 0?S426 
025426 
025450 
025452 
025454 

74 025456 

75 025456 
76 

77 
78 
79 
80 
81 
82 

85 025442 

84 025450 

85 025454 

86 025456 

90 025462 

91 025464 
025464 
025466 
025470 
025472 

92 025474 
025474 

95 025476 

94 025504 

95 025512 

96 025512 

97 025516 

98 027522 

99 026526 

100 025550 

101 025552 

105 025556 
025556 
025540 
025542 
025544 

106 025546 
025546 

107 025550 

108 025556 

109 025562 

110 025566 

111 025570 

112 025574 
115 025600 

114 025604 

115 025606 

116 025610 

117 025612 
121 025616 

025616 
025620 
025622 



104455 
000145 
005642* 
011754* 

012704 025700' 



ERRDT ERRNO . Sf lERR . SF IHSG 



201: 



MOV 



•T21PACKET.R4 



iFATAL ERROR TSSR MAS HOT OK 

TRAP CtERDf 

.WORD 101 

.WORD SFIERR 

.UORO SFIMSG 

I SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND CCALL TO URTCMR) 



251: 



251: 



015757 002172' 025720* 
004757 010562' 
105407 

005257 002212* 
010001 

104456 
000146 
005046' 
011754* 

104406 

112757 000200 024020' 
112757 000010 024021' 

012704 024010' 

010465 000000 

004757 016256' 
105407 
010001 

005257 002212' 



104456 
000147 
024026' 
011746' 

90>: 

104406 

012765 000000 000002 
004757 016150' 
016501 000002 
010102 

042702 176577 
052702 002200 
052701 000100 
001012 

020102 351 t 

001406 

005257 002212' 

104456 
000150 
024125' 



MOV 
JSR 
BCS 
INC 
MOV 

ERRHRO 



CKLOOP 

MOVB 
HOVB 

MOV 
MOV 
JSR 
BCS 
MOV 
INC 

ERAHRO 



CKLOOP 

MOV 
JSR 
MOV 
MOV 
BIC 
BIS 
BIT 
BNE 
CMP 
BEQ 
INC 

ERRHRO 



UNITN.T210SU 

PC.URTCHR 

2S« 

FATFLG 
RO.Rl 

ERRNO , URTMSG . SF IMSG 



♦200.T21BS0 
•10.T21BS1 

♦T21PK2,R4 

R4.TS0B(RS) 

PC.C»«<TSSR 

501 

RO.Rl 

FATFLG 

ERRNO. T21SSR.PKTSSR 



•0,TSSR(R5) 
PC.MAITF 
TSSRCR5).R1 
R1.R2 

*tC<HIA00R>.R2 

•SSR!NBA.R2 

•OFL.Rl 

58 1 

R1.R2 

571 

FATFLG 

ERRNO . T21AM5 . EXPREC 



I SET UP DRIVE NUMBER 
I ISSUE WRITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
iBUMP COUNT 

{SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
. WORD 
.WORD 



C*ERHRD 
102 

WRTMSG 
SFIMSG 



TRAP CtCLPl 
{WRITE MISCELLANEOUS CONT/REAO STATUS 
(FUNCTION SELECTION BIT 

(WRITE SUBSYS MEM PACKET 
(ISSUE COmAND 
(WAIT FOR SSR 
(BR. IF NO ERROR 
(ERROR. SAVE TSSR 
(BUMP COUNT 

{TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP C»ERHRO 
.WORD 105 
.WORD T21SSR 
.WORD PKTSSR 

{SCOPE LOOP 

TRAP CiCLPl 

{ISSUE A SOFT INITIALIZE 

(WAIT FOR JUST THE SSR BIT TO SET 

(READ THE TSSR BACK 

(WORK REGISTER 

{CLEAR OUT OTHER BITS 

{SOME OF THE BITS THAT SHOULD BE SET 

8 IS OFF LINE BIT SET 

{BR. IF DRIVE IS OFF LINE 

(EXPECTED (R2) ■ RECEIVED (Rl) 

(BR. IF THEY ARE EQUAL COK) 

{BUMP COUNT 

("ERROR TRYING TO INIT AFTER WRITE MISC. 

TRAP CJERHPO 
.WORD 104 
.WORD T21AM3 



N7 



TSV/ HARDWARE TESTS I 8 
TEST I: INITIALIZE OA TEST 



MACRO Ml I 13 01 -FEB -64 I7!b4 





023624 


015574' 








1 pp 




1 04406 


37$ : 


CKLOOP 








0A0406 




BR 


40$ 


1 PA 






5Ai • 




ERRNO . T210F'L . EXPREC 




rtP5A5P 
OP5#>5P 

vC Jw JC 

023634 


104455 

000151 

OP4PP5' 




ERROF 




0P5A40 


01 5574 ' 






PC . CKDROP 




OPV%4P 


004757 017104* 

V^n^ f J f wX * iw^ 




JSR 




OPV%4A 


OOOP41 


40$ • 

~wv • 


CLC 




131 


023650 


106037 024021' 




RORB 


T21BS1 


132 


023654 


001316 




QNE 


25$ 




025656 


104406 


50$ : 


CKLOOP 






np5MO 


004757 016560' 

V^^t » W f WXWo^WW 




JSR 


PC.TSTLOOP 




OP 5664 


105002 

X WWWW& 




see 


631 




025666 


000157 023336' 

www X ^ < WW wV 




JMP 


T21L00P 


157 


025672 
025672 
025674 


104452 
000524 


53$. 


EXIT 


TST 


15A 












159 






t * 






140 






(LOCAL 


STORAGE 


FOR THIS TEST 


141 






1 - 






145 


OP 56 76 






.BLKB 


10-< -TSV267> 

&W • ' ^ W WW • 








T21PACKET : 






OP 5 TOO 


100004 

AwVww"t 




.WORD 


100004 


147 


025702 


025710* 

wC J ' Xw 




.WORD 




14A 


025704 


oooooo 

WWWWWW 




.UORO 


0 


149 


025706 


000012 

wwwwXC 




.UORO 


10. 


ISO 


025710 

wCw ' Xw 




T210ATA: 




151 


025710 

wCw r Xw 


025724' 




.UORO 


T21BFR 


152 


025712 


OOOOOO 

wwwwW 




.WORD 


0 


153 


025714 

WCW » 


000024 

WWWWfc"* 




.WORD 


20. 


154 


023716 


oooooo 

WWWWWW 




.UORO 


0 


155 


023720 


oooooo 

WWWWWW 


T210SU: 


.UORO 


0 


156 


023722 


oooooo 

wwwwWw 


T210LY: 


.UORO 


0 


157 


025724 

wCw • 




T21BFR: 


.BLKU 


25. 


158 












159 






iuRITE 


SUBSYSTEn MEMORY COMMAND PACKET 


160 






1 






162 


024006 






.BLKB 


l0-<,-TSV2€7> 


164 


024010 




T21PK2: 






165 


024010 


100206 




.UORO 


100206 


166 


024012 


024020' 




.WORD 


T21BF2 


167 


024014 


OOOOOO 




.WORD 


0 


166 


024016 


000006 

WWWWWW 




.UORO 


6. 


169 












170 








.EVEN 




171 


024020 




T21BF2: 






172 


024020 


000 


T21BS0: 


.BYTE 


0 


173 


024021 


000 


T21BS1: 


.BYTE 


0 


174 


024022 


oooooo 


T21S2: 


.WORD 


0 


175 


024024 


oooooo 


T21SS: 


.UORO 


0 


176 













SEQ 091 



.WORD 

iLOOP IF SELECTED 

TRAP 

I SKIP OVER OFF-LINE STUFF 



lORlVE IS OFF LINE 



TRAP 
.WORD 
.UORO 
.UORO 



iTRr AND DROP UNIT 
tOOM'T LET CARRY SNEAK IN 
J TRY NEXT "LOUEST" BIT POSITION 
J LOO? UNTIL ALL EIGHT BITS TESTED 
(SCOPE LOOP 

TRAP 

tOO UE NEED TO ITERATE TEST 
(BR, IF NO LOOP REQUIRED 
(EXECUTE AGAIN 
(ALL DONE THIS TEST 

TRAP 
.UORO 



EXPREC 
C$CLP1 



C$EROF 
105 

T210FL 
EXPREC 



C$CLP1 



C$EXIT 
L 10036 • 



(COMMAND PACKET FOR TEST 

(URITE CHARACTERISTICS COTtlAND. WITH. ACK 
(ADDRESS OF CHARACTERISTICS BLOCK 

(STARTING VALUE OF BLOCK SIZE 
(CHARACTERISTICS DATA BLOCK 
(ADDRESS OF MESSAGE WFFER 

(LENGTH OF MESSAGE BUFFER 

(DRIVE SELECT UORO 
(DELAY COUNTER 
(MESSAGE BUFFER 



s URITE SUB SYS MEh COMMAND. IE AND ACK 
(ADDRESS OF SELECT BLOCK DATA 



(SIZE OF DATA PACKET 



iBSELO AREA 
iBSELl AREA 
tSEL 2 AREA 
(DATA AREA 



"COMMAND" BYTE 



B8 



n! 1 



TSV7 HARDWARE TESTS 1-6 
TEST 1: INITIALIZE M TEST 

177 
178 
179 
160 
161 

162 024026 127 122 

16S 024125 124 12S 

164 024225 104 162 

165 024244 111 156 
166 

167 
166 
169 
1^ 
191 
192 
193 

194 024266 

195 024266 

196 024272 012701 025700' 

197 024276 012721 100004 
196 024502 012721 025710* 

199 024506 00S021 

200 024510 012721 000010 

201 024514 012721 025724' 

202 024520 005021 

203 024522 012721 000024 

204 024526 005021 

205 024550 005011 

206 024552 012702 000020 

207 024556 012762 177777 

208 024544 005742 

209 024546 020227 000000 

210 024552 001571 

211 024554 000207 
212 

213 

214 024556 

215 024556 

216 024562 012701 024010' 

217 024566 012721 100206 

218 024572 012721 024020' 

219 024576 005021 

220 024400 012721 000006 

221 024404 005021 

222 024406 012701 024020' 
k25 024412 005021 

224 024414 005011 

225 024416 000207 

226 024420 
024420 

024420 104401 

227 
226 
229 
250 
251 



MACRO nill5 01 -FEB -84 17t54 



! LOCAL TEXT MESSAGES FOR TEST 

I - 

T21SSR: .ASCIZ 'URITE MISCELLANEOUS CONTROL/READ STATUS Commmr^ Hot Aec*pt*d' 
T21AM5i .ASCIZ TSSR Init. Failed Mfr WRITE MISCELLANEOUS CONRTOL/READ STATUS 
T210FL: .ASCIZ 'Ofiva is OFFLINE' 
TST21I0I .ASCIZ 'InitialSxatSon M' 

.EVEN 

!♦ 

!r0UTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

•WRITE SUBSYSTEM MEMORY COMMAND 

I 

i - 



SEQ 092 



111 
125 
151 
151 



T21RESTt 



025724* 64«t 



SAVREG 
MOV 
MOV 
MOV 

aft 

MOV 
MOV 
CLR 
MOV 

CLR 
MOV 
MOV 
TST 

cm 



RTS 



T21«(T2> 



SAVAEC 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR 

MOV 

CLR 

aR 

RTS 
ENOrST 



•T21PACKET.R1 

•100004. (RD* 

•T21I»ATA.(R1). 

(RD* 

M..(R1)* 

•T21BFR.(R1)* 

(RD* 

•20.. (RD* 
(RD* 
(Rl) 
•20.R2 

•177777. T21BFR(R2) 

•(R2) 

R2.«0 

64» 

PC 



•T21PK2.R1 

•100206. (RD* 

•T21BF2.(R1}* 

(RD* 

•6..(R1)» 

(RD* 

•T21BF2.R1 

(RD* 

(RD 

PC 



I SAVE THE REGISTERS 

iSTART OF THE PACKET 

iWRITE SUBSYSTEM MEM. WITH ACK. 

lAOORESS OF CHARAISTICS DATA BLOCK 

lEXTElCED ADDRESS 

I SIZE OF DATA BLOCK IN BYTES 

lAOORESS OF tr ZSAGt BUFFER 

I LENGTH OF MESSAGE BUFFER 



iNUrfiER OF LOCATIONS TO BE CLEARED 

I ALL ONES TO MESSAGE BUFFER 

•NEXT LOCATION 

I CHECK R2 FOR ZERO 

iBR. IF NOT AT ZERO YET 

tRETURN 



I SAVE THE REGISTERS 

I START OF T»C PACKET 

iWRITE SUBSYSTEM HEM. WITH ACK. IE 

lAOORESS OF DATA BLOCK 

lEXTENDEO ADDRESS 

iSIZE OF DATA BLOCK IN BYTES 

lAOORESS OF DATA FOR WRT SUB SyS MEM 



iRETURN 



L 10056: 



TRAP 



CIETST 



.S6TTL TEST 2i OFF LINE AND REJECT REWIND 



I • 



I THIS TEST VERIFIES BASIC TAPE MOTION COMMAND DECODING AND BASIC 



TSV7 
TEST 



C8 



SEQ 093 



252 
25S 
554 
255 
256 
257 
258 
259 
240 

241 024422 
024422 

242 024422 

247 024430 

248 024434 

249 024440 

250 024444 
251 

252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
265 

264 024452 

265 024452 
024452 
024452 

266 024454 

267 024460 
268 

269 
270 
271 
272 
273 
274 

275 024464 

276 024470 
27 7 024472 

281 024476 

282 024500 
024500 
024502 
024504 
024506 

283 024510 

284 024510 
285 

286 
287 
288 



012757 
004737 
012700 
004737 
012737 



006166* 00^170 
016104' 
026707- 
016412' 

000005 002.06' 



104402 
004737 
004737 



026742* 
027034* 



004737 015674' 
103407 

005237 002212* 
010001 

104455 

000311 

003642' 

011734* 

012704 025770* 



lOPERATION OF THE REUINO POSITIONING COMNANO. IT DOES NOT 
•NECESSARILY OENONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN 
I ARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY 
I CHECK THE OPERATION OF THE REMIND COMMAND SINCE THEY MUST 
(TYPICALLY REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST 
{SEQUENCES. THE TEST CONSISTS OF THE FOLLOWING THREE SUBTESTS 



I 

I - 



BGNTST 

MOV 
JSR 
MOV 
JSR 
MOV 



•EPRTl.EPRTSW 

PC.OSBINT 

#TST22I0.RO 

PC.TSTSETUP 

•5.L00PCNT 



T2:: 

i SET UP PRIMARY ERROR MESSAGE 

•DISABLE INTERRUPTS 

I ASCII MESSAGE TO IDENTIFY TEST 

iDO INITIAL TEST SETUP 

I PERFORM 5 ITERATIONS 



I TEST 2. SUBTEST 1 

'verifies THAT ALL TAPC-MOTION COMMANDS (WITH VALID 
iMOOE COOeS) TERMINATE WITH FUNCTION REJECT AND 
t OFF -LINE STATUS l*CN THE TAPE TRANSPORT IS OFF-LINE, 
|T»C SUBTEST OPERATES BY PLACING THE CONTROLLER INTO 
lEXTENDED MODE. SELECTING UNIT 7. AM) ISSUING EACH 
I TAPE -MOTION COHNANO. CHECKING. AFTER EACH COmAND. 
I THAT FUNCTION REJECT TERHXNATIQN WAS ACCQHPLIS»C0. 



T22L00P: 



BGNSUB 



JSR 
JSR 



PC.T22REST 
PC.T22RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T2.1: 

TRAP CSBSUB 

iSET COMMAND PACKET 

I SET UP OTHER CGMNRND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE • CARRY BIT aEAR IF ERROR 



201 i 



JSR PC.SQFZNir 

BCS 20t 

INC FATFLG 

MOV R0,Rt 

ERRDF ERRNO.SFIERR.SFIHSG 



MOV •T22PACKET.R4 



iDO INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
iBur«> COUNT 

•CONTENTS OF TSSR REGISTER 
•FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

•SUBROUTINE NEEDS PACKET ADDRESS 



CIERDF 
201 

SFIERR 
SFIMSG 



•WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



D8 



\m aW^W^a^S AeSect rewW)6«° '''''' ^^-'^^ 



SEQ 094 



289 
290 
291 

292 024514 

293 024S20 

294 024522 

298 024526 

299 0245S0 
0245S0 
024532 
024534 
024536 

300 024540 
024540 

301 024542 

302 024546 

303 024552 

304 024554 

308 024560 
024560 
024562 
024564 
024566 

309 024570 
024570 

310 024572 
024572 

311 024574 

312 024600 

313 024602 

314 024610 

315 024616 

316 024622 

317 024626 

318 024632 

319 024634 

320 024636 

324 024642 
024642 
024644 
024646 
024650 

325 024652 
024652 

326 0246S4 
327 

328 
329 
330 
331 
332 
333 

334 024660 

335 024664 

336 024666 

340 024672 

341 024674 



004737 010562' 
103407 

005237 002212' 
010001 

104456 

000312 
005046* 
011734' 

104406 

013701 026020' 
032701 000004 
001407 

005237 002212' 

104455 

000313 

026622* 

011734* 

104444 

104406 

005737 002216' 
001041 

112737 000200 026111* 
112737 000010 026110' 
012704 026100' 
010465 000000 
004737 016236' 
103407 
010001 

005257 002212' 

104456 
000314 

026130' 
011746' 

104406 

012704 025770' 



23«i 



24«: 



sots 



JSR 
BCS 
INC 
MOV 

ERRHRD 



CKLOOP 

NOV 
BIT 
BEQ 
INC 
EfWOF 



OOCLN 
CKLOOP 

TST 

BNE 

MOVB 

M0V8 

HOV 

NOV 

JSR 

BCS 

NOV 

I NC ^ 



PC.URTCHR 
2SI 

FATFLC 
RO.Rl 

ERRNO.URTnSC.SriNSC 



T22BFR*6.Ri 

M.Rl 

241 

FATFLC 

ERRNO . T22ULK . ST IHSG 



EXTFEA 
501 

#200.T22eSl 

•lo.Taseso 

•T22PK2.R4 

R4.TS0e(RS) 

PC.C»«(TSSR 

301 

RO.Rl 

FATFLC 

ERRNO. T22SSR.PKTSSR 



CKLOOP 

NOV •T22PRCKET.R4 



iXffUi MITE CHARACTERISTICS 
~~ V CONNMND ISSUED OK 



lan* IF COP* 



ITENTS OF TSSR 
lURXTE CHARACTERISTISC FAILED 

TRAP 
.UORD 
.UORD 
.UORD 



tPICK UP XTSO 
lis UNIT URITE-L0CKE07 
t NO. PROCEED UITH TESTING 
iBUrP COUNT 
I TAPE IS WRITE LOCKED 



TRAP 



TRAP 
.yORD 
.WORD 
.tJORD 

TRAP 



CIERHRD 

202 

URTMSG 
SFIHSG 

c»api 



C»EROF 
203 

T22ULK 
SFINSG 

CIDCLN 

C»CLP1 



TRAP 

tOCCK FOR EXTENDED FEATURES SU SWITCH 
tSR IF SWITCH IS ON 
tURITE NISCELLANEOUS CONT/REAO STATUS 
iFUNCTION SELECTION BIT (TURN ON EXTFEA MU SWITCH 
I WRITE SUBSYS HEN PACKET 
t ISSUE COmAM) 
tWAIT FOR SSR 
iBR. IF NO ERROR 
t ERROR. SAVE TSSR 
iBUNP COUNT 

iTSSR NOT CORRECT AFTER URT. NISCELLANEOUS 

TRAP C»ER»«D 
.WORD 204 
.WORD T22SSR 
.WORD PKTSSR 

iLOOP IF SELECTED 

TRAP CtCLPl 
iSUemMTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COItWNO (CALL TO WRTCM) 



004737 010562* 
103407 

005237 002212' 
010001 



JSR PC.WRTCHR 

BCS 501 

INC FATFLC 

NOV RO.Rl 

ERRHRD ERRNO. WRTNSG. SFINSG 



t ISSUE WRITE CHARACTERISTICS 
I BR. IF CONNAND ISSUED OK 
iBUNP COUNT 

(SAVE CONTENTS OF TSSR 
tWRITE CHARACTERISTISC FAILED 



E8 



TSV7 HARDWARE TESTS 1-8 MACRO 111113 

TEST 2: OFF -LIME AND REJECT REUINO 



01 FEB-a4 17:54 



SEQ 095 



024674 
024676 
024700 
024702 

342 024704 
024704 

343 024706 

344 024712 

345 024716 

346 024720 

350 024724 
024724 
024726 
024730 
024732 

351 024734 
024734 

352 024736 

353 024742 

354 024746 

355 024752 

356 024756 

357 024762 

358 024766 

359 024772 

360 024774 

361 024776 

365 025002 
025002 
02S004 
025006 
02S010 

366 025012 
025012 

367 025014 

368 025016 

369 025022 

370 025024 

371 025026 

372 025026 
025026 
025026 

373 025030 

374 025036 

375 025040 

376 025044 
377 

378 
379 
380 
381 
382 
383 
384 
385 
386 
387 



104456 

000315 

005046' 

011734' 

104406 

016501 
032701 
001006 
005237 

104455 

000316 

026325' 

011734- 

104406 

012703 
011337 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 

000317 

026400* 

015374* 

104406 

005723 
022713 
001401 
000746 



501 ! 



000002 
000100 

002212' 



CKLOOP 

MOV 
BIT 
BNE 
INC 
ERROF 



TSSR(R5),R1 

♦OFL.Rl 

601 

FATFLC 

ERRN0.T220FL.SFinSG 



TRAP CtERHRD 

.WORD 205 

.UORO URTMSG 

.UORO SFIMSG 

I SCOPE LOOP 

TRAP CICLPI 

iGET TSSR CONTENTS 
I CHECK FOR THE OFFLINE BIT SET 
iBR. IF OFFLINE (GOOO) 
iBUNP COUNT 

tOFF LINE SHOULD HAVE BEEN SET (BAD) 

TRAP CtEROF 

.UORO 206 

.UORO T220FL 

.UORO SFIHSG 





601: 


CKLOOP 




iLOOP IF SELECTED 

TRAP CICLPI 


026116' 




MOV 


•T22R0,I»5 


iPOINTER FOR COrtlANDS 


026100' 


651: 


MOV 


(R5).T22PK2 


iTAPE NOTION COMMAND IN PLACE 


026100' 




MOV 


#T22PK2.R4 


iR4 • POINTER TO PACKET 


000000 




MOV 


R4.TS0B(RS) 


1 ISSUE COMMAND 


016150* 




JSft 


PC.UAITF 


lUAIT FOR SSR TO SET 


000002 




HOV 


TSSR(RS).R1 


iGET TSSR CONTENTS 


100306 




HOV 


•SSRfSCt0FL!BITl!BIT2.R2tSET UP EXPfCTED 






CMP 


R1.R2 


lARE THEY EQUAL 






6EQ 


801 


iBR. IF OK ESP. FUNCTION REJECT 


002212' 




INC^ 


FATFLG 


iBUn> COUNT 








ERRN0.T22Tn.EXPftEC 


iTSSR INCORRECT AFTER TAPE MOTION CHO 



177777 



801 i 



901: 



104403 

023727 002212' 000017 
103402 

004737 017104' 



CKLOOP 

TST 
CMP 
BEQ 
BR 

ENDSUB 



CMP 
BLO 
JSR 



(R5)» 

•177777, (RS) 

901 

651 



FATFLG. «1S. 
9991 

PC.CKOftOP 



TRAP 

. UORO 
.UORT 
.UORO 

TRAP 



CtERHRD 

207 

T22TM 

exPREC 

CICLPl 



9991; 

I TEST 2. SUBTEST 2 

! VERIFIES THAT A REUINO COMMAND. WITH THE CLEAR VOLUME 

I CHECK (CVC) BIT CLEAR. IS REJECTED IF THE VOLUME CHECK 

l(VCK) FLAG IS SET. 

I 

t 

I ■ 



iLOOP IF SELECTED 

tPOINT TO NEXT COMMAND 
lEND OF THE COrtlANOS YET 
iBR. IF DONE 
iMORE COrtMND(S) TO GO 



{>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10040: 

TRAP CIESU6 
lis ERROR COUNT AT 25 
I BR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



F8 



TSV7 HARDWARE TESTS 1-8 MACRO M1113 

TEST 2: OFF-LINE AND REJECT REWIND 



Ol-FEB-84 17:54 



SEQ 096 



see 025044 
025044 
025044 

389 025046 

390 025052 
391 

392 
393 
394 
395 
396 
397 

398 025056 

399 025062 

400 025064 

404 025070 

405 025072 
025072 
025074 
025076 
025100 

406 025102 

407 025102 
408 

409 
410 
411 
412 
413 
414 

415 025106 

416 02S112 

417 025114 

421 025120 

422 02S122 
025122 
02S124 
025126 
025130 

423 025132 

424 02S1S6 
425 

426 025140 

427 025146 

428 025154 

429 025160 
4S0 025164 
431 025170 

452 025172 

453 025174 

437 025200 
025200 
025202 
025204 
025206 

438 025210 
025210 



104402 

004737 026742' 
004737 027034' 



BGNSUB 



JSR 
JSR 



PC.T22REST 
PC.T22RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T2.2: 

TRAP CtBSUB 

I SET COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 015674* 
103407 

005237 002212' 
010001 

104455 
000320 
005642' 
011754' 

012704 025770' 



201: 



JSR PC.SOFINIT 

BCS 20t 

INC FATFLG 

MOV RO.Rl 

ERROF ERRNO.SFIERR.SFIMSG 



MOV *T22PACKET.R4 



iDO INITIALIZE ON CONTROLLER 
I BR IF INIT WAS OK 
iBUMP COUNT 

iCONTENTS OF TSSR REGISTER 
I FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 



CIERDF 
208 

SFIERR 
SFIMSG 



t SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COWMND (CALL TO URTC»«)) 



004757 010562' 
105407 

005257 002212' 
010001 

104456 

000521 

005046' 

011754' 

005757 002216' 
001041 

112757 000200 026111' 
112757 000010 026110' 
012704 026100' 
010465 000000 
004757 016256' 
105407 
010001 

005257 002212' 

104456 

000522 

026150' 

011746' 

104406 



25»: 



301: 



JSR 
BCS 
INC 
MOV 
ERRHRO 



TST 
8NE 

MOVB 

MOVB 

MOV 

MOV 

JSR 

BCS 

MOV 

INC 

ERRHRD 



CKLOOP 



PC.URTCHR 
231 

FATFLG 
RO.Rl 

ERRNO.WRTMSG.SFIMSG 



EXTFEA 
SO* 

•200.T226S1 

•10.T226S0 

♦T22PK2.R4 

R4.TS06(R5) 

PC.CNCTSSR 

30t 

RO.Rl 

FATFLG 

ERRNO . T22SSR . PK TSSR 



t ISSUE WRITE CHARACTERISTICS 
iBR. IF COWMNO ISSUED OK 
iBUHP COUNT 

I SAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTISC FAILED 

TRAP C«ER»«0 
.WORD 209 
.WORD WRTMSG 
.WORD SFIMSG 

tCHECK FOR EXTEIOEO FEATURES SW SWITCH 

iBR IF SWITCH IS ON 

t WRITE niSCELLMCOUS CONT/REAO STATUS 

iFUNCTION SELECTION BIT CTURN ON EXTFEA HW SWITCH) 

I WRITE SUBSYS HEM PACKET 

I ISSUE COrtWND 

I WAIT FOR SSR 

iBR. IF NO ERROR 

t ERROR. SAVE TSSR 

iBUMP COUNT 

iTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP C«ERHRO 
.WORD 210 
.WORD T22SSR 
.WORD PKTSSR 

tLOOP IF SELECTED 

TRAP CI CLP I 



TSV7 HARDWARE TESTS 1 8 MACRO MlllS 

TEST 2: OFF-LINE AND REJECT REUINO 



Ol-FEB-M 17:54 



G8 



SEQ 097 



439 02S212 

440 

441 

442 

443 

444 

445 

446 

447 025216 
446 025222 
449 025224 

453 025230 

454 025232 
025232 
025234 
025236 
025240 

455 025242 
025242 

456 025244 

457 025250 

458 025254 

459 025256 

463 025262 
025262 
025264 
025266 
025270 

464 025272 
025272 

465 025274 

466 025302 

467 025306 

468 025312 

469 025316 

470 025322 

471 025326 

472 025330 

473 025332 

477 025336 
025336 
025340 
025342 
025344 

478 025346 
025346 

479 025350 
025350 
025350 

480 025352 

481 025360 

482 025362 

483 025366 
484 

485 
486 
487 



012704 025770* 



MOV 



•T22PACKET.R4 



I SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



501: 



004737 010562' 
103407 

005237 002212' 
010001 

104456 

000323 

005046* 

011734* 

104406 

016501 000002 
032701 000100 
001006 

005237 002212' 



104455 
000324 
026325' 
011734* 

601: 

104406 

012737 102210 026100* 651: 

012704 026100* 

010465 000000 

004737 016150* 

016501 000002 

012702 100306 

020102 

001406 

005237 002212' 

104456 
000325 
026474* 
015374' 



104406 



104403 

023727 002212' 000017 
103402 

004737 017104' 



801 i 



JSR 
BCS 
INC 

MOV^ 
ERRHRO 



CKLOOP 



NOV 
BIT 



INC 



CKLOOP 

MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BCQ 
INC 

ERRHRD 



CKLOOP 
ENOSUB 



CMP 
BLO 
JSR 



PC. URTCHR 
50» 

FATFLG 
RO.Rl 

ERRNO . URTMSG . SF IMSG 



TSSR(R5).R1 

•OFL.Rl 

601 

FATFLG 

ERRNO. T220FL.SFIMSG 



♦102210. T22PK2 
•T22PK2.R4 
R4.TS0e(RS) 
PC.KMTF 
TSSRCRS).R1 
#SSR!SC!aFL!BITl!BIT2 
R1.R2 
801 

FATFLG 

ERRNO . T22RWJ . EXPREC 



999$! 
t ♦ 

ItEST 2. SUBTEST 3 



FATFLG, 415. 
9991 

PC.CKOROP 



I ISSUE WRITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 
iBUMP COUNT 

I SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTISC FAILED 

TRAP CIERHRO 
.WORD 211 
.WORD WRTMSG 
.WORD SFIMSG 

t SCOPE LOOP 

TRAP CICLPl 

iCET TSSR CONTENTS 
I CHECK FOR THE OFFLINE BIT SET 
iBR. IF OFFLINE (GOOD) 
I BUMP COUNT 

tOFF LINE SHOULD HAVE BEEN SET (BAD) 

TRAP CIERDF 
.WORD 212 
.WORD T220FL 
.WORD SFIHSG 

I LOOP IF SELECTED 

TRAP CI CLP 1 
iPOSITION COMMAND (REWIND MODE) 
tR4 • POINTER TO PACKET 
{ISSUE COMMAND 
lUAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
.R2iSET UP EXPECTED 
{ARE THEY EOUAL 

tBR. IF OK ESP. FUNCTION REJECT 
iBurV> COUNT 

I TSSR INCORRECT AFTER TAPE MOTION CHO 

TRAP OERHRO 
.WORD 213 
.WORD T22RWJ 
.WORD EXPREC 

iLOOP IF SELECTED 

TRAP C»CLP1 
}»>>>>>>«>>>> END SUBTEST >>>>>>>>>>>> 
L10041: 

TRAP CfESUB 
lis ERROR COUNT AT 25 
tBR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



H8 



TSV7 HARDWARE TESTS 1 6 MACRO I1I113 

TEST 2: OTf-LINE AND REJECT REWIND 



Ol-FEB-84 17:54 



SEQ 098 



486 
469 

490 
491 
492 
495 

494 02SS66 
025366 
025366 

495 025370 

496 025374 
497 

496 
499 
500 
501 
502 
503 

504 025400 

505 025404 

506 025406 

510 025412 

511 025414 
025414 
025416 
025420 
025422 

512 02S424 

513 025424 
514 

515 
516 
517 
518 
519 
520 

521 025430 

522 025434 

523 025436 

527 025442 

528 025444 
025444 
025446 
025450 
025452 

529 025454 

530 025460 
531 

532 025462 

533 025470 

534 025476 

535 025502 

536 025506 

537 025512 

538 025514 

539 02SS16 
543 025522 



VERIFIES THAT A REWIND COHrMND WITH CVC-1 CLEARS VCK 
AND RETURNS PROPER STATUS IN THE MESSAGE BUFFER. 



104402 

004737 026742' 
004737 027034' 



BGNSUB 



JSR 
JSR 



PC.T22REST 
PC,T22RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T2.S: 

TRAP C«BSUB 

I SET COMMAND PACKET 

I SET UP OTHER COMHAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CAiWY BIT CLEAA IF ERROR 



004737 015674* 
103407 

005237 002212' 
010001 

104455 
000326 
003642' 
011734' 

012704 025770' 



201: 



JSR PC.SOFINIT 

6CS 201 

INC FATFLG 

MOV RO.Rl 

ERROF ERRNO.SFIERR.SFinSG 



MOV •T22PACKET.R4 



lOO INITIALIZE ON CONTROLLER 
iBR IF INIT IMS OK 
iBUr^ COUNT 

•CONTENTS OF TSSR REGISTER 
iFATAL EIMOR TSSR HAS NOT OK 

TRAP 
, M0RO 
. MOWP 
.WORD 



CIEROF 
214 

SFIERR 
SFIMSG 



t SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 

000327 

005046' 

011734' 

005737 002216' 
001041 

112737 000200 026111' 
112737 000010 026110' 
012704 026100' 
010465 000000 
004737 016236' 
103407 
010001 

00S2S7 002212' 



JSR PC. WRTCHR 

6CS 231 

INC FATFLG 

MOV RO.Rl 

EMtHRO ERRNO.URTMSG. SFIMSG 



231 t TST EXTFEA 

BNE 501 

MOVB #200.T22BS1 

MOVE •10.T22BS0 

NOV •T22PK2.R4 

MOV R4.TSD6(R5) 

.ISR PC.CHKTSSR 

BCS 301 

MOV RO.Rl 

INC FATFLG 

ERRHRO ERRNO . T22SSR . PK TSSR 



(ISSUE WRITE CHARACTERISTICS 
iBR. IF COrtWND ISSUED OK 
tBUMP COUNT 

I SAVE CONTENTS OF TSSR 

I WRITE CHARACTERISTISC FAILED 

TRAP CtERHRD 
.WORD 215 
.WORD WRTHSG 
.WORD SFIMSG 

tCHECK FOR EXTENDED FEATURES SW SWITCH 

;BR IF SWITCH IS ON 

(WRITE MISCELLANEOUS CONT/REAO STATUS 

(FUNCTION SELECTION BIT CTURN ON EXTFEA HW SWITCH j 

(WRITE SUBSYS MEM PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR 

(BR. IF NO ERROR 

(ERROR. SAVE TSSR 

(BUMP COUNT 

(TSSR NOT CORRECT AFTER URT. f1ISCELLANE0i.S 



18 



rSV7 - HARDWARE TESTS 1-8 MACRO HlllS 

TEST 2: OrF-LI^€ AND REJECT REWIND 



01 -FEB 04 17:54 



SEQ 099 



025522 
025524 
025526 
025530 

544 025532 
025532 

545 025534 
546 

547 
548 
549 
550 
551 
552 

553 025540 

554 025544 

555 025546 

559 025552 

560 025554 
025554 
025556 
025560 
025562 

561 025564 
025564 

562 025566 

563 025572 

564 025576 

565 025600 

569 025604 
025604 
025606 
025610 
025612 

570 025614 
025614 

571 025616 

572 025624 

573 025630 

574 02S6S4 

575 025640 

576 02S644 

577 025650 

578 025652 

579 025654 
563 025660 

025660 
025662 
025664 
025666 

584 025670 
025670 

585 025672 

586 025676 

587 025702 

588 025704 

589 025710 



104456 

000330 
026130' 
011746* 

104406 

012704 025770' 



30t: 



CKLOOP 

MOV •T22PACKET.R4 



TRAP CIERHRD 

.WORD 216 

.WORD T22SSR 

.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP CICLPl 
I SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



501: 



004737 010562' 
103407 

005237 002212' 
010001 

104456 

000331 

005046' 

011734' 

104406 

016501 000002 
032701 000100 
001006 

005237 002212' 



104455 

000332 

026325* 

0117S4' 

601: 

104406 

012737 142010 026100' 65* : 

012704 026100' 

010465 000000 

004737 016150' 

016501 000002 

012702 100306 

020102 

001406 

005237 002212' 

104456 
000333 
026474' 
015374' 



104406 

012703 026012' 
016301 000006 
010102 

042702 000020 
020102 



60>: 



JSR 
BCS 
INC 
MOV 

nPMRD 



CKLOOP 



MOV 
BIT 



INC 
ERROF 



CKLOOP 

nov 

HOV 
HOV 
JSR 
MOV 
MOV 
CHP 
BEQ 
INC 

ERRHRO 



CKLOOP 

MOV 
MOV 
MOV 
BIC 
CMP 



PC.WRTCHR 
50» 

FATFLC 
RO.Rl 

ERRNO . WRTMSG . SF IMSG 



TSSR(I»5).R1 

•OFL.Rl 

601 

FATFLC 

ERRNO. T220FL . SFIMSG 



CIERHRD 

217 

WRTMSG 
SFIMSG 

CICLPI 



•142010. T22PK2 

•T22PK2.R4 

R4.TS0B(R5) 

PC.MAITF 

TSSI»CR5).Rl 

•SSft!0FL!SC!BITl!BIT2 

R1.R2 

801 

FATFLC 

ERIW40. T22RWJ.EXPREC 



•T22BFR.R3 

XST0(R3).R1 

RI.R2 

•BIT4.R2 

R1.R2 



I ISSUE WRITE CHARACTERISTICS 
iBR. IF COHMANO ISSUED OK 
tBUr^ COUNT 

(SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

J SCOPE LOOP 

TRAP 

iGET TSSR CONTENTS 
a CHECK FOR THE OFFLINE BIT SET 
tBR. IF OFFLINE (GOOD) 
iBUMP COUNT 

tOFF LINE SHOULD HAVE BEEN SET CBAO) 

TRAP C»EROF 
.WORD 218 
.WORD T220FL 
.WORD SFIMSG 

J LOOP IF SELECTED 

TRAP C»CLPl 
(POSITION COMMAND (REWIND MODE) CVC-1 
|R4 > POINTER TO PACKET 
I ISSUE COMMAND 
jWAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
,R2iSET UP EXPECTED 
:ARE THEY EQUAL 

I BR. IF OK ESP. FUNCTION REJECT 
tBUMP COUNT 

I TSSR INCORRECT AFTER TAPE MOTION CMO 

TRAP CtERHRO 
.WORD 219 
.WORD T22RWJ 
.WORD EXPREC 

iLOOP IF SELECTED 

TRAP CICLPl 
I POINTER TO MESSAGE BUFFER 
tPICK UP XSTO FROM MESSAGE BUFFER 
s SET UP EXPECTED 
iVCK SHOULD BE CLEAR 
(ARE THEY EQUAL 



J8 



TSV7 HARDWARE TESTS 1-6 HACRO NlllS 

TEST 2: OFF LINE AND REJECT REWIND 



Ol-FEBM 17:54 



590 025712 

591 025714 

595 025720 
025720 
025722 
025724 
025726 

596 0257S0 

597 0257S0 
025790 
025730 

596 025732 

599 025740 

600 025742 

601 025746 

602 025746 

603 025752 

604 025754 

605 025760 
025760 
025762 

606 
607 
606 
609 

611 025764 

613 025770 

614 025770 

615 025772 

616 025774 

617 025776 

618 026000 

619 026000 

620 026002 

621 026004 

622 026006 

623 026010 

624 026012 
625 

626 
627 

629 026074 

631 026100 

632 026100 

633 026102 

634 026104 

635 026106 
636 

637 

638 026110 

639 026110 

640 or- 111 

641 0ieoll2 

642 026114 
643 

644 
645 



001406 

005237 002212* 

104456 
000334 
026547- 
015374' 



104403 

023727 002212' 000017 
103402 

004737 017104' 

004737 016360* 
103002 

000137 024452' 

104432 
001116 



90$: 



9991: 



163«: 



t ♦ 



BEQ 

INC 

ERRHRD 



ENDSUB 



CMP 
BLO 
JSR 

JSR 
6CC 
JHP 
EXIT 



901 

FATFLG 

ERRNO . T22VCK .EXPREC 



FATFLG. #15. 
9991 

PC.CKDROP 

PC.TSTLOOP 
1631 
T22L00P 
TST 



I LOCAL STORAGE FOR THIS TEST 



100204 
026000' 
000000 
000012 

026012' 

000000 

000024 

000000 

000007 



.BLKB 
T22PACKET: 

.WORD 
.UGRO 
.WORD 
.WORD 

T220ATA: 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
T22BFR: .BLKU 



10-<.-TSV2£7> 

100204 

T220ATA 

0 

10. 

T228FR 
0 

20. 

0 

7 

25. 



i WRITE SUBSYSTEM MEMORY COMMAND PACKET 



100206 
026110' 
000000 
000006 



000 
000 
000000 
000000 



T22PK2: 



.BLKB 10-<.-TSV2e7> 



.WORD 
.WORD 
.WORD 
.WORD 



100206 
T22BF2 
0 
6. 



.EVEN 

T22BF2: 

T22BS0: .BYTE 0 

T226S1: .BYTE 0 

T22S2: .WORD 0 

T22S3: .WORD 0 



SEQ 100 



iBR. IF OK (Onno) 
I BUMP C0tff;T 

tVCK WASN'T CLEAR (BAD) 

TRAP OERHRD 
.WORD 220 
.WORD T22VCK 
.WORD EXPREC 

!>>>«>>>>>>>> END SUBTEST >>>>>>>»>>>> 
L 10042: 

TRAP CtESUB 
lis ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 

tDO WE NEED TO ITERATE TEST 
iBR. IF NO LOOP REQUIRED 
(EXECUTE AGAIN 
{ALL DONE THIS TEST 

TRAP OEXIT 
.WORD L 10037 



1 COMMAND PACKET FOR TEST 

iWRITE CHARACTERISTICS COMMAND. WITH IE. ACK 
1 ADDRESS OF CHARACTERISTICS BLOCK 

s STARTING VALUE OF BLOCK SIZE 
iCHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 



.•LENGTH OF MESSAGE BUFFER 

i SELECT DRIVE 7 
{MESSAGE BUFFER 



I WRITE SUB SYS MEM COMMAND. IE AND ACK 
{ADDRESS OF SELECT BLOCK DATA 

I SIZE OF DATA PACKET 



iBSELO AREA 
iBSELl AREA 
iSEL 2 AREA 
(DATA AREA 



.EVEN 



I<8 



TSV7 - HARDUARE TESTS 1-8 HACRO HlllS 

TEST 2: OFF-LINE AND REJECT REWIND 
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SEQ 101 



646 

647 026116 

648 026120 

649 026122 

650 026124 

651 026126 
652 

653 
654 
655 
656 
657 

658 026130 

659 026225 

660 026325 

661 026400 

662 026474 

663 026547 

664 026622 

665 026707 

667 
668 
669 
670 
671 
672 
673 

674 026742 

675 026742 

676 026746 

677 026752 

678 026756 

679 026762 

680 026764 

681 026770 

682 026774 

683 026776 

684 027002 

685 027004 

686 027010 

687 027014 

688 027022 

689 027024 

690 027030 

691 027032 
692 

693 

694 027034 

695 027034 

696 027040 

697 027044 

698 027050 

699 027054 

700 027056 

701 027062 

702 027064 



100201 
100205 
100210 
100211 
177777 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
C20227 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 



I TAPE MOTION PACKET COMMANO VALUES 
T22R0: .UORO 100201 
100205 
100210 
100211 
177777 



T22URT 
T22P0S 
T22F0R 



.UORO 
.WORD 
.UORO 
.UORO 



I RE AO TAPE FORUARO 
I WRITE TAPE FORUARO 
I POSITION TAPE 
I FORMAT TAPE 
I END OF OATA 



I* 



I LOCAL TEXT MESSAGES FOR TEST 



127 


122 


111 


T22SSR: 


.ASCZZ 


124 


123 


123 


T22ANS: 


.ASCIZ 


104 


162 


151 


T220FL: 


. ASCZZ 


124 


123 


123 


T22TMI 


.ASCIZ 


124 


123 


123 


T22RUJ: 


.ASCIZ 


103 


126 


103 


T22VCK: 


.ASCIZ 


052 


052 


052 


T22ULK: 


.ASCIZ 


117 


146 


146 


TST22I0: 





.EVEN 



' URZTE MISCELLANEOUS CONTROL/REAO STATUS CetMMnd Not Accepted' 

'TSSR Init. Failed After URITE MISCELLANEOUS CONRTOL/REAO STATUS' 

'Drive 7 Select Failed To Set "OFL" In TSSR' 

'TSSR Incorrect After Tipe Motion ConMand To Off -Line Device' 

'TSSR Not Correct After REWIND Uith VCK Set 

'CVC Set. Didn"t Reset VCK In Meeeaoe Buffer' 

••••••TAPE IS URITE -LOCKED AND UILL CAUSE ERRORS*****' 

.ASCIZ 'Off -Line And Reject Rewind' 



{routine to RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
tURITE SUBSYSTEM MEMORY COMMAND 



T22REST: 



025770' 

100204 

026000' 

000012 
026012' 

000024 

000007 
000020 

177777 026012' 
000000 



64t: 



SAVREG 




:SAVE THE REGISTERS 


MOV 


«T22PACKET.R1 


1 START OF THE PACKET 


MOV 


•100204. (RD* 


1 URITE SUBSYSTEM MEM. UITH ACK. IE 


MOV 


•T220ATA.(R1)» 


: ADDRESS OF CHARAISTICS OATA BLOCK 


CLR 


(RD* 


1 EXTENDED ADDRESS 


MOV 


«10..(R1)* 


iSIZE OF DATA BLOCK IN BYTES 


MOV 


#T228FR.(R1)* 


1 ADDRESS OF MESSAGE BUFFER 


CLR 


<Rl)» 




MOV 


«20..(R1)» 


•LENGTH OF MESSAGE BUFFER 


CLR 


(Rl)» 




MOV 


♦7.(Rl) 


(SELECT DRIVE SEVEN 


MOV 


•20.R2 


{NUMBER OF LOCATIONS TO BE CLEARED 


MOV 


♦177777. T228FR(R2) 


lALL ONES TO MESSAGE BUFFER 


TST 


-(R2) 


tBUMP R2 DOUN 


CMP 


R2.40 


lis R2 AT ZERO YET 


BNE 


641 


iKEEP GOING UNTIL DONE 


RTS 


PC 


{RETURN 



T22RT2: 



026100' 

100206 

026110' 

000006 

026110' 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR 

MOV 



♦T22PK2.R1 

•100206. CRD* 

•T22BF2,(R1)* 

(RD* 

•6..(R1)* 

(RD* 

•T22BF2,R1 



{SAVE THE REGISTERS 

{START OF THE PACKET 

{WRITE SUBSYSTEM MEM. UITH ACK. 

(ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

(SIZE OF DATA BLOCK IN BYTES 

(POINT TO DATA SEL AREA 



IE 



L8 



TSV7 
TEST 



HARDWARE TESTS 1-S riACRO MlllS 

2: Orr-LINE AND REJECT REWIND 



01-FEB-S4 17:54 



SEQ 102 



705 


027070 


005021 


704 


027072 


005011 


705 


027074 


005011 


706 


027076 


000207 


707 


027100 
027100 






027100 


104401 


708 






709 






710 






711 






712 






713 






714 






715 






716 






717 






718 






719 






720 






721 






722 






723 


027102 
027102 




724 


027102 


012737 


725 


027110 


005037 


726 


027114 


004737 


731 


027120 


004737 


732 


027124 


012700 


733 


027130 


004737 


734 


027134 


004737 


735 


027140 


012737 


736 






737 






738 






739 






740 






741 






742 






743 






744 






745 






746 






747 


027146 




748 


027146 
027146 






027146 


104402 


749 


027150 


004737 


750 


027154 


004737 


751 






752 






753 






754 






755 






756 






757 






758 


02716C 


004737 



006166* 
003124' 
017176' 
016104' 
0SS666' 
016412' 
021116* 
000005 



002170' 



002206' 



CLR 
CLR 
CLR 
RTS 

ENOTST 



(Rl)« 
(Rl) 
(Rl) 
PC 



I LAST LOG TO BE CLEARED 
(RETURN 



L10037: 



TRAP 



CIETST 



.SBTTL TEST S: BASIC WRITE DATA 



I ♦ 

!thIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COHMANO OPERATES 
iPROPERLY. UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY 
lURITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS 
iLINITED TO VERIFYING THAT THE COTtMND TERMINATED CORRECTLY WITH 
I THE CORRECT REGISTER. MESSAGE BUFFER AND RAH CONTENTS. 

'the test CONSISTS OF THE FOLLOWING 7 SUBTESTS 

I 

t 

I 

I- 



BGNTST 
HOV 

aR 

JSR 
JSR 
HOV 
JSR 
JSR 
MOV 



•EPRTl.EPRTSW 

KTENABLE 

PC.KTOFF 

PC.OSBINT 

•TST29ID.ro 

PC.TSTSETUP 

PC.MEMCK 

♦S.LOOPCNT 



T3:: 

i SET UP PRIMARY ERROR MESSAGE 

J TURN OFF KTll 

I TURN OFF KTll 
t DISABLE INTERRUPTS 
lASCII MESSAGE TO IDENTIFY TEST 
tOO INITIAL TEST SETUP 
I CHECK FOR MEMORY 
(PERFORM 5 ITERATIONS 



!tEST 3. SUBTEST 1 



(VERIFIES THAT A WRITE COMMAND (ANY VALID MODE CODE) 
(WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS 
(REJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL 
(VALID MODE CODES ARE CHECKED (WRITE DATA. WRITE 
(RETRY). 



T23LO0P: 



033702* 
033774' 



BGNSUB 



JSR 
JSR 



PC.T23REST 
PC.T23RT2 



(>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T3.1: 

TRAP C$BSU8 

(SET COMMAND PACKET 

(SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE • CARRY BIT CLEAR IF ERROR 



JSR 



PC.SOFINIT 



(DO INITIALIZE ON CONTROLLER 



M8 



TSV7 
TEST 



- HARDWARE 
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SEQ 103 



759 027164 

760 027166 

764 027172 

765 027174 
027174 
027176 
027200 
027202 

766 027204 

767 027204 

768 027212 
769 

770 
771 
772 
773 
774 
775 

776 027216 

777 027222 

778 027224 

782 027230 

783 027232 
027232 
027234 
027236 
027240 

784 027242 

785 027246 
786 

787 027250 

788 027256 

789 027264 

790 027270 

791 027274 

792 027300 

793 027302 

794 027304 

798 027310 
027510 
027312 
027314 
027316 

799 027320 
027320 

800 027322 

801 027330 
802 

803 
804 
805 
806 
807 
808 

809 027334 

810 027340 

811 027342 



103407 

005237 002212' 
010001 

104455 

000455 

003642' 

011734' 



012737 
012704 



000007 
032360* 



032400' 



201: 



BCS 201 

INC FATFLG 

MOV RO.Rl 

ERROF ERRNO.SFIERR.SFIMSG 



MOV «7.T230SU 
MOV «T23PACKET.R4 



I BR IF INIT UAS OK 
I BUMP COUNT 
I CONTENTS OF 
(FATAL ERROR 



TSSR REGISTER 
rSSR UAS NOT OK 

TRAP CIEROF 

.WORD 501 

.WORD SFIERR 

.UORO SFIMSG 



tSET DRIVE NUMBER IN PACKET 

t SUBROUTINE NEEDS PACKET ADDRESS 



URITE CHARACTERISTICS COMnANO (CALL TO URTCHR) 



004757 010562' 
103407 

005237 002212' 
010001 

104456 
000456 
005046' 
011734' 

005737 002216' 
001044 

112737 000200 032523' 
112737 000010 032522' 
012704 032470' 
010465 000000 
004737 016236* 
103407 
010001 

005237 002212' 

104456 
000457 
032544' 
011746' 

104406 

012737 000007 032400' 
012704 032360' 



JSR PC. URTCHR 

BCS 23 t 

INC FATFLG 

HOV RO.Rl 

ERRHRD ERRNO.URTMSG. SFIMSG 



231: 



{ISSUE URITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
tBUMP COUNT 

I SAVE CONTENTS OF TSSR 
•WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



CtERHRD 
302 

WRTMSG 
SFIMSG 



301: 



TST 


EXTFEA 


1 CHECK FOR EXTENOeO FEATURES SW SWITCH 


BNE 


501 


iBR IF SWITCH IS ON 




MOVB 


♦200.T238S1 


t WRITE MISCELLANEOUS CONT/REAO 


STATUS 


MOVB 


#10.T2SBSO 


{FUNCTION SELECTION BIT (TURN ON EXTFEA HU SWITCH) 


NOV 


#T23PK2.R4 


i WRITE SUBSYS MEM PACKET 




MOV 


R4.TS0B(RS) 


t ISSUE COmAM) 




JSR 


PC.cmrssR 


tWAIT FOR SSR 




BCS 


so» 


iBR. IF NO ERROR 




NOV 


RO.Rl 


(ERROR. SAVE TSSR 




INC 


FATFLG 


(BUMP COUNT 




ERRHRD 


ERRNO, T23SSR .PKTSSR 


(TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 




TRAP 


CtERHRD 






.WORD 


305 






.WORD 


T23SSR 






.WORD 


PKTSSR 


CKLOOP 




(LOOP IF SELECTED 








TRAP 


C»CLP1 


MOV 


«7.T230SW 


(SET DRIVE NUMBER IN PACKET 




HOV 


«T2SPACKET.R4 


(SUBROUTINE NEEDS PACKET ADDRESS 



URITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



004737 010562' 
103407 

005237 002212' 



JSR 
BCS 
INC 



PC. URTCHR 
501 

FATFLG 



(ISSUE URITE CHARACTERISTICS 
(BR. IF COMMAND ISSUED OK 
(BUMP COUNT 



N8 



TSV7 HARDWARE TESTS 1-8 
TEST S: BASIC URITE DATA 



815 027S46 

816 027S50 
027350 
027352 
027554 
027356 

817 027S60 
027360 

818 027362 

819 027366 

820 027372 

821 027374 

825 027400 
027400 
027402 
027404 
027406 

826 027410 
027410 

827 027412 

828 027416 

829 027422 

830 027426 

831 027432 

832 027436 

833 027442 

834 027446 

835 027450 

836 027452 

840 027456 
027456 
027460 
027462 
027464 

841 027466 
027466 

842 027470 

843 027472 

844 027476 

845 027500 

846 027502 

847 027502 
027502 
027502 

848 027504 
649 027512 

850 027514 

851 027520 
852 

853 
854 
855 
856 
857 
858 
859 
860 



MACRO H1113 01 -FEB -84 17:54 



SEQ 104 



010001 




MOV 






ERRHRD 


104456 






000460 






005046' 






011734' 








50»: 


CKLOOP 


104406 






016501 


000002 


MOV 


032701 


000100 


BIT 


001006 




BNE 


005237 


002212' 


INC 






ERRDF 


104455 






000461 






033206' 






011734' 








601: 


CKLOOP 


104406 






012703 


032534' 


HOV 


011337 


032470' 65t: 


nuv 


012704 


032470' 


HOV 


010465 


000000 


HOV 


004737 


016150* 


JSR 


016501 


000002 


HOV 


012702 


100306 


HOV 


020102 




CMP 


001406 




BEQ 


005237 


002212' 


INC 






ERRHRD 


104456 






000462 






032742' 






015374' 








801: 


CKLOOP 


104406 






005723 




TST 


022713 


177777 


CMP 


001401 




BEQ 


000746 




BR 




90«: 








ENOSUB 


104403 






023727 


002212' 000017 


CMP 


103402 




BLO 


004737 


017104' 


JSP 




999«: 





RO.Rl 

ERRNO . URTMSG . SFIMSG 



TSSR(R5).R1 

«0FL.R1 

601 

FATFLG 

ERRNO. T230FL . SFIMSG 



C»£RHRD 
304 

WRTMSG 
SFIMSG 

C*CLP1 



«T23M>.R3 

(R3).T23PK2 

*T23PK2.R4 

R4.TS0B(R5) 

PC.UAITF 

TSSRCRS).R1 

•SSR ! SC ! OFL !BIT1 !BIT2 

R1.R2 

801 

FATFLG 

ERRNO . T23TM . EXPREC 



I SAVE CONTENTS OF TSSR 
I URITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

I SCOPE LOOP 

TRAP 

iGET TSSR CONTENTS 
tCHECK FOR THE OFFLINE BIT SET 
iBR. IF OFFLINE (GOOD) 
(BUMP COUNT 

(OFF LINE SHOULD HAVE BEEN SET CBAO) 

TRAP C»ERDF 
.WORD 305 
.WORD T230FL 
.WORD SFIMSG 

{LOOP IF SELECTED 

TRAP C»CLP1 

t POINTER FOR COMMANDS 
{TAPE MOTION COMMAND IN PLACE 
tR4 • POINTER TO PACKET 
i ISSUE COMMAND 
tUAIT FOR SSR TO SET 
I GET TSSR CONTENTS 
,R2tSET UP EXPECTED 
sARE THEY EQUAL 

sBR. IF OK ESP. FUNCTION REJECT 
tBUMP COUNT 

iTSSR INCORRECT AFTER TAPE MOTION CMO 



(R3)» 

♦177777. (R3) 

90» 

65« 



FATFLG»#15, 
999» 

PC.CKOROP 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
306 
T23TM 
EXPREC 

C«CLPl 



I LOOP IF SELECTED 

iPOINT TO NEXT COMMAND 
: END OF THE COHHANOS YET 
:BR. IF DONE 
tHORE COHHANDCS) TO GO 



!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10044: 

TRAP C*ESUB 
:IS ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 



{TEST 3. SUBTEST 2 

I VERIFIES THAT URITE DATA COHHANOS WITH CVC-1 AND THE 
tSUAP BYTES (SUB) BIT CLEAR OPERATES PROPERLY. THE 
tBYTE COUNT (RECORD SIZE) VARIES FROH 20 THROUGH 64K 
tIN VARYING INCREMENTS (DEPENDING UPON UHETHER OR NOT 



B9 



TSV7 
TEST 



HAROUARE TESTS 1-0 
3: BASIC URITE DATA 



HACRO rims 01 -FEB -04 17i54 



SEO 105 



661 
662 
663 
664 

865 
666 
667 
666 

869 
670 
871 
672 

673 027520 
027520 
027520 

674 027522 
875 027526 

676 027530 

677 027532 
676 027536 
679 027542 
660 027546 
661 

862 
663 
664 
665 
866 
867 

866 027552 

689 027556 

690 027560 

694 027564 

695 027566 
027566 
027570 
027572 
027574 

696 027576 

697 027576 
696 027604 
699 

900 
901 
902 
90S 
904 
905 

906 027610 

907 027614 
900 027616 

912 027622 

913 027624 
027624 
027626 
027630 
027632 



I THE DIAGNOSTIC IS RUNNING IN THE LONG VERIFICATION 

iHOOE). THE TAPE IS NOT REMOUNO BETUEEN SUCCESSIVE 

t RECORDS BUT IS REWOUND AFTER THE FINAL RECORD IS 

lURITTEN. AN INCBCNENTING COUNT PA'iTERN IS SUPPLIED 

I IN THE DATA BUFFER. AFTER EACH BLOCK IS URITTEN. THE 

iTSSR AND TSBA REGISTERS. THE HESSAGE BUFFER. AND THE 

I RAN CONTENTS ARE CHECKED. (THE RAH CONTENTS ARE CHECKED 

lUSING THE URITE SUBSYSTEM NENORY COHHAND. 

I 

I 

i 

I - 



104402 

013701 
000241 
006101 
010137 
004737 
004737 
004737 



003116' 



032520' 
033702' 
054036- 
033774' 



BGNSUB 



HOV 
CLC 
ROL 
HOV 
JSR 
JSR 
JSR 



FRESIZ.Rl 
Rl 

R1.T23RSZ 
PC.T23REST 
PC.T2SRTS 
PC.T2SRT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T3.2: 

TRAP CtBSUB 
iGET SIZE OF AVAILIABLE HENORr 
iCLEAR THE CARRY BIT 
iNAKE INTO BYTES 
I STORE IN TEST FOR USE LATER 
• SET COrtlAND PACKET 
iRESTORC PACKET 
I SET UP OTHER COHNAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 015674' 
103407 

005237 002212' 
010001 

104455 
000463 
003642' 
011754' 

013737 002172' 052400' 
012704 032360' 



209 ! 



JSR PC.SOFXNIT 
BCS 20t 
INC FATFLG 
NOV RO.Rl 

ERRNO . SF lERR . SF INSG 



HOV UNITN.T2S0SU 
NOV •T2SPACKET.R4 



iDO INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
lBUM» COUNT 

{CONTENTS OF TSSR REGISTER 
iFATM. ERROR TSSR MAS NOT OK 

TRAP 
. MORO 
.UORO 



CtEROF 

307 

SFIERR 
SFinSG 



iLORO UP SELECTED UNIT NUMBER 
I SUBROUTINE NEEDS PACKET AOORESS 



URITE CHARACTERISTICS CQHHAND (CALL TO URTCM)) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 
000464 
005046' 
011734- 



JSR PC.URTC»« 

BCS 231 

INC FATFLG 

NOV RO.Rl 

ERRHRD ERRNO . UR THSG « SF INSG 



I ISSUE URITE CHARACTERISTICS 
iBR. IF COmAM) ISSUED OK 
iBUt^ COUNT 

I SAVE CONTENTS OF TSSR 
lURITE CHARACTERISTISC FAILED 

TRAP 
.UORO 
.WORD 
.WORD 



OERHRD 
306 

URTHSG 
SFIMSG 



C9 



MACRO HI 115 Ol-fEB 84 17i54 



SEO 106 



914 027634 
027634 

916 
917 
918 
919 
920 
921 

922 0276S6 

923 027642 

924 027646 
925 

926 
927 
928 
929 
930 
931 

932 0276S4 

933 027662 

934 027670 

935 027676 

936 027702 

937 027704 

938 027710 

939 027714 

940 027720 

941 027724 

942 027730 

943 027734 

944 027736 

945 027740 

946 027744 
027744 

947 027746 

948 027752 

949 027756 

950 027762 

951 027766 

952 027770 

953 027774 

954 027776 

955 030000 

959 030004 
030004 
030006 
030010 
030012 

960 030014 
030014 

961 030016 

962 030022 

963 030024 

964 030030 

965 010036 

966 030044 



104406 



231: 



CKLOOP 



iLOOP If SCLECTEO 



TRAP 



C»CLPl 



ISSUE REUZNO COTtMND TO SELECTED TAPE DRIVE 



004737 010714* JSR PC. REWIND 

012703 000024 NOV •20..R5 

013737 003114* 032512' 651: MOV FREE.T2SUB 



I CALL T»C TAPE PEUIM) 
•STARTING RECORD SIZE 
I STARTING URITE SUTrER ADDRESS 



!yRITE DATA.CVC"1.ACK COHNAND 
I 



012737 
012737 
052737 
012704 
010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001402 
004757 

104406 

016501 
012702 
062702 
005757 
001402 
062702 
020102 
001406 
005257 

104456 
000465 
055525' 
015574* 



104406 

020527 007576 
002114 

004757 055774* 

012757 000400 052524' 

112757 000000 052522' 

112757 000000 052S25' 



140005 032510* 

140005 032532' 

004000 052552' 
052510* 

017524* 

052516' 

000000 

016150' 

000002 

000200 



054062' 

000000 
052402* 
000016 
002216* 

000002 

002212' 



80»: 



6S«: 



nov 


•140005. T2SPK5 


iWRITE DATA.CVC-l.ACK COmAM) 


nov 


•140005. T25URT 


t SETUP rOR RETRY COWMND 


BIS 


•4000.T29URT 


inAKE IT A RETRT 


nov 


•T25PKS.R4 


iSET UP R4 WITH PACKET ADDRESS 


nov 


RS.RO 


iSET PATTERN IN CORRECT REGISTER 


JSR 


PC.FXLLHEH 


iriLL nEnoRT uith record size 


nov 


RS.T2SSZ 


iSET UP RECORD SIZE IN PACKET 


nov 


R4.TS0e(R5) 


1 ISSUE COrtlANO 


JSR 


PC.MAITF 


lUAIT FOR SSR TO SET 


nov 


TSSR(R5).R1 


iGET TSSR CONTENTS 


nov 


•SSR.R2 


iSET UP EXPECTED 


CMP 


R1.R2 


lARE T»CY EQUAL 


BEQ 


60» 


iBR. IF OK 


JSR 


PC.T2SCHK 


iC»€CK SPECIAL CO^OITION 


CKLOOP 


iLOOP IF SELECTED 






TRAP C»CLPl 


rov 


TS8A(RS).R1 


iGET TSBA CONTENTS 


nov 


•T25BFR.R2 


iSET UP EXPECTED 


ADO 


•16. R2 


iSET TO END OF MESSAGE BUFFER 


TST 


EXTFEA 


iC»<CK FOR EXTENDED FEATURES SU SET 


BCQ 


851 


iBR. IF IT NOT SET 


ADO 


•2.R2 


iBUrP R3 FOR EXTRA DATA 


CHP 


R1.R2 


lARE T»<Y EQUAL 


BEQ 


90* 


iBR. IF TSBA IS CORRECT 


INC 


FATFLC 


iBUMP COUNT 


errhrd 


ERRN0.T238A.EXPREC 


iTSBA MAS NOT CORRECT AFTER URITE DATA 



901: 



CKLOOP 

CMP 

BGE 

JSR 

MOV 

M0V6 

NOVB 



TRAP 
.UORO 
.UORD 
.yORD 



CSERHRD 
509 
T25BA 
EXPREC 



R5. 47576 
1151 

PC.T25RT2 
•256..T25S2 
•0.T258S0 
•0.T258S1 



:LO0P IF SELECTED 

TRAP C«CLPl 
I ONLY C*€.CK RAM UNTIL ITS FULL 
I IT URAPS AROUND ETC. 
I MAKE SURE PACKET AND DATA ARE CLEAN 
iSTARTING RAM ADDRESS 
iSTOP INTERNAL TSV05 DIAGNOSTICS 
I SIZE OF RAM READ 



D9 



MACRO mil3 0l-FEB-e4 I7j54 



SEU 107 



^Vf> f 




A1 07AA 


f\XOA 70* 




nuv 






VIV^QO 


www 




MHW 

nw 






004737 


016236' 

VXwc«#w 




JSR 


Q70 

y f v 


AXOAA6 


X VO^V f 






Ob J 


Q71 




UIVWX 






MOW 








UUccXc; 




xn^ 


^ r w 


VOW f o 












vow ' o 












vovx w 


VW^Ow 










VOwXVC 












0S0104 


oil 746' 

VAX 








977 


0V)106 






7C ▼ • 


CKLOOP 




VOVX>^D 


104406 








97A 




0047S7 


033774* 




JSR 


979 




012737 

VAC ■ ^ ■ 


000400 


032524 ' 


MOV 


980 




112737 

A AS ■ ^ » 


000001 


032522' 


MOVB 


9Ai 


030150 


112737 


000002 


032523' 


MOVB 


9ap 




012704 


032470' 




MOV 


983 




01046S 


000000 


95t • 


MOV 


984 




004737 


016236' 




JSR 


98S 




103407 

AV^ • 






BCS 


986 




OlOOOl 

V A WV A 






MOV 


987 


0S01S6 


OOS237 


002212' 

WVCC AC 




INC 


991 










CRRHRO 






1044S6 

AW^ 












000467 










030166 


033577' 










030170 


011746* 

VAA 








99P 


0S017P 

VOVX ' lb 






1001 1 

AWV S 


CKLOOP 






x^^^vu 








99S 




005001 






CLR 


994 




w^wc 








99S 




0137A1 
vxo * vx 


032422' 
voc^cc 




HOV 


996 


0S02O4 


A1AV)2 

VXVOVc 






HOV 


997 


0S0P06 


020102 

VcVXVC 






CMP 

W* 


998 


030210 


001406 








999 


030212 


005237 


002212' 

WccXC 




INC 

A"W 


IOCS 


0S0216 








ERRHRO 




030216 


104456 










030220 


000470 










030222 


033065' 










030224 


015374' 








1004 


030226 






not £ 


CKLOOP 




030226 


104406 

A%# • WWW 








1005 


030230 


005237 


032524 ' 




INC 

A* VW 


1006 


030234 


005237 


032524 ' 

w«#c ^c^ 




INC 

A"»W 


1007 


030240 


010301 

V AV«#W A 






MOV 


1006 


030242 


062701 


000400 




ROD 


1009 


030246 


023701 


032S24' 




CMP 


1010 


0302S2 


001333 






BNE 


1011 


030254 


062703 


001750 


list: 


ADO 


1012 


030260 


020337 


032520' 




cw» 


lOlS 


030264 


002005 






BGE 


1014 


030266 


020327 


177776 




CMP 


1015 


030272 


001402 






BEQ 


1016 


030274 


000137 


027646' 




JMP 


1017 


030300 






12011 





fT23PK2,R4 

R4.TS0e(R5) 

PC.CHKTSSR 

92 1 

RO.Rl 

FATFLG 

ERRN0.T23USS.PKTSSR 



PC,T23RT2 

•256..T23S2 

•1.T2SBS0 

#2,T2SBS1 

#T23PK2.P4 

R4.TS0e(R5) 

PC.CMCTSSft 

1001 

RO.Rl 

FATFLG 

CRRN0.T2SUSS.PKTSSR 



Ri 

112 

T2S8rR*20.Rl 

RS.RS 

ftl.ll2 

1101 

FATFLG 

ERRNO* T2BRNC tEXPRCC 



T2SS2 

T2SS2 

RS.Rl 

•256.. Rl 

T2SS2.R1 

951 

•1000. .RS 
R3.T23RSZ 
1201 

R3. •65534. 

1201 
65« 



I SET R4 WITH PACKET ADDRESS 

iBR. IF NO ERRORS IN TSSR 
I SAVE TSSR 
I BUMP COUNT 

I TSSR BAD AFTER URITE SUB SYS MEM 

TRAP CIERHRO 
.WORD 310 
.WORD T2SWSS 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP CtCLPl 
I HAKE SURE PACKET AND DATA ARE CLEAN 
•STARTING RAH ADDRESS 
iREAO RAM COMMAND FOR URITE SUB StS M. 
iSIZC OF RAM READ 
I SET R4 UITH PACKET ADDRESS 
•ISSUE URITE SUB SYS MEM COMMAND 
•CHECK TSSR AND UAIT FOR SSR TO SET 
tBR. IF NO ERRORS IN TSSR 
•SAVE TSSR 
•BUMP COUNT 

iTSSR BAD AFTER URITE SUB SYS MEM 

TRAP CSERhRO 
.UORD 311 
.UORO T23USS 
.UORD PKTSSR 

•LOOP IF SELECTED 

TRAP CICLPl 

•aEAR REGISTER 

taEAR REGISTER 

•PICK UP BTTE READ FROn RAM 

•SET UP EXPECTED 

•IS RAM DATA CORRECT 

tBR. IF OK CEOUML) 

•BUMP COUNT 

•RNC-RAM NOT CORRECT 

TRAP CtERHRD 
.UORD 312 
.UORD T23RNC 
.UORD EXPREC 

•LOOP IF SELECTED 

TRAP CtCLPl 
iBUMP RAM ADDRESS TO BE CHECKED 
•BUMP RAM ADDRESS TO BE C»CCKED 
•GET SIZE OF RECORD 
(FIGURE OUT END RECORD ADDRESS 
•AT IND OF RAM C»CCK YET 
•BR. IF MORE TO CHECK 
•NEXT RECORD SIZE/DATA PATTERN 
•IS R3 OVER MAX RECORD SIZE 
I IF RECORD SIZE IS TOO BIG QUIT 
I END OF SUBTEST MAX RECORD SIZE 
I BR. IF COMPLETED 
tOO MORE RECORDS 



E9 



TSW7 
TEST 



HARDWARE TESTS 1-6 
S: BASIC WRITE DATA 



MACRO rilll3 01-FEB 64 17iS4 



SEQ 106 



1016 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1030 



1031 
1032 



1033 
1034 
1035 
1036 
1037 
1036 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1046 
1049 
1050 



1051 
1052 
1053 
1054 
1055 
1056 
1057 
1056 
1059 
1060 
1061 
1062 
1066 
1067 



1066 



030300 
030304 
030310 
030316 
030322 
030326 
030332 
030334 
030336 
030342 
030342 
030344 
030346 
030350 
030352 
030352 
030352 
030352 
030354 
030362 
030364 
030370 



030370 
030370 
030370 
030372 
030376 



030402 
030406 
030410 
030414 
030416 
030416 
030420 
030422 
030424 
030426 



004737 034036' 

004737 033774' 

012737 102010 032470' 

012704 032470' 

010465 000000 

004737 016236' 
103407 
010001 

005237 002212' 

104456 
000471 
033016' 
011746' 



104403 

023727 002212' 000017 
103402 

004737 017104* 



1301: 



JSR 
JSR 

nov 
nov 
nov 

JSR 
BCS 
MOV 
INC 

ERRHRD 



ENOSVJB 



PC.T23RT3 

PC.T23RT2 

•102010. T2SPK2 

•T2SPK2,R4 

R4.TS0e(R5) 

PC.CHKTSSR 

1301 

RO.Rl 

FATFLC 

ERRNO . T2SRWN . PK T SSR 



•RESTORE PACKET 

I CLEAN UP PACKET 

I REWIND C POSIT ION) COMMAND 

I LOAD R4 WITM PACKET ADDRESS 

I ISSUE REWIND COMMAND 

iWAIT FOR SSR TO SET 

|8R. IF TSSR IS OK CGOOD) 

I SAVE TSSR CONTENTS 

iBUMP COUNT 

I TSSR IS INCORRECT AFTER REWIND 

TRAP C»ERHR0 
.WORD 313 
.WORD T23RWN 
.WORD PKTSSR 



I >>>>>>>>>>>> 



9991: 



CMP 
BLO 
JSft 



FATFLC. #15. 
999t 

PC.CKOftOP 



END SUBTEST 
L 10045: 

TRAP 

lis ERROR COUNT AT 25 
tBR. IF LESS TMAN 25 
iTRT TO DROP THE UNIT 



>>>>>>>>>>>> 



C«ESU6 



TEST 3. SUBTEST 3 

VERIFIES THAT WRITE DATA COMMMNDS WITH CVC-1 AND THE 
SWAP BYTES (SUB) BIT SET OPERATES PROPERLY. THE TEST 
SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 
THE RESULTS, EXCEPT FOR RAM CONTENTS. SHOULD BE THE SAME. 



104402 

004737 033702' 
004737 033774' 



BGNSUB 



JSR 
JSR 



PC.T2SREST 
PC.T23RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T3.3: 

TRAP CtBSUB 

tSET COMMAND PACKET 

iSET UP OTHER COMHANO PACKET 



ISSUE CONTROLLER "SOFT- INITIALIZE - CARRY BIT aEAR IF ERROR 



004737 015674* 
103407 

005237 002212' 
010001 

104455 
000472 
003642' 
011734' 



JSR PC.SOFINIT 

BCS 20 » 

INC FATFLG 

MOV RO.Rl 

ERROF ERRNO. SFIERR.SFIMSG 



tOO INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
I BUMP COUNT 

{CONTENTS OF TSSR REGISTER 
I FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 



C»ERDF 
314 

SFIERR 
SFIMSG 



20<: 



F9 



TSV7 HARDWARE TESTS 1-6 
TEST S: BASIC URITE DATA 



MACRO nillS Ol-FEB-84 17:54 



SEQ 109 



1069 
1070 
1071 
1072 
1075 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1064 
1085 



1086 
1087 
1066 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1106 
1109 
1110 

1111 
1112 
1113 
1114 
1115 
1116 
1117 
1116 
1119 
1123 



030426 
030434 



030440 
030444 
030446 
030452 
030454 
030454 
030456 
030460 
030462 
030464 
030464 
030470 



030476 
030504 
030512 
030520 
030524 
030526 
030532 
030536 
030542 
030546 
030552 
030556 
030560 
030562 
030566 
030566 
030570 
030574 
030600 
030604 
030610 
030612 
030616 
030620 
030622 
030626 
030626 
030630 
030632 



013737 002172' 032400' 
012704 032360' 



MOV UNITN,T2S0SU 
MOV •T23PACKET.R4 



I SET UP UNIT NUMBER 

I SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 
000473 
005046' 
011734' 

231: 

012703 000024 

013737 003114' 032512' 651 t 



JSR PC. WRTCHR 

BCS 231 

INC FATFLC 

MOV RO.Rl 

ERRHRO ERRNO.URTMSG.SFIMSG 



NOV •20. .RS 
NOV FREE.T2^^ 



I ISSUE WRITE CHARACTERISTICS 
tBR. IF CG»tMNO ISSUED OK 
iBUMP COUNT 

I SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

t STARTING RECORD SIZE 
{STARTING WRITE BUFFER ADDRESS 



CtERHRO 
315 

WRTMSG 
SFIMSG 



012737 
012737 
052737 
012704 
010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001402 
004737 

104406 
016501 
012702 
062702 
005737 
001402 
062702 
020102 
001406 
005237 

104456 
000474 

033525' 





IwRITE OATA.CVC-l.ACK.SWB COHNAND 


150005 


032510' 


NOV 


•150005. T23PKS 


1S0005 


032532' 


MOV 


•150005. T2SURT 


004000 


032532' 


BIS 


•4000.T2SIAT 


032510* 




NOV 


•T2SPKS.R4 






MOV 


RS.RO 


017324' 




JSR 


PC.FILLHEH 


032516' 




MOV 


RS.T2SSZ 


000000 




MOV 


R4.TS0BCRS) 


016150' 




JSR 


PC.MAXTF 


000002 




MOV 


TSSR(RS).R1 


000200 




NOV 


•SSR.R2 






CHP 


RI.R2 






BED 


601 


034062' 




JSR 


PC.T23CMK 




601: 


CKLOOP 




000000 




NOV 


TSBACR5).R1 


032402' 




MOV 


•T2SBFR.R2 


000016 




ADO 


•16. R2 


002216' 




TST 


EXTFEA 






BEQ 


651 


000002 




ADO 


•2.R2 




651: 


CMP 


R1.R2 






BEQ 


901 


002212' 




INC 


FATFLC 






ERRHRO 


ERRN0.T23BA.EXPREC 



iWRITE DATA.CVC-l.ACK.SUB COHMAM) 

t SETUP FOR RETRY COHNAND 

iMAKE IT A RETRY 

tSET UP R4 WITH PACKET ADDRESS 

tSET PATTERN IN CORRECT REGISTER 

tFILL MEMORY UXTH RECORD SIZE 

I SET UP RECORD SIZE IN PACKET 

• ISSUE COrtlAM) 

I WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

I SET UP EXPECTED 

I ARE THEY EQUAL 

tBR. IF OK 

tCHECK SPECIAL CONDITION 
iLOOP IF SELECTED 

TRAP C»CLP1 

iGET TSBA CONTENTS 

I SET UP EXPECTED 

tSET TO END OF MESSAGE BUFFER 

t CHECK FOR EXTENDED FEATURES SU SET 

tBR. IF IT NOT SET 

I BUMP R2 FOR EXTRA DATA 

lARE THEY EQUAL 

tBR. IF TSBA IS CORRECT 

iBUMP COUNT 

iTSBA WAS NOT CORRECT AFTER WRITE DATA 

TRAP CSERHRO 
.WORD 316 
.WORD T23BA 



G9 



TSV7 
TEST 



HARDWARE TESTS 1-6 
S: BASIC WRITE DATA 



MACRO HIIIS 01 -FEB -64 17:54 



SEQ 110 



1124 

1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1140 



1141 

1142 
1143 
1144 
1145 
1146 
1147 
1146 
1149 
1150 
1151 
1155 



1156 

1157 
1156 
1159 
1160 
1161 
1162 
1163 
1164 
1168 



1169 

1170 
1171 
1172 



0S06S4 
030636 
030636 
030640 
030644 
030646 
030652 
030660 
030666 
030674 
030700 
030704 
030710 
030712 
030714 
030720 
030720 
030722 
030724 
030726 
030730 
030730 
030732 
030736 
030744 
030752 
030760 
030764 
030770 
030774 
030776 
031000 
031004 
031004 
031006 
031010 
031012 
031014 
031014 
031016 
031020 
031022 
031026 
031030 
0310S2 
031034 
031036 
031042 
031042 
031044 
031046 
031050 
031052 
031052 
031054 
031060 
031064 



90»: 



015374' 
104406 

020327 007376 
002115 

004737 033774' 
012737 000400 032524' 
112737 000000 032522' 
112737 000000 032523* 
012704 032470' 
010465 000000 
004737 016236* 
103407 
010001 

005237 002212' 

104456 
000475 
033577* 
011746* 

104406 

004737 033774' 

012737 000400 032524' 

112737 000001 032522' 

112737 000002 0S2S23' 

012704 032470' 

010465 000000 95t: 

004737 016236' 
103407 
010001 

005237 002212' 

104456 
000476 

033577' 
011746' 



921: 



104406 

005001 
005002 

013701 032422' 

010302 

000302 

020102 

001406 

005237 002212' 

104456 
000477 
033065' 
015374* 

104406 

005237 032524' 
005237 032524' 
010301 



1001: 



llOf : 



CKLOOP 

CMP 

BGE 

JSR 

MOV 

MOVB 

MOVB 

MOV 

MOV 

JSR 

BCS 

MOV 

INC 

ERRHRO 



R3.»73'6 
115$ 

PC,T23RT2 

♦256..T23S2 

«O.T23BSO 

•0.T23BS1 

•T23PK2.R4 

R4.TSDB(R5) 

PC.CMKTSSR 

921 

RO.Rl 

FATFLG 

ERRN0.T23WSS.PKTSSR 



.WORD EXPREC 

I LOOP IF SELECTED 

TRAP C»CLPl 
I ONLY CHECK RAM UNTIL ITS FULL 
I IT WRAPS AROUND ETC. 
iMAKE SURE PACKET AND DATA ARE CLEAN 
I STARTING RAM ADDRESS 
I STOP INTERNAL TSV05 DIAGNOSTICS 
I SIZE OF RAM READ 
iSET R4 WITH PACKET ADDRESS 
I ISSUE WRITE SUB SYS MEM COMMAND 
•CHECK TSSR AND WAIT FOR SSR TO SET 
tBR. IF NO ERRORS IN TSSR 
I SAVE TSSR 
I BUMP COUNT 

I TSSR BAD AFTER WRITE SUB SYS MEM 



TRAP 
.WORD 
.WORD 
.WORD 



OERHRO 
317 

T23WSS 
PKTSSR 



CKLOOP 




iLOOP IF SELECTED 






TRAP CICLPl 


JSR 


PC.T23RT2 


iMAKE SURE PACKET AND DATA ARE CLEAN 


MOV 


•2S6..T25S2 


{STARTING RAM ADDRESS 


MOVB 


♦1.T2SBS0 


iREAD RAM COMMAND FOR WRITE SUB SYS M. 


MOVB 


#2.T23BS1 


iSIZE OF RAM READ 


MOV 


♦T23PK2.R4 


tSET R4 WITH PACKET ADDRESS 


MOV 


R4.TS0B(R5) 


t ISSUE WRITE SUB SYS MEM CMD (READ RAM) 


JSR 


PC.CHCTSSR 


t CHECK TSSR AND WAIT FOR SSR TO SET 


BCS 


1001 


tBR. IF NO ERRORS IN TSSR 


MOV 


RO.Rl 


I SAVE TSSR 


INC ^ 


FATFLG 


tBUMP COUNT 


ERRHRO 


ERRNO. T23WSS. PKTSSR 


iTSSR BAD AFTER WRITE SUB SYS MEM 



CKLOOP 




tLOCP IF SELECTED 


CLR 


Rl 


1 CLEAR REGISTERS 


CLR 


R2 


; CLEAR REGISTERS 


MOV 


T2SeFR.20.Rl 


iPICK UP BYTE READ FROM 


MOV 


RS.Ra 


J SET UP EXPECTED 


SWAB 


R2 


iSWAP BYTES 


CMP 


R1.R2 


lis RAM DATA CORRECT 


BEQ 


1101 


iBR. IF OK (EQUAL) 


INC 


FATFLG 


jBump count 


ERRHRD 


ERRNO . T23RNC .EXPREC 


iRNC-RAM NOT CORRECT 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C»ER»«D 
318 

T23WSS 
PKTSSR 

C»CLP1 



CKLOOP 

INC 
INC 
MOV 



T23S2 
T23S2 
R3.R1 



TRAP CtERHRO 
.WORD 319 
.WORD T23RNC 
.WORD EXPREC 

jLOOP IF SELECTED 

TRAP CJCLPl 
iBUMP RAM ADDRESS TO BE CHECKED 
I BUMP RAM ADDRESS TO BE CHECKED 
iCET SIZE OF RECORD 



H9 



TSV7 
TEST 



HARDWARE TESTS 1-6 
S: BASIC URITE DATA 



nACRO Mills 01 FEB 64 17:54 



SEQ 111 



1175 
1174 
1175 
1176 
1177 
1178 
1179 

iiao 

1181 
1182 
1185 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1194 



1195 
1196 



1197 
1196 
1199 
1200 
1201 
1202 
1205 
1204 
1205 
1206 
1207 
1206 
1209 
1210 
1211 
1212 
1215 



1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1225 
1224 



051066 
051072 
051076 
051100 
051104 
051110 
051112 
051116 
051120 
051124 
051124 
051150 
051156 
051142 
051146 
051152 
051154 
051156 
051162 
051162 
051164 
051166 
051170 
051172 
051172 
051172 
051172 
051174 
051202 
051204 
051210 



051210 
051210 
051210 
051212 
051216 
031222 



062701 000400 

025701 052524' 
001552 

062705 001750 

020557 052520* 
002005 

020527 177776 
001402 

000157 050470- 

004757 055774' 

012757 102010 052470' 

012704 052470' 

010465 000000 

004757 016256' 

105407 

010001 

005257 002212' 

104456 

000500 
055016' 
011746' 



104405 

025727 002212* 000017 
105402 

004757 017104' 



1151: 



1201: 



150<: 



ADO 
CMP 
BNE 
ADD 
CMP 
BGE 
CMP 
BEQ 
JMP 

JSR 
MOV 
MOV 
MOV 
JSR 
BCS 
MOV 
INC 

ERRHRO 



ENDSU8 



•256.. Rl 
T25S2.R1 
95 » 

•1000.. R5 
R5.T25RSZ 
1201 

R5. •65554. 

1201 

651 

PC.T25RT2 

•102010. T25PK2 

•T23PK2.R4 

R4.TS0B(R5) 

PC.CHKTSSR 

1501 

RO.Rl 

FATFLG 

ERRNO. T25RUN .PKTSSR 



•FIGURE OUT END RECORD ADDRESS 

I AT END OF RAM CHECK YET 

I BR. IF MORE TO CHECK 

iNEXT RECORD SIZE/DATA PATTERN 

lis R5 OVER MAX RECORD SIZE 

I IF RECORD SIZE IS TOD BIG QUIT 

I END OF SUBTEST MAX RECORD SIZE 

I BR. IF COMPLETED 

I DO MORE RECORDS 

I CLEAN UP PACKET 
iREUiND (POSITION) COMMAND 
iLOAO R4 WITH PACKET ADDRESS 
I ISSUE REWIND COMMAND 
lUAIT FOR SSR TO SET 
iBR. IF TSSR IS OK (GOOD) 
I SAVE TSSR CONTENTS 
I BUMP COUNT 

I TSSR IS INCORRECT AFTER REMIND 

TRAP CtERHRO 
.UORD 520 
.UORD T25RUN 
.UORD PKTSSR 



CMP 
BLO 
JSR 



FATFLG. •IS. 
9991 

PC.CKDROP 



999«! 
t* 

I TEST 5. SUBTEST 4 

IvERIFIES THAT A WRITE COMMAND WITH AN ILLEGAL MODE 
tFIELO OR AN ILLEGAL BUFFER ADDRESS IS REJECTED UITH 
iTHE PROPER ERROR STATUS AND THAT TAPE DOES NOT MOVE 
I 
I 

t - 



!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10046: 

TRAP 

lis ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
iTRY TO DROP THE UNIT 



C«ESUB 



104402 

004737 035702* 

004737 054036' 

004737 035774* 



6GNSUB 



JSR 
JSR 
JSR 



PC.T25REST 

PC.T25RT5 

PC.T25RT2 



!>>>>>>»>>>>> BEGIN SUBTEST >>>>>>>>>>•>•> 
T5.4: 

TRAP C<BSU6 

iSET COrtlAND PACKET 

I RESTORE PACKET 

I SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



051226 004757 015674' 



JSR 



PC.SOFINIT 



iOO INITIALIZE ON CONTROLLER 



19 



TSV7 - HARDWARE TESTS 1-6 
TEST S: BASIC URITE DATA 



MACRO nil IS 01 -FEB 64 17:54 



SEQ 112 



1225 
1226 
1230 
1231 



1232 
1233 
1234 
1235 
1236 
1237 
1236 
1239 
1240 
1241 
1242 
1243 
1244 
1246 
1249 



1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1256 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1266 
1272 



127? 
1274 

1275 



031232 
031234 
031240 
031242 
031242 
031244 
031246 
031250 
031252 
031252 
031260 



031264 
031270 
031272 
031276 
031300 
031300 
031302 
031304 
031306 



031310 
031316 
031324 
031332 
031340 
031344 
031350 
031354 
031360 
031364 
031366 
031370 
031374 
031374 
031376 
031400 
031402 
031404 
031404 
031406 
031406 
031406 
031410 



103407 

005237 002212* 
010001 

104455 
000501 
003642' 
011734' 

013737 002172' 032400* 
012704 032360* 



20t: 



BCS 20 t 

INC FATUG 

MOV RO.Rl 

ERROT ERRNO.SFIERR.SFiriSG 



nOV UNITN.T2S0SU 
nOV •T2SPACKET.R4 



I BR IF INIT yAS OK 
iBUHP COUNT 

I CONTENTS OF TSSR REGISTER 

I FATAL ERROR TSSR WAS NOT OK 

TRAP CIEROF 
.MORO 321 
.WORD SFIERR 
.UORO SFIHSG 

I SET DRIVE NUMBER IN PACKET 
•SUBROUTINE NEEDS PACKET ADDRESS 



URITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 

000502 

005046' 

011734' 



JSR PC.URTCMR 

BCS 231 

INC FATFLG 

MOV RO.Rl 

ERRHRO ERRNO.URTMSG.SFIMSG 



I ISSUE URITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
t URITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.UQRD 
.UORO 



C«ERt«0 
322 

URTMSG 
SFIHSG 



URITE DATA. ACK. ILLEGAL BITS 



012737 
013737 
062737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 

000503 

032742' 

011746' 

104406 



104403 

023727 002212' 000017 



104405 


032510' 231: 


MOV 


*104405.T23PK3 


tWRITE DATA. ACK. ILLEGAL BITS 


003114' 


032512* 


MOV 


FREE.T23UB 


iSET UP URITE BUFFER ADDRESS 


000001 


032512' 


ADO 


«1.T23UB 


iMAKE ADDRESS 000 (ILLEGAL) 


000400 


032516' 


MOV 


•2S6..T23SZ 


iSET UP BUFFER SIZE 


032510' 


MOV 


*T2SPK3.R4 


iR4 - POINTER TO PACKET 


000000 




MOV 


R4.TS0B(R5) 


t ISSUE COrtlAND 


016150' 




JSR 


PC.UAITF 


lUAIT FOR SSR TO SET 


000002 




MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 


100206 




MOV 


♦SSR!SC!BIT1!BIT2.R2 


J SET UP EXPECTED 






CMP 


RI.P2 


{ARE TMEY EQUAL 






SEQ 


801 


{BR. IF OK ESP. FUNCTION REJECT 


002212* 




INC 


FATFLG 


{BUMP COUNT 




ERRHRO 


ERRN0.T23TM,PKTSSR 


{TSSR INCORRECT AFTER URJTE COMHANO 



801: 



CKLOOP 
ENOSUB 

CMP 



FATFLG. ^15. 



TRAP 
.UORO 323 
.WORD T23TH 
.WORD PK TSSR 

iLOOP IF SELECTED 

TRAP C$CLPl 
{>>>>>>%>>>>> END SUBTEST 
L10047: 

TRAP CIESUB 
J IS ERROR COUNT AT 25 



J9 



TSV7 • HAROUARC TESTS 1-8 
TEST 5; BASIC WRITE DATA 



MACRO mil5 01 -FEB -84 17:54 



SEQ 115 



1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 



1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1310 
1311 



1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1328 
1329 



031416 
031420 
031424 



031424 
031424 
031424 
031426 
031432 
031434 
031440 
031444 
031450 



031454 
031460 
031462 
031466 
031470 
031470 
031472 
031474 
031476 
031500 
031500 
031506 



031512 
031516 
031520 
031524 
031526 
031526 
031530 
031532 



103402 

004737 017104' 



9991: 



BLO 
JSR 



9991 

PC.CKDROP 



iBR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



TEST 3, SUBTEST 5 

VERIFIES THAT A WRITE DATA COftlANO SPECIFYING A DATA 
BUFFER STARTING IN NONEXISTANT HEHQRr TERMINATES WITH 
THE PROPER ERROR STATUS WITHOUT MOVING TAPE 



104402 

005737 003126* 
001002 

000137 031754' 

004737 033702' 

004737 034036' 

004737 033774' 



101 i 



BGNSUB 



TST 
BNE 
JMP 
JSR 
JSR 
JSR 



NXMFLG 

101 

901 

PC.T23«eST 

PC.T23RT3 

PC.T23RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T3.5: 

TRAP C9BSUB 

tOO WE HAVE IT? 

iBR. IF ENOUGH 

I SKIP THIS TEST IF NOT 

tSET COmAND PACKET 

I RESTORE PACKET 

iSET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 015674* 
103407 

005237 002212' 
010001 

104455 
000504 
003642* 
011734' 

013737 002172' 032400' 
012704 032360' 



20»: 



JSR PC.SOFINIT 

BCS 201 

INC FATFLG 

MOV RO.Rl 

ERRDF ERRNO.SFIERR.SFIMSG 



MOV UNITN.T230SW 
MOV •T23PACKET.R4 



tOO INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
iBUMP COUNT 

: CONTENTS OF TSSR REGISTER 

(FATAL ERROR TSSR WAS NOT OK 

TRAP C9ER0F 
.WORD 324 
.WORD SFIERR 
.WORD SFIMSG 

}SET DRIVE NUMBER UP 

I SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 

000505 
005046* 



JSR PC. WRTCHR 

BCS 123* 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO. WRTMSG . SFIMSG 



t ISSUE WRITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 
I BUMP COUNT 

oSAVE CONTENTS OF TSSR 
tWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 



C»ERHRO 
325 

URTHSG 



K9 



rSV7 HARDWARE TESTS 1 0 
TEST S: BASIC URITE DATA 



MACRO Mills Ol-FEBM 17t54 



SEQ 114 



1530 
1531 
1332 
1333 
1334 
1335 
1SS6 
1537 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1352 



1353 

1354 

1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1581 



1382 



051554 011754' 



.UORO SFZnSG 



051536 
031536 
031542 
031544 
031550 
031556 
031564 
051570 
051574 
051600 
051602 
051604 
051610 
051610 
C51612 
051614 
051616 
051620 
051620 

051622 
051626 
051652 
051636 
051640 



051644 

051650 
051650 
051656 
051664 
051672 
051676 
051702 
051706 
051712 
051716 
051720 
051722 
051726 
051754 
051756 
051742 
051742 
051744 
051746 
031750 
031752 



URITE DATA. ACK. CVC-1 



1251: 



005737 


002216' 




TST 


feXTrEA 


(CHECK FOR EXTENDED FEATURES SU 


SUITCH 


001026 






BNC 


1301 


iBR IF SUITCH IS ON 




00S237 


002216' 




INC 


EXTFEA 


(ONLY ONE TIME 




112737 


000200 


052525* 


hOVB 


#200.T2SeSl 


1 URITE MISCELLANEOUS CONT/REAO 


STATUS 


112737 


000010 




huVd 


#10« T23BbO 


1 FUNCTION SELECTION BIT (TURN ON EXTFEA HU SUITCH) 


012704 


032470* 




HUV 




i URITE SUBSYS MEN PACKET 




010465 


000000 




nov 


H4 a TbUDVND^ 


1 ISSUE COMMAND 




004757 


016296' 




JSR 


PC t CnK 1 bbH 


iUAIT FOR SSR 




105407 






BCS 


1301 


iBR, IF NO ERROR 




010001 






nuv 


OA D 1 
HUff HI 


t ERROR. SAVE TSSR 




005257 


002212' 




INC 


FATFLG 


tSUMP COUNT 










PRRMO T99$$n PKTSSR 


tTSSR NOT CORRECT AFTER URT. MISCELLANEOUS 


104456 








TRAP 


OERHRO 


000506 










.UORO 


526 


026150' 










.UORD 


T22SSR 


011746' 










.UORD 


PKTSSR 




130$: 


CKLOOP 




{LOOP IF SELECTED 




104406 










TRAP 


C»CLP1 


012701 


160000 




MOV 


#160000. Rl 


iNXH LOU ADDRESS START 




012702 


177776 




MOV 


•177776,R2 


ILIMIT CHECK FOR NXM CHIGHEST) 




004757 


016276' 




JSR 


PC.XNXn 


iLOOK FOR NXM ADDRESS 




103045 






8CC 


601 


tBR. IF NON FOUND 




010137 


003130' 




nov 


ftl.NXMLO 


tSET ADDRESS UP FOR TEST 




005057 


052514' 




CLR 


T23Ue*2 


i CLEAR OUT THE HIGH BITS AREA 





012757 
015757 
012757 
012704 
010465 
004757 
016501 
012702 
020102 
001414 
005257 
025727 
001345 
005237 

104456 
000507 
052742' 
011746' 



140005 052510' 
005150' 052512' 
000100 032516' 
032510' 
000000 
016150' 
000002 
104210 



032514' 

032514' 000004 



241: 



002212' 



251: 



80ti 



MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
CMP 
BNE 
INC 

ERRHRO 



CKLOOP 



*14000S.T2SPK3 

NXML0.T25ue 

•64..T23SZ 

#T23PK3.R4 

R4.TSDB(R5) 

PC.UAITF 

rSSR(R5).Rl 

#SC!NXM!SSRIBIT3.R2 

R1.R2 

80> 

T23UB»2 
T25UB»2.«4 
24 > 

FATFLG 

ERRN0.T25TH. PKTSSR 



(URITE DATA. ACK. CVC-1 
(SET UP URITE BUFFER ADDRESS 
(SET UP BUFFER SIZE 
(R4 • POINTER TO PACKET 
(ISSUE COMMAND 
tUAIT FOR SSR TO SET 
(GET TSSR CONTENTS 
(SET UP EXPECTED 
(ARE THEY EQUAL 

(BR. IF OK ESP. FUNCTION REJECT 

(BUMP TO NEXT ADDRESS BIT 

(CHECK TO SEE IF OVERFLOU IHJO 19 BIT 

(BR. IF BITS 17 AND 18 

(BUMP COUNT 

(TSSR INCORRECT AFTER URITE COMMAND 



(LOOP IF SELECTED 



TRAP 
.UORD 
.UORO 
.UORO 



C«ERHRD 

327 

T23TM 

PKTSSR 



L9 



TSV7 
TEST 



- HAROUARE TESTS 1-6 
3: BASIC URITE DATA 



MACRO M1113 01 -FEB -64 17:54 



SEQ 115 



1S6S 
1384 



1365 
1366 
1367 
1366 
1369 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1396 
1399 
1400 
1401 



1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1421 
1422 



1423 
1424 
1425 
1426 
1427 
1426 
1429 
1430 
1431 
1432 
1433 



031752 
031754 
031754 
031754 
031754 
031756 
031764 
031766 
031772 



031772 
031772 
031772 
031774 
032000 
032002 
032006 
032012 
032016 



032022 
032026 
032030 
032034 
032036 
032036 
032040 
032042 
032044 
032046 
032046 
032054 



104406 



90>: 



TRAP 



C»CLP1 



104403 

023727 002212* 000017 
103402 

004737 017104* 



9991: 



ENDSUB 



CMP 
BLO 
JSR 



FATFLG.*15. 
999$ 

PC.CKOROP 



!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10050: 

TRAP CIESUB 
lis ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
jTRY TO DROP THE UNIT 



I ♦ 

!tEST 3. SUBTEST 6 

'verifies THAT A URITE DATA COMMAND SPECIFYING A DATA 
iBUPFER STARTING IN EXISTANT MEMORY BUT RUNNING INTO 
t NONEXISTENT MEMORY TERMINATES WITH THE PROPER ERROR 
I STATUS. A LARGE ENOUGH RECOPD SIZE IS SPECIFIED SUCH 
I THAT TAPE IS ACTUALLY MOVED AND WRITTEN. 



104402 
005737 
001002 
000137 
004737 
004737 
004737 



003126' 

032320* 
034036* 
033702' 
033774* 



101: 



BGNSUB 



TST 
BNE 
JMP 
JSR 
JSR 
JSR 



NXMFLG 

10$ 

ISOI 

PC.T2SftTS 

PC.T25REST 

PC.T2SRT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T3.6: 

TRAP OBSUB 

iDO UE HAVE IT? 

iBft. IF ENOUGH 

tSKIP THIS TEST IF NOT 

{RESTORE PACKET 

I SET COMMAND PACKET 

tSET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 015674* 
103407 

005237 00<?212* 
010001 

104455 

000510 

003642' 

011734' 

013737 002172' 032400' 
012704 032360* 



201: 



JSR PC.SOFINIT 

BCS 20t 

INC FATFLG 

MOV RO.Rl 

ERROF ERRNO.SFIERR.SFIMSG 



MOV UNITN.T2SDSU 
MOV #T25PACKET.R4 



(00 INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
I BUMP COUNT 

(CONTENTS OF TSSR REGISTER 
(FATAL ERROR TSSR UAS NOT OK 

TRAP 
.WORD 
.UORO 
.UORO 

(SET DRIVE NUMBER IN PACKET 
(SUBROUTINE NEEDS PACKET ADDRESS 



C«EROF 
328 

SFIERR 
SFIMSG 



URITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



032060 004737 010562' 



JSR 



PC.URTCHR 



(ISSUE URITE CHARACTERISTICS 



M9 



TSV7 
TEST 



HARDWARE TESTS 1-8 
S: BASIC URITE DATA 



HACRO nillS 01 -FEB 64 17:54 



SEQ 116 



1454 
1455 
1459 
1440 



1441 
1442 
1445 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1455 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1465 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1475 



1476 

1477 
1478 
1479 
1480 
1481 
1482 
1485 
1484 
1485 
1489 



052064 
052066 
052072 
052074 
052074 
052076 
052100 
052102 



052104 
052104 
052110 
052114 
052120 
052122 
052126 
052154 
052154 
052142 
052146 
052152 
052156 
052164 
052170 
052174 
052200 
052204 
052210 
052212 
052214 
052220 
052226 
052250 
052254 
052254 
052236 
032240 
032242 
032244 
032244 
032246 
032252 
032256 
032264 
032270 
032274 
032300 
032502 
032304 
032310 
032310 



105407 

005257 002212' 
010001 

104456 
000511 
005046' 
011754- 



BCS 23$ 

INC FATFLG 

MOV RO.Rl 

ERRHRO ERRNO.klRTnSG.SFinSG 



iBR. IF COMMAND ISSUED OK 
I BUMP COUNT 

(SAVE CONTENTS OF TSSR 
lURITE CHARACTERISTISC FAILED 

TRAP 
.UORO 
.WORD 
.UORO 



C$ERHRD 
529 

URTMSG 
SFIMSG 



URITE DATA. ACK.CVC-1 



012701 
012702 
004757 
103051 
010157 
012737 

012737 
013701 
162701 
010137 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001414 
005237 
023727 
001342 
005237 

104456 

000512 

032742' 

011746' 



104406 

004737 055774' 
004737 054036' 
012737 102010 032470' 
012704 052470' 
010465 000000 
004757 016236' 
103407 
010001 

005237 002212' 
104456 



160000 
177776 
016276' 

003150' 

000000 032514' 

140005 032510' 
003130' 
000500 
032512' 

000000 032516' 

052510* 

000000 

016150' 

000002 

104210 



052514' 

0S2514' 000004 
002212' 



231: 



241: 



2St: 



801: 



nuv 






MOV 


#177776 «R2 


f LIMIT CHECK FOR NXM tHIGHFQT') 


JSR 


PC.XNXM 


•LOOK FOR NXM ADDRESS 


BCC 


80» 


iBR, IF NON FOUND 


HQV 


Rl.NXMLO 


iSET ADDRESS UP FOft TEST 


MOV 


•O.T23UB*2 


iSET TO 16 BIT ADDRESS 


MOV 


#140005. T2SPK3 


lURITE DATA. ACK.CVC-1 


MOV 


NXMLO.Rl 


t HIGHEST MEMORY ADDRESS LOU BITS 


SUB 


•500.01 


iSET ADDRESS A LITTLE LOUER 


MOV 


R1.T2SUB 


iLOAO INTO THE PACKET 


MOV 


•0.,T23SZ 


iSET UP BUFFER SIZE (64K BYTES) 


MOV 


•T23PK3.R4 


iR4 ■ POINTER TO PACKET 


MOV 


R4.TS0BCRS) 


t ISSUE COMMAND 


JSR 


PC.UAITF 


lUAIT FOR SSR TO SET 


MOV 


TSSRCR5).R1 


iGET TSSR CONTENTS 


MOV 


•SCIN)(M!SSR!BIT3.R2 


fSET UP EXPECTED 


CMP 


R1,R2 


{ARE THEY EQUAL 


BEQ 


801 


iBR. IF OK ESP. FUNCTION REJECT 


INC 


T2SUB*2 


iBUMP TO NEXT AODRESS RANGE 


CMP 


T23UB*2,#4 


s CHECK TO SEE IF UE UENT TO HIGH 


BNE 


24 1 


sBR, IF NO OVER FLOU 


INC 


FATFLG 


J BUMP COUNT 


ERRHRO 


ERRN0.T23TM.PKTSSR 


iTSSR INCORRECT AFTER URITE COMMAND 



CKLOOP 




(LOOP IF SELECTED 






TRAP 


JSR 


PC.T23RT2 


1 CLEAN UP PACKET 


JSR 


PC,T23RTS 


(RESTORE PACKET 


MOV 


#102010. T2SPK2 


tREUIND (POSITION) COMMAND 


MOV 


#T23PK2.R4 


iLOAD R4 UITH PACKET ADDRESS 


MOV 


R4.TSDB(R5) 


1 ISSUE REUIND COMMAND 


JSR 


PC.CHKTSSR 


lUAIT FOR SSR TO SET 


BCS 


1301 


tBR. IF TSSR IS OK (GOOD) 


MOV 


RO.Rl 


iSAVE TSSR CONTENTS 


INC 


FATFLG 


iBUMP COUNT 


ERRHRD 


ERRNO , T25RUN . PKTSSR 


iTSSR IS INCORRECT AFTER REWIND 



TRAP CtERMD 

.UORO 550 

.UORO T25TM 

.UORO PKTSSR 

C«CLP1 



TRAP 



CSERHRD 



N9 



TSV7 HARDWARE TESTS 1-6 
TEST 3: BASIC WRITE DATA 



MACRO Mills Ol-FEB-64 17:54 



1490 
1491 



1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 



1501 
1502 
1503 
1504 
1506 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1524 
1526 
1527 
1528 
1529 
1530 
1531 
1533 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 



032312 
032314 
032316 
032320 
032320 
032320 
032320 
032322 
032330 
032332 
032336 
032336 
032342 
032344 
032350 
032350 
032350 
032352 



032354 
032360 
032360 
032362 
032364 
032366 
032370 
032370 
032372 
032374 
032376 
032400 
032402 



032464 
032470 
032470 
032472 
032474 
032476 

032500 
032510 
032510 
032512 
032514 
032516 



032520 
032522 



000513 

033016' 

011746' 



104403 

023727 002212' 000017 
103402 

004737 017104* 

004737 016360' 
103002 

000137 027146' 



104432 
001676 



130«: 



100004 
032370' 
000000 
000010 

032402' 

000000 

000012 

000000 

000000 



100006 
032522' 
000000 
000006 



100005 
000000 
000000 
000000 



000000 



999>: 



1631: 



I* 



ENDSUB 



CMP 
BLO 
JSR 

JSR 
BCC 
JMP 

EXIT 



FATFLG.015. 
999$ 

PC.CKOROP 

PC.TSTLOOP 
163 » 
T23L00P 

TST 



{LOCAL STORAGE FOR THIS TEST 



.BLKB 
T2SPACKET : 

.WORD 
.WORD 
.WORD 
.WORD 

T23DATA: 

.UORO 
.UORO 
.UORO 
.WORD 
T2S0SU: .UORO 
T238FR: .BLKU 
I 



10-<.-TSV2fi7> 

100004 

T230ATA 

0 

8. 

T23BFR 
0 

10. 

0 

0 

25. 



tURITE SUBSYSTEM MEMORY COMMAND PACKET 
.BLKB 10-< . -TSV2C7> 



T23PK2: 



.UORO 
.UORO 
.UORO 
.UORO 

.BLKB 

T23PK3: 

.WORD 
T23UB: .UORO 

.UORO 
T23SZ: .UORO 

.EVEN 

T23RSZ: .WORD 
i 
i 



100006 
T238F2 
0 
6. 

l0-<.-TSV2fi7> 

100005 
0 
0 
0 



SEQ 



.UORO 
.UORO 
.UORO 



331 

T23RUN 
PKTSSR 



!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10051: 

TRAP CtESUB 
J IS ERROR COUNT AT 25 
I BR. IF LESS THAN 25 
J TRY TO DROP THE UNIT 

1 00 UE NEED TO ITERATE TEST 
iBR. IF NO LOOP REQUIRED 
(EXECUTE AGAIN 



{ALL DONE THIS TEST 



TRAP 
.WORD 



C»EXIT 
L10043- 



, COMMAND PACKET FOR TEST 

lURITE CHARACTERISTICS COMMAND. UlTH ACK 

I ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 
(CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 



LENGTH OF MESSAGE BUFFER 



(SELECT DRIVE 0 
{MESSAGE BUFFER 



{URITE SUB SYS MEM COMMAND. AND ACK 
{ADDRESS OF SELECT BLOCK DATA 



{SIZE OF DATA PACKET 



{URITE COMMAND. AND ACK 
{ADDRESS OF URITE BUFFER 

{SIZE OF BUFFER (EXTENT) 



{LARGEST TAPE RECORD IN BYTES 



T23BF2: 



TSV7 HARDWARE lESTS 1-8 
TEST 3: BASIC URITE DATA 



1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1556 
1559 
1560 
1561 
1562 
1563 
1S64 
1565 
1566 
1567 
1566 
1569 
1570 
1571 
1572 
1S7S 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1990 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 



03^522 
032523 
032524 
032526 



032530 
032532 



032534 
032536 
032540 
032542 



032544 

032577 
032664 
032742 
033016 
033065 
033140 
033206 
033261 
053350 
033452 
033525 
033577 
033666 



033702 
033702 
033706 
033712 
0SS716 
033722 
033724 
033730 
0337S4 
033736 
033742 
033744 
033750 
033754 



010 
200 
000000 
000000 



000000 
000000 



100005 
100405 
102005 
177777 



MACRO Mills 01 -FEB -84 17t54 



T2SBS0t .BYTE 10 

T2S6S1: .BYTE 200 

r23S2: .UORO 0 

T23S3: .yORD 0 



BIO 



SEQ 118 



T23TMP: .WORD 
T23URT: .UORO 



0 
0 



127 


122 


111 


T23SSR: 


.ASCXZ 


105 


117 


124 


T23ETt 


.ASCXZ 


127 


122 


111 


T23E0T: 


.ASCIZ 


124 


123 


123 


T23TM: 


.ASCIZ 


122 


145 


167 


T23RMN: 


.ASCXZ 


122 


101 


115 


T23RNCt 


. ASCXZ 


124 


123 


123 


r23AN3i 


.ASCXZ 


104 


162 


151 


T2S0rLt 


.ASCXZ 


124 


123 


123 


T2Sy00: 


.ASCIZ 


124 


123 


123 


T2StOC: 


.ASCIZ 


103 


126 


103 


T2SVCK} 


.ASCXZ 


124 


123 


102 


T2S8A: 


.ASCXZ 


127 


122 


111 


T2SUSS; 


.ASCXZ 


102 


141 


163 


TST23X0: 





.EVEN 



iBSELO AREA 
iBSEl 1 AREA 
iSEL 2 AREA 
lOATA AREA 



•TEMPORARY REGISTER 
I RE TRY COMMANO 



lURITE DATA (NEXT) 
lURITE DATA RETRY 
lURITE CONTINOUS 
lEND OF DATA 



'URITE C oiw w nd Not Accepted' 

EOT N0t Found In 12000 41c UritM. (Um S^ertor Tape)' 
URITE DATA OVER EOT GAVE NO TAPE STATUS ALERT' 
' TSSR Not Correct After URITE Co—iwd Reject' 
Rewind (POSITION) Coww^ d Not Accepted' 
'RAM Error. Correct Ooto Pattern Not In Rom' 
'TSSR In;t. Foiled After URITE Co— iw^d' 
'Drive 7 Sel*et Foiled To Set "OFL" In TSSR' 
'TSSR Not Correct After URITE DATA Co— nd. SUB Bit Set' 
'TSSR Not Correct After URITE DATA CoMood. Check For T 
'CVC Set. 0idn"t Reeet VCK In Mooooqo Buffer' 
' TSBA Not Correct After URITE DATA Co— wd' 
'URITE SUBSYSTEM MEMORY Co— nd Net Accepted (RAM Rood) 
.ASCIZ 'Baeic Write' 



.EVEN 

iTAPE MOTION PACKET COMMAND VALUES 

T23W0: .WORD 100005 

T23U0R: .WORD 100405 

T23C0N: .WORD 102005 

.WORD 177777 

! LOCAL TFXT MESSAGES FOR TEST 
t - 



Offl! 



IrOUTINE to restore command packet TO START-UP (DEFAULT) VALUES 

lURITE SUBSYSTEM MEMOAV COMMAND 

t 

I - 

T23REST: 







SAVREG 




iSAVE THE REGISTERS 


012701 


0S2360' 


MOV 


•T2SPACKET.R1 


1 START OF THE PACKET 


012721 


100004 


MOV 


•100004. (RD* 


lURITE SUBSYSTEM MEM. UITH ACK 


012721 


0S2370' 


MOV 


•T2SDATA.(R1)» 


lADDRESS OF CHARAISTICS DATA BLOCK 


005021 




CLR 


(Rl)» 


1 EXTENDED ADDRESS 


012721 


000012 


MOV 


•10..(R1)» 


iSIZE OF DATA BLOCK IN BYTES 


012721 


0S2402' 


MOV 


•T236rR.(Rl)» 


lADDRESS OF MESSAGE BUFFER 


005021 




CLR 


(RD* 




012721 


000024 


MOV 


420..(R1)» 


1 LENGTH OF MESSAGE BUFFER 


005021 




CLR 


(RD* 




012711 


000000 


MOV 


•O.(Rl) 


t SELECT DRIVE ZERO 


012702 


000030 


MOV 


•24., R2 


•NUMBER OF LOCATIONS TO BE CLEARED 


012762 


177777 032402' 64t: 


MOV 


•177777, T23BFr(R2) 


•ALL ONES TO MESSAGE BUFFER 



CIO 



TSV7 
TEST 



HARDWARE TESTS 1 0 
<l: BASIC URITE DATA 



1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1625 
1624 
162S 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 



033762 
033764 
033770 
033772 



033774 
033774 
034000 
034004 
034010 
034014 
034016 
034022 
034026 
034030 
034032 
034034 
034036 
034036 
034042 
034046 
034052 
034054 
034056 
034060 



034062 
034062 
034066 
034072 
034076 
034100 
034104 
034110 
034112 
034114 
034120 
034122 
034124 

034126 
034126 
034132 
034140 
034146 
034152 
034154 
034160 



005742 
020227 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
012701 
005021 
005021 
005011 
000207 



012701 
012721 
005021 
005021 
005011 
000207 



005037 
032701 
001452 
013702 
032702 
001401 
000405 
032702 
001002 
000440 
000207 



012703 
013737 
012737 
012704 
010300 
004737 
010337 



000000 



032470' 

100006 

032522' 

000006 
032522' 



032510' 
100005 



T23RT2: 



T23RT3: 



PES 84 


17i54 


TST 


-(R2) 


CMP 


R2.«0 






RTS 


PC 










nuv 




nuv 






tot 


HOV 


•6..(R1)» 


NOV 


♦T2S8F2.R1 


a D 

CLR 


fOt ^ 
IHl ) ♦ 




IHi } ♦ 


n D 


tot ^ 

I fix } 


DTC 


or 






MOW 




nov 


#100005. (RD* 


CLR 


(RD* 


aft 


(RD* 




(Rl) 


RTS 


PC 



SEQ 119 



iBUnP DOUN TO NEXT LOCATION 

|R2 AT ZERO YET 

iKEEP GOING UNTIL DONE 

•RETURN 



I SAVE THE REGISTERS 

•START OF THE PACKET 

I URITE SUBSVSTEN HEN. UlTH ACK 

lAOORESS OF DATA BLOCK 

I EX TENDED ADDRESS 

I SIZE OF DATA BLOCK IN BYTES 

iPOINT TO DATA SEL AREA 



I RE TURN 

I SAVE THE REGISTERS 
I START OF THE PACKET 
lURITE TAPE. UlTH ACK 
I ADDRESS OF DATA BLOCK 
•EXTENDED ADDRESS 
I SIZE OF DATA BLOCK 
•RETURN 



• • 

'•ROUTINE TO RETRY URITE DATA 
•3. SUBTEST 2 6 3 



IN CASE OF BAD TAPE FOR TEST 



lir^TS: 
I 

• - 

T23CHK: 



Rl-TSSR 
SUBROUTINE 



SETS UP T23URT FOR RETRY 



032530' 
100000 

032412' 
000002 



020000 



000024 

003114' 032512' 
032532' 032510' 
032510' 

017324' 
032516' 



Hi 



EXIT! 



SAVREG 
CLR 
BIT 
BEQ 
HOV 
BIT 
BEQ 
BR 
BIT 



BR 

RTS 



RETRY: 

2«: NOV 
NOV 
NOV 
NOV 
MOV 
JSR 
MOV 



T23TMP 
#SC.R1 
FATAL 

T2SBFR*10.R2 

•X1.UNC.R2 

II 

RETRY 

•] 1.C0R.R2 
RETRY 
FATAL 
PC 



•20. .R3 

FREE.T23UB 

•T23URT.T23PK3 

•T23PK3.R4 

R3.R0 

PC.FILLMEM 

R3.T23SZ 



•SAVE THE REGISTERS 

•CLEAR LOCAL REGISTER 

•IS SC SET IN TSSR? 

•NO. YOU GOT PROBLEMS! 

•YES.GCT XSTATl 

•IS UNC SET IN XSTATl? 

•NO. CHECK COR 

•YES.DO URITE DATA RETRY 

•IS COR SET IN XSTATl THEN? 

•YES SO RETRY 

•NO. YOU GOT PROBLEMS 

•RETURN 



•STARTING RECORD SIZE 

•STARTING URITE BUFFER ADDRESS 

• URITE DATA RETRY COMMAND SETUP BT Sv.eROC<TINE 

(SET UP R4 WITH PACKET ADDRESS 

•SET PATTERN IN CORRECT REGISTER 

(FILL MEMORY WITH RECORD SIZE 

•SET UP RECORD SIZE IN PACKET 



DiO 



TSV7 - HAROUAft€ 


TESTS I 


8 


MACRO HI 113 01 


-FEB 84 


17:54 




SEQ 


TEST 3: BASIC 


MRITE DATA 












1660 


0S4164 


01046S 


000000 




MOV 


R4.TS0B(R5) 


1 ISSUE COMMAND 




1661 


034 170 


004737 


016150' 




JSR 


PC.WAITF 


lUAIT FOR SSR TO SET 




1662 


034174 


016501 


000002 




MOV 


TSSR(R5),R1 


iGET TSSR CONTENTS 




166S 


034200 


012702 


000200 




MOV 


•SSR.R2 


iSET \P EXPECTED 




1664 


034204 


020102 






CMP 


R1.R2 


lARE THEY EQUAL 




166S 


034206 


001746 






BEQ 


EXIT 


iBR. IF OK 




1666 


034210 


005237 


032530' 




INC 


T23TMP 


iTRY FIVE TIMES TNEN EXIT 




1667 


034214 


022737 


000005 


032530' 


CMP 


•5.T23TMP 


(DONE FIVE YET? 




1668 


034222 


001341 






BNE 


21 


iNO GO AGAIN 




1669 


034224 


005237 


002212' 


FATAL: 


INC 


FATFLG 


iBUMP COUNT 




1675 


0S4230 


013702 


0S2402' 




NOV 


T2SBrR.R2 


iLOU ORDER MSGBUF 




1674 


034234 








ERRHRO 


ERRNO . SCMERR . PK TMES 


iTSSR INCORRECT AFTER WRITE DATA 




034234 


104456 










TRAP 


CtERHRO 




034236 


000514 










.WORD 


332 




034240 


005270' 










.WORD 


SCHERR 




034242 


012010' 










.WORD 


PKTMES 


1675 


034244 


004737 


017104' 




JSR 


PC.CKOROP 


iDROP THE UNIT 




1676 


0342S0 








ENDTST 










034250 












L 10043: 






034250 


104401 










TRAP 


CfETST 



1677 






1676 






1679 






1680 






1681 






1682 






1683 






1684 






1685 






1686 






1687 






1688 






1689 






1690 






1691 






1692 






1695 






1694 






1695 






1696 






1697 






1698 


034252 
034252 




1699 


034252 


012737 


1700 


054260 


005037 


1701 


034264 


004737 


1706 


034270 


012700 


1707 


034274 


004737 


1706 


054300 


004737 


1709 


034304 


012737 


1710 






1711 






1712 






1715 






1714 






1715 






1716 







.SBTTL TEST 4t BASIC READ DATA (FORWARD AND REVERSE) 

I* 

!thIS test VERIFIES THAT THE READ FORUARD AND READ REVERSE 
tCOrtlANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF 000 AND EVEN 
iDATA BUFFER BOUNDARIES. RECORD SIZES (UP TO 64K BYTES IF MEMORY 
I SPACE IS AVAILIABLE). AND BYTE-SUAP CONTROL ARE USED. THIS TEST 
I OF COURSE. rURT»CR VERIFIES THE URITE DATA COMMAND BY ACTUALLY 
I READING AND VERIFYING URITTEN DATA. ALSO TESTED ARE PROPER 
I TERMINATIONS ON EXCEPTIONAL OR ERROR COWITIONS: RECORD LENGTH 
I LONG. RECORD LENGTH SHORT. READ REVERSE AT BOT. ILLEGAL DATA 
iBUFFER ADDRESSES. ILLEGAL COOES IN T»C MODE FIELD OF THE BASIC 
iREAO COrtMND. AND DATA BUFFERS IN NON-EXISTANT MEMORY. T»C TEST 
t 
t 
I 
i 
I 
i 
I 



T»C TEST CONSISTS OF THE FOLLOWING 14 SUBTESTS 



006166* 
005124' 
017176' 
0462S2' 
016412' 
021116' 
000005 



002170' 



002206' 



BGNTST 

MOV 
CLR 
JSR 
MOV 
JSR 
JSR 
MOV 



4CPRT1.EPRTSU 

KTENABLE 

PC.KTOFF 

«TST24ID.R0 

PC.TSTSETUP 

PC.MEMCK 

«5.L00PCNT 



T4:: 

I SET UP PRIMARY ERROR MESSAGE 
iTURN OFF KTll 
I TURN KTll OFF 

I ASCII rCSSAGE TO IDENTIFY TEST 
iDO INITIAL TEST SETUP 
t CHECK FOR MEMORY 
iPERFORM S ITERATIONS 



TEST 4. SUBTEST 1 



VERIFIES THAT A READ DATA COMMAND WITH THE CLEAR 
VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF THE 



ElO 



TSV7 HARDWARE TESTS 1 0 MACRO MlllS Ql-FEB 84 17:54 

TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 121 



1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 



1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 



034312 
034312 
034312 
034312 
034314 
034320 
034324 
034330 



1742 
1743 
1744 
1746 
1749 



1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 



034336 
034342 
034344 
034344 
034350 
034352 
034356 
034360 
034364 
034366 
034372 
034374 
034400 
034402 
034406 
034410 
034410 
034412 
034414 
034416 
034420 
034420 
034426 



034432 
034436 
034440 



I VOLUME CHECK (VCK) IS SET. ALL LEGAL 

I COMBINATIONS OF THE COMMAND MODE FIELD ARE TESTED 

I (I.E.. IT IS VERIFIED THAT THE COMMAND IS REJECTED 

tDUE TO VCK BEING SET RATHER THAN ERRONEOUS DECODING 

tOF THE MODE FIELD. 

t 

t 

t - 



T24L00P! 



104402 

004737 046320' 

004737 046454' 

004737 046412' 

012737 176750 044006' 



BGNSUB 



JSR PC.T24REST 

JSR PC.T24RTS 

JSR PC.T24RT2 

MOV 465000.. T24DLr 



!>>>>>>>>>>>> BEGIN SOBJEST >>>>>>>>>>>> 
T4.1: 

TRAP C*BSUB 

tSET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
tSET UP OTHER COMMAND PACKET 
{LOAD UP DELAY ROUTINE 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT aEAR IF ERROR 



004737 015674* 
103426 

012727 000250 
000000 

013727 002116' 
000000 

005367 177772 
001375 

005367 177756 
001367 

005337 044006' 
001356 

005237 002212' 
010001 

104455 

000621 

003642' 

011734' 

012737 000007 043650' 
012704 043630' 



5t: 



JSR 
BCS 
DELAY 



PC.SOriNIT 

201 

250 



DEC 



20$ i 



INC 
MOV 
ERROF 



MOV 
NOV 



T240LY 
SI 

FATFLC 
RO.Rl 

ERRNO. SFIERR . STIHSG 



♦7.T24DSU 
♦T24PACKET.R4 



#250. (PC)* 
0 

L«DLT.(PC). 
0 

-6(PC) 
.-4 

-22(PC) 
.•20 



tOO INITIALIZE ON CONTROLLER 
iBR IF INIT MAS OK 
tOELAV AWHILE 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 

iBUMP DELAY COUNTER 

iBR. IF MORE DELAY REQUIRED 

iBUHP COUNT 

{CONTENTS OF TSSR REGISTER 

t FATAL ERROR TSSR WAS NOT OK 

TRAP CtERDF 
.WORD 401 
.WORD SFIERR 
.WORD SFIMSG 

I SET DRIVE NUMBER IN PACKET 
{SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COttlAND (CALL TO WRTCHR) 



004737 010562' 
103407 

005237 002212' 



JSR 
BCS 
INC 



PC. WRTCHR 
241 

FATFLG 



{ISSUE WRITE CHARACTERISTICS 
(BR. IF COMMAND ISSUED OK 
(BUMP COUNT 



FIO 



TSV7 - HARDWARE 
TEST 4 
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BASIC READ DATA (FORWARD AND REVERSE) 



1766 
1767 



1760 
1769 
1770 
1771 
1772 
1775 
1774 
1775 
1776 
1777 
1778 
1782 



1783 

1784 

1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1799 
1600 



1801 

1602 
1603 
1604 
1605 
1809 



1610 

1811 
1812 



034444 
034446 
034446 
034450 
034452 
034454 
034456 
034462 

034464 
034472 
034500 
034504 
034510 
034514 
034516 
034520 
034524 
034524 
034526 
034530 
034532 
034534 
034534 
034536 
034S44 



034550 
034554 
034556 
034562 
034564 
034564 
034566 
034570 
034572 
034574 
034574 
054576 
054602 
054606 
054610 
054614 
054614 
054616 
054620 
054622 
054624 
054624 
054626 



OlOOOl 

104456 

000622 

005046' 

011754' 

005757 002216' 
001044 

112737 000200 045771' 
112757 000010 045770' 
012704 043740' 
010465 000000 
004737 016256' 
105407 
010001 

005237 002212' 

104456 
000623 
044527' 
011746' 

104406 

012737 000007 045650' 
012704 043650' 



241: 



SOI: 



MOV 

ERRHRD 



TST 
BNE 

nOVB 

MOVB 

MOV 

MOV 

JSR 

BCS 

MOV 

INC^ 

ERRHRD 



CKLOOP 



RO.Rl 

erAno.wrtmsg.sfimsg 



exTFEA 
501 

•200.T24BS1 

•10.T24BS0 

•T24PK2.R4 

R4.TS0e(R5) 

PC.C»«(TSSR 

501 

RO.Rl 

FATFLC 

EfWNO. T24SSR .PKTSSR 



NOV 
NOV 



•7.T240SU 



SEQ 122 



I SAVE CONTENTS OF TSSR 

(WRITE CHARACTERISTISC FAILED 

TRAP CIERHRO 
.WORD 402 
.WORD WRTHSG 
.WORD SFinSG 

iCMECK FOR eXTENOED FEATURES SW SWITCH 

iBR IF SWITCH IS ON 

I WRITE MISCELLANEOUS CONT/REAO STATUS 

•FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 

(WRITE SUBSYS MEM PACKET 

I ISSUE COMMAND 

I WAIT FOR SSR 

iBR. IF NO ERROR 

t ERROR, SAVE TSSR 

iBUrr COUNT 

I TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP CtERHRO 
.WORD 405 
.WORD T24SSR 
.WORD PKTSSR 

iLOQP IF SELECTED 

TRAP CfCLPl 
tSET DRIVE NUWER IN PACKET 
iSUWOUTINE NEEDS PACKET ADDRESS 



WRITE CHRRRCTCRISTZCS COTtMND (CMX TO URTOM) 



004757 
105407 

005257 
010<X)1 

104456 
000624 
005046' 
011754' 

104406 
016501 
052701 
001006 
005257 

104455 

000625 

045505' 

011754' 

104406 

012705 



010562' 
002212' 



JSR PC.WRTCHR 

BCS 501 

INC FATfLC 

NOV RO.Rl 

ERRHRD ERRNO.URTNSG.SriHSG 



SOI: 



000002 
000100 

002212' 



CKLOOP 

MOV 
BIT 
BNE 
INC 
ERROF 



TSSR(RS).R1 

•OFL.Rl 

601 

FATFLG 

ERRNO . T240FL . SF IMSG 



601: 



045776' 



CKLOOP 

MOV «T24RN.R3 



I ISSUE WRITE CHARACTERISTICS 
iBR. IF COHHAND ISSUED OK 
|6U»«> COUNT 

tSAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

I SCOPE LOOP 

TRAP 

(GET TSSR CONTENTS 
iCHECK FOR THE OFFLINE BIT SET 
(BR. IF OFFLINE (GOOD) 
iBUMP COUNT 

I OFF LINE SHOULD HAVE BEEN SET 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 

iPOINTER FOR COMMANDS 



CtERHRO 
404 

WRTMSG 
SFIMSG 

CIClPI 



(BAD) 
CIEROF 
405 
T240FL 
SFIMSG 

ClCwPl 



GIO 



TSV7 
TEST 
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I: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 123 



1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1831 



1832 

1833 
1834 
1835 
1836 
1837 
1838 



1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 



1862 
1863 



034632 
034636 
034642 
034646 
034652 
034656 
034662 
034664 
034666 
034672 
034672 
034674 
034676 
034700 
034702 
034702 
034704 
034706 
034712 
034714 
034716 
034716 
034716 
034716 
034720 
034726 
034730 
034734 



034734 
034734 
034734 
034736 
034742 



011337 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000626 
045043* 
011746' 

104406 
005723 
022713 
001401 
000746 



043760' 
043760* 

000000 
016150' 
000002 
100306 



002212' 



177777 



104403 

023727 002212' 000017 
103402 

004737 017104' 



TAPE READ COMHANO IN PLACE 



651: 



MOV 


(RS).T24PKS 


tTAPC ACM) COrffMNO IN PLACE 


riov 


•T24PKS.R4 


lR4 - POINTER TO PACKET 


MOV 


R4.TS0e(R5) 


tissue COrtMNO 


JSR 


PC.uAirr 


tWAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 


MOV 


•SSR!SC!0FL!BIT1!BIT2.R2 


iSET UP EXPECTED 


CMP 


R1.R2 


•ARE THEY EQUAL 


BEQ 


80 > 


tBR. IF OK ESP. FUNCTION REJECT 


INC 


FATFLG 


iBUMP COUNT 


ERRHRD 


ERRN0.T24TM.PKTSSR 


iTSSR INCORRECT AFTER TAPE MOTION CMD 



80<: 



901: 



CKLOOP 

TST 
CMP 
BEQ 
BR 

ENDSUB 



CMP 
BLO 
JSR 



9991 i 
I* 

I TEST 4. SUBTEST 2 
I 
t 
I 
I 
I 
I 
I 
I 
I 
I 
I 
i 
I 
I 



(RS)* 

#177777. (R3) 

90« 

651 



FATFLG.#15. 
9991 

PC.CKDROP 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CtERHRO 
406 
T24TH 
PKTSSR 

CICLPl 



iLOOP IF SELECTED 

iBUMP TO NEXT COmANO 
•END OF THE COrtlANDS YET 
iBR. IF DONE 
iMORE COMMAND(S) TO GO 



!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10053: 

TRAP CIESUB 
lis ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
I TRY TO DROP T»C UNIT 



VERIFIES THAT READ FORWARD COMMANDS WITH SWB-0 
OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AM) T»CN 
WRITTEN WITH A SERIES OF TEST RECORDS VARINC IN 
LENGTH AND DATA CONTENT. THE TAPE IS THEN REWOUND 
AGAIN AND THE RECORD READ SEQUENTIALLY AM) RESULTS 
(STATUS. DATA, ETC.) VERIFIED. THE BYTE COUNT ON 
EACH READ FORWARD COMMAND IS SET TO THE LENGTH OF THE 
EXPECTED RECORD. SO NO EXCEPTIONAL CONDITIONS SHOULD 
OCCUR. 



104402 

004737 046454' 
004737 046320' 



6GNSU6 



JSR 
JSR 



PC.T24RT3 
PC.T24REST 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>»>»■»>»»> 
T4.2: 

TRAP CtBSOE 
J SET UP OTHER COMMAND PACKET 
J SET COMMAND PACKET 



HIO 



TSV7 HARDWARE TtSTS I « 
TEST 4: BASIC READ OATa (FORWARD 



MACRO Ml lis Q 
D AND REVERSE) 



1-FEB 84 17:54 



SEQ 124 



1664 

1865 
166t> 
1867 
1868 
1869 
1870 
1871 
1872 
1875 
1874 
1878 
1879 



1880 
1881 
1882 
1885 
1864 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1896 
1897 



1898 

1899 
1900 
1901 
1902 
1905 
1904 
1905 
1906 
1907 
1908 
1909 
1915 



1914 

1915 



054746 004757 046412' 



JSR 



PC.T24RT2 



I SET UP GTMER COMMAND PACKET 



054752 
054756 
054760 
054764 
054766 
054766 
054770 
054772 
054774 
054776 
054776 
055004 



055010 
055014 
055016 
055022 
055024 
055024 
055026 
055030 
055032 
035054 
035054 



055056 
055042 
055044 
055046 
035052 
035052 
035054 
055056 
055060 
055062 
035062 



ISSUE CONTROLLER "SOFT" INITIALIZE • CARRY BIT CLEAR If ERROR 



004757 015674' 
105407 

005257 002212' 
010001 

104455 

000627 

005642' 

011754' 

015757 002172' 045650' 
012704 043630' 



201: 



JSR PC.SOFINIT 

BCS 201 

INC FATFLC 

MOV RO.Rl 

ERROF ERRNO.SFIERR.SFIMSG 



MOV UNITN.T240SU 
MOV •T24PACKET.R4 



iDO INITIALIZE ON CONTROLLER 
I BR IF INIT UAS OK 
I BUMP COUNT 

I CONTENTS OF TSSR REGISTER 
t FATAL ERROR TSSR UAS NOT OK 

TRAP 
.UORO 
.UORD 
.UORO 



OEROF 
407 
SFIERR 
SFIMSG 



I SET DRIVE NUMBER IN PACKET 

t SUBROUTINE NEEDS PACKET ADDRESS 



luRITE CHMACTERISTICS COMMAND (CALL TO URTCM) 

i 

I •*•••••••••••••••••••••••••••••••••••••••••••*< 



004757 010562' 
105407 

005257 002212' 
010001 

104456 
000630 
005046' 
011734' 

104406 



241: 



JSR 
BCS 
INC 

M OV ^ 

errhrd 



CKLOOP 



PC.URTCHR 
241 

FATFLG 
RO.Rl 

ERRNO . URTMSG . SF IMSG 



I ISSUE WRITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
iBUrr COUNT 

tSAVE CONTENTS OF TSSR 
I WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.UORO 

tLOOr IF SELECTED 

TRAP 



CtERHRO 
408 
WRTMSG 
SFIMSG 

C»CLP1 



I ISSUE REUIM) COMMAND TO SELECTED TAPE DRIVE 



004757 010714' 

103407 

010001 

005237 002212' 

104456 

000631 

045116' 

011746' 

104406 



sot: 



JSR 
BCS 
MOV 
INC 

ERR) MO 



CKLOOP 



PC.REUIND 
SO* 
RO.Rl 
FATFL6 

ERRNO . T24RWN . PK TSSR 



I CALL TAPE REWIND COMMAND 

I BR. IF NO PROBLEM 

tSAVE TSSR 

I BUMP COUNT 

I REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 



C»ERMRO 

409 

T24RWN 

PKTSSR 

C«CLPl 



110 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEO 125 



1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1931 



READ rCSSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



035064 
035070 
035072 
035076 
035100 
035102 
035106 
035106 
035110 
035112 
035114 
035116 
035116 

1933 035120 

1934 035124 
1935 

1936 
1937 
1936 
1939 
1940 
1941 



1932 



013701 043660' 
010102 

052702 000002 

020102 

001406 

005237 002212* 

104456 

000632 

044633' 

015574* 

104406 

012703 000400 

013737 003114* 043762' 



401: 



NOV 
NOV 
BIS 
CMP 
BCQ 
INC 

ERRMRD 



CKLOOP 



T240FR*6.R1 

R1.R2 

«eiTl.R2 

R1.R2 

401 

FATFLC 

ERRNO . T24B0T . EXPREC 



nov 

NOV 



•256.. R3 
FREE.T24RB 



I PICK UP XSTO 

I SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

iDOES EXP • REC'O 

iBR. IF EQUAL (OK) 

iBUNP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP CIERHRO 
.WORD 410 
.WORD T2480T 
.WORD EXPREC 

iLOOP IF SELECTED 

TRAP C»CLP1 

iRECORO SIZE 

I STARTING WRITE BUFFER ADDRESS 



WRITE DATA. CVC* LACK COHHAM) 



1942 


035132 


012737 


140005 043760' 


NOV 


1943 


035140 


012704 


043760* 


NOV 


1944 


035144 




65t: 




1945 


035144 


010300 




riov 


1946 


035146 


004737 


017324* 


JSR 


1947 


035152 


010337 


043766' 


NOV 


1948 


035156 


010465 


000000 


NOV 


1949 


035162 


004737 


016150' 


JSR 


1950 


035166 


016501 


000002 


NOV 


1951 


035172 


012702 


000200 


NOV 


1952 


035176 


020102 




CMP 


195S 


035200 


001406 




8EQ 


1954 


035202 


005237 


002212* 


INC^ 


1958 


035206 






EMIHM) 




035206 


104456 








035210 


000633 








035212 


005103' 








035214 


011746* 






1959 


035216 




75«: 


CKLOOP 




035216 


104406 






1960 


035220 


005723 




TST 


1961 


035222 


022703 


000414 


CMP 


1962 


035226 


001346 




BNE 


1963 


035230 




801: 


CKLOOP 




035230 


104406 






1964 


035232 




1201: 




1965 










1966 










1967 






1 





•140005. T24PK3 
•T24PK3.R4 

RS.RO 

PC.FILLMEM 
R3.T24SZ 
R4.TS06CR5) 
PC.WAITF 
TSSft(R5).Rl 
•SSR.R2 
R1.R2 
751 

FATFLG 

ERRNO . WR TERR . PK TSSR 



iWRITE OATA.CVC-l.ACK C0»t1AND 
tSET UP R4 WITH PACKET ADDRESS 



(R3)» 
•268.. R5 
65t 



iSET PATTERN IN CORRECT REGISTER 
iFlLL MENORT WITH RECORD SIZE 
(SET UP RECORD SIZE IN PACKET 
(ISSUE COmAM) 
iWAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
I SET UP EXPECTED 
(ARE THEY EQUAL 
iBR. IF OK 
iBUMP COUNT 

tTSSR INCORRECT AFTER WRITE DATA 

TRAP CfER»«0 
.WORD 411 
.WORD WRTERR 
.WORD PKTSSR 

tLOOP IF SELECTED 

TRAP CICLPI 

iBUMP RECORD SIZE 

(END OF RECORD YET 

I BR. IF MORE RECORDS TO WRITE 

I LOOP IF SELECTED 

TRAP CICLPI 



JIO 



TSV7 HAROUARE TESTS 1-8 MACRO MlllS 01-FEB 84 17:54 

TEST 4* BASIC READ DATA (FORUARO AND REVERSE) 



SEQ 126 



1968 
1969 
1970 
1971 
1972 
1975 
1974 
1975 
1976 
1960 



1981 

1982 
1985 
1964 
1965 
1966 
1967 
1966 
1969 
1990 
1991 
1992 
1993 
1994 
1996 



1999 

2000 
2001 
2002 
200S 
2004 
2005 
2006 
2007 
2006 
2009 
2010 
2011 
2012 
2015 
2014 
2015 
2016 
2017 
2016 
2022 



055252 
055256 
055242 
055244 
055246 
055252 
055252 
055254 
055256 
055260 
055262 
0552t>2 



055264 
055270 
035272 
035276 
035300 
035302 
035306 
035306 
035310 
035312 
055514 
035316 
035316 
035320 
035324 



I ISSUE REMIND COHMAND TO SELECTED TAPE DRIVE 



004757 010714' 
004757 016256' 
105407 
010001 

005257 002212' 

104456 
000654 
045116' 
011746' 

104406 



JSR 
JSR 
BCS 
HOV 
INC 

ERRHRO 



1501 : CKLOOP 



PC. REWIND 

PC.CHKTSSR 

1501 

R0,R1 

FATFLC 

ERRNO . T24RUN . PK TSSR 



(CALL TAPE REUIND COTtMND 

iSEE HOW TSSR IS 

iBR. IF NO PROBLEM 

I SAVE TSSR 

iBUnP COUNT 

•REUIND NOT ACCEPTED 

TRAP 

.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



015701 043660' 
010102 

052702 000002 

020102 

001406 

005237 002212* 

104456 
000635 
044633' 
015374' 

104406 

012703 000400 

0 3737 003114' 043762' 



MOV 
NOV 
BIS 
CMP 
BEQ 



140* i CKLOOP 



T24BFR*6.RI 

R1.R2 

•eiTl.R2 

R1.R2 

1401 

FATFLC 

ERRNO. T2460T.EXPREC 



MOV 
NOV 



•256. .RS 
FREC.T24RB 



iPICK UP XSTO 

•SET UP EXPECTED 

tSET EOT BIT IN EXPECTED 

iDOES EXP - REC'D 

iBR. IF EOUAL (OK) 

tSUHP COUNT 

tTAPE NOT AT BOT AFTER REUIND 

TRAP 
.UORO 
.UORO 
.UORD 

I LOOP IF SELECTED 

TRAP 

tRECORO SIZE 

•STARTING READ BUFFER ADDRESS 



READ DATA.CVC-l.ACK COHNAND 



OERHRO 
412 
T24RUN 
PKTSSR 

C»CLP1 



C«ER»«0 
415 
T24B0T 
EXPREC 

C«CLP1 



035332 


012737 


140001 043760' 


NOV 


035340 


012704 


043760' 1651 t 


NOV 


035344 


010337 


043766' 


MOV 


035350 


J10465 


000000 


NOV 


035354 


004737 


016150' 


JSR 


035360 


016501 


000002 


NOV 


035364 


012702 


000200 


NOV 


035370 


020102 




CMP 


035372 


001406 




BEQ 


035374 


005237 


002212' 


INC 


035400 






ERRMRD 


035400 


104456 







•140001. TSMPKS 

•T24PKS.R4 

RS.Ta4SZ 

R4.TS0SCRS) 

PC.UAITF 

TSSR(RS).R1 

•SSR.R2 

R1.R2 

1701 

FATFLG 

ERRNO. ROERR. PKTSSR 



•READ DATA.CVC-l.ACK COMMAND 

I SET UP R4 UITH PACKET ADDRESS 

tSET UP RECORD SIZE IN PACKET 

I ISSUE CONNAND 

lUAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

I SET UP EXPECTED 

I ARE TMEY EQUAL 

iBR. IF OK 

iBUMP COUNT 

I TSSR INCORRECT AFTER READ DATA 

TRAP CiERHRO 



KIO 



TSV7 
TEST 



HARDWARE TESTS 1-8 MACRO nill. 

4: BASIC READ DATA (FORWARD AND REVERSE 



I -FEB -84 17:54 



SEQ 127 



2023 

2024 

2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2036 



2037 

2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 

2046 



2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 



2065 
2066 
2067 
2068 



035402 
035404 
035406 
035410 
035410 
035412 
035416 
035420 
035424 
035426 
035430 
035432 
035434 
03543^ 
03544c 
035442 
035444 
035446 
035450 
035452 
035452 
035454 
0S54S6 
03S460 
035462 
035464 
035466 
035472 
035474 
035474 
035476 
035476 
035476 
035500 
035506 
035510 
035514 



035514 
035514 
035514 
035516 
035522 
035526 



000636 

005176' 

011746* 

104406 

013702 003114* 
010304 

162704 000400 

060204 

021403 

001410 

011401 

010302 

005237 002212* 

104456 
000637 
044700* 
015374' 

104406 

005724 
160204 
020403 
001360 
005723 

022703 000412 
001322 

104406 



104403 

023727 002212* 000017 
103402 

004737 017104* 



1701! 



1731 J 



180$! 



CKLOOP 

MOV 
MOV 
SUB 
ADO 
CMP 
BEQ 
MOV 
MOV 
INC 

ERRHRD 



CKLOOP 

TST 
SUB 
CMP 
BNE 
TST 
CMP 



140$! 



999$: 



CKLOOP 
ENDSUB 



CMP 
BLO 
JSft 



FREE.R2 
RS.R4 
•256. .R4 
R2.R4 
(R4),R3 
180$ 
(R4).R1 
R3.R2 
FATFLG 

ERRNO . T24DT A . EXPREC 



414 

RDERR 

PKTSSR 

CfCLPl 



(R4)* 

R2.R4 

R4.R3 

1731 

CR3)» 

#266. .RS 

1651 



FATFLG.#15. 
999» 

PC.CKOROP 



.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 

I GET BUFFER ADDRESS 
I CURRENT RECORD SIZE 
I FIRST LOCATION IN BUFFER 
I GET LOCATION IN BUFFER (ADDRESS) 
I CHECK DATA READ (R3-DATA ALSO) 
I BR. IF ALL IS WELL 
iRECD DATA 
I EXPECTED DATA 
I BUMP COUNT 

iDATA READ NOT - WRITTEN 

TRAP CIERHRD 
.WORD 415 
.WORD T24DTA 
.WORD EXPREC 

iLOOP IF SELECTED 

TRAP C$CLP1 

iBUMP TO NEXT LOCATION 

iGET BACK TO CORRECT SIZE 
iENO OF RECORD YET 
iBR. IF NOT AT END OF RECORD 
iBUMP RECORD SIZE 
lEND OF RECORD YET 
iBR. IF MORE RECORDS TO WRITE 
:LOaP IF SELECTED 

TRAP CtCLPl 
(>>>>>>>>>>>> EM) SUBTEST >>>>>>>>>>>> 
L10054: 

TRAP CtESUB 
tIS ERROR COUNT AT 25 
sBR. IF LESS THAN 25 
;TRY TO DROP THE UNIT 



TEST 4. SUBTEST S 

VERIFIES THAT READ DATA COMMANDS WITH CVC-1 AND THE 
SWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 
SEQUENCE IS IDENTICW. TO THAT USED IN SUBTEST 2. 
THE RESULTS. EXCEPT FOR RAM CONTENTS. SHOULD BE THE SAME. 



104402 

004737 046454' 

004737 046320' 

004737 046412' 



BGNSUB 



JSR 
JSR 
JSR 



PC.T24RT3 

PC.T24REST 

PC.T24RT2 



!>>>>>>>>>>>> BEGIN SUBTEST »>>»>>»>»»>> 
T4.3: 

TRAP C$BSOB 
;SET UP OTHER COMMAND PACKET 
»SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 



LIO 



TSV7 HARDWARE TESTS 1-8 MACRO Ml 113 01 -FEB -04 17:54 

TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 128 



2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2061 
2082 



2083 
2064 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2099 
2100 



2101 

2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2116 



2117 

2118 
2119 
2120 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



035532 
035536 
035540 
035544 
035546 
035546 
035550 
035552 
035554 
035556 
035556 
035564 



035570 
035574 
035576 
035602 
035604 
035604 
035606 
035610 
035612 
035614 
035614 



035616 
035622 
035624 
035626 
035632 
035632 
035634 
035636 
035640 
035642 
035642 



004737 015674* 
103407 

005237 002212' 
010001 

104455 
000640 
003642 
011734' 

013737 002172' 045650* 
012704 043630' 



201 ! 



JSR PC.SOFINIT 

BCS 201 

INC FATFLG 

MOV RO.Rl 

ERRDF ERRNO.SriERR.SFIMSG 



MOV UNITN.T240SU 
MOV •T24PACKET.R4 



I 00 INITIALIZE ON CONTROLLER 
I BR IF INir WAS OK 
I BUMP COUNT 

•CONTENTS OF TSSR REGISTER 

iFATAL ERROR TSSR WAS NOT OK 

TRAP CtEROF 
.WORD 416 
.UOPO SFIERR 
.WORD SFIMSG 

I SET DRIVE NUMBER IN PACKET 
{SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 
000641 
005046* 
011734* 

104406 



24«: 



JSR 
BCS 
INC 
MOV 

ERRHRD 



CKLOOP 



PC.WRTCHR 
241 

FATFLG 
RO.Rl 

ERRNO . WR TMSG . SF IMSG 



t ISSUE WRITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 
J BUMP COUNT 

I SAVE CONTENTS OF TSSR 
i WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



:LOOP IF SELECTED 



TRAP 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



004737 010714* 

103407 

010001 

005237 002212' 

104456 
000642 
045116' 
011746' 

104406 



JSR 
BCS 
MOV 
INC 

ERRHRD 



CKLOOP 



PC. REWIND 
30 < 
RO.Rl 
FATFLG 

ERRNO . T24RWN . PK TSSR 



(CALL TAPE REWIND COMMAND 
sBR. IF NO PROBLEM 
;SAVE TSSR 
jBUMP COUNT 
iREWIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CfERHRD 
417 

WRTMSG 
SFIMSG 

CICLPl 



C$ERHRO 
418 

T24RWN 

PKTSSR 

C»CLPl 



TSV7 HARDWARE TESTS 1 8 MACRO HiliS Ql-FEB-dA 

TEST 4: BASIC READ DATA (FORUARO AND REVERSE) 



MIO 



17:54 



SEQ 129 



2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2134 



2155 

2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2161 



2162 

2163 
2164 
2165 
2166 

2l( 7 
2168 
2169 
2170 
2171 
2172 



I READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



035644 


013701 


043odO 


nuv 




iPICK UP XSTO 




035o50 


010102 








(SET UP EXPECTED 




035652 


052702 


000002 


DTC 


vol 1 1 ff He 


(SET SOT BIT IN EXPECTED 


035656 


020102 






HI ,Mtf 


(DOES EXP * REC'D 




035660 


001406 




Dcn 

DCU 


AO A 


«BR. IF EQUAL (OK) 




035662 


005237 


002212 




r M 1 r Lu 


tBUriP COUNT 




035666 






ERRHRD 


ERRNO . T24B0T . EXPREC 


tTAPE NOT AT BOT AFTER 


REUINO 


035666 


104456 










TRAP 














.WORD 


035672 


044633' 










.WORD 


035674 


015374' 










.MORD 


035676 




401: 


CKLOOP 




iLOOP IF SELECTED 




035676 


104406 










TRAP 


035700 


012703 


000400 


HOV 


«2S6..R3 


(RECORD SIZE 




035704 


013737 


003114* 043762' 


HOV 


FREE.T24RB 


(STARTING URITE BUFFER 


ADDRESS 



CIERHRD 
419 
T24B0T 
EXPREC 

C»CLP1 



tURITE OATA.ACK.SUB.CVC-1 COMMAND 



035712 


012737 


ISOOOS 043760' 




MOV 


♦ISOOOS. T24PK3 


035720 


012704 


043760* 




MOV 


«T24PK3.R4 


035724 






651: 






035724 


010300 






MOV 


R3.R0 


035726 


004737 


017324' 




JSR 


PC.FILLMEM 


035732 


010337 


043766' 




MOV 


R3.T24SZ 


035736 


010465 


000000 




MOV 


R4.TS06CR5) 


035742 


004737 


016150' 




JSR 


PC.MAITF 


035746 


016501 


000002 




MOV 


TSSR(R5).R1 


035752 


012702 


000200 




MOV 


♦SSR.R2 


035756 


020102 






CMP 


R1.R2 


035760 


001406 






BEQ 


75» 


035762 


005237 


002212' 




INC 


FATFLG 


035766 






ERRHRO 


ERRNO . URTERR , PKTSSR 


035766 


104456 










035770 


000644 










035772 


005103' 










035774 


011746' 










035776 






751: 


CKLOOP 




035776 


104406 










036000 


005723 






TST 


(R5)* jBUMP 


036002 


022703 


000414 




CMP 


♦268., R3 


036006 


001346 






BNE 


65« 


036010 






80>: 


CKLOOP 




036010 


104406 










036012 






120 >: 







iWRITE DATA, ACK. SUB. CVC-1 COMMAND 
I SET UP R4 WITH PACKET ADDRESS 

;SET PATTERN IN CORRECT REGISTER 

iFILL MEMORY WITH RECORD SIZE 

tSET UP RECORD SIZE IN PACKET 

» ISSUE COMNAW) 

iWAIT FOR SSR TO SET 

,GET TSSR CONTENTS 

I SET UP EXPECTED 

;ARE THEY EQUAL 

;BR. IF OK 

sBUMP COUNT 

;TSSR INCORRECT AFTER URITE DATA 

TRAP CIERHRD 
.UORD 420 
.UORD h^TERR 
,UORO PKTSSR 



sLOOP IF SELECTED 



TRAP 



RECORD SIZE 

tEND OF RECORD YET 

;BR. IF MORE RECORDS TO URITE 

tLOOP IF SELECTED 

TRAP 



CICLPl 



C$CLP1 



I ISSUE REWIM) COMMAND TO SELECTED TAPE DRIVE 
I 



NIO 



TSV7 
TEST 



- HARDWARE TESTS 1-6 MACRO HlllS 0 

4: BASIC READ DATA (FORWARD AND REVERSE) 



I -FEB -84 17:54 



SEQ ISO 



2175 
2174 
2175 
2176 
2177 
2178 
2182 



2183 

2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2200 



2201 

2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2224 



036012 
036016 
036020 
036022 
036026 
036026 
036030 
036032 
036034 
036036 
036036 



036040 
036044 
036046 
036052 
036054 
036056 
036062 
036062 
036064 
036066 
036070 
036072 
036072 
036074 
036100 



036106 
036114 
036120 
036124 
036130 
036134 
036140 
036144 
036146 
036150 
036154 
036154 
036156 
036160 
036162 



004737 010714* 

103407 

010001 

005237 002212' 

104456 
000645 
045116' 
015374' 

104406 



130t: 



JSR 
BCS 
MOV 
INC 

ERRHRO 



CKLOOP 



PC. REWIND 
130 1 
RO.Rl 
i-ATFLG 

ERRNO . T24RWN . EXPREC 



iCALL TAPE REWIND COMHANO 

tBR. IF NO PROBLEM 

I SAVE TSSR 

I BUMP COUNT 

I REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

tLOOP IF SELECTED 

TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 



013701 043660' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
000646 
044633' 
015574* 

104406 

012703 000400 

013737 003114' 043762* 



140ti 



MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 



T24BFR»6.R1 

R1.R2 

«6IT1.R2 

R1.R2 

1401 

FATFLG 

ERRNO . T24B0T . EXPREC 



MOV 
HOV 



#256. .R3 
FREE.T24RB 



jPICK UP XSTO 

I SET UP EXPECTED 

jSET BOT BIT IN EXPECTED 

iDOES EXP - REC'O 

iBR, IF EQUAL (OK) 

iBUMP COUNT 

iTAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

•.LOOP IF SELECTED 

TRAP 

: RECORD SIZE 

: STARTING READ BUFFER ADDRESS 



READ DATA.IE.ACK.SWe COftlAND 



C*ERHRD 
421 

T24RWN 
EXPREC 

CICLPl 



CtERHRD 
422 
T24B0T 
EXPREC 

C*CLPl 



012737 110001 043760' 

012704 043760' 

010337 043766' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 
000647 
005176' 
011746' 



MOV «1 10001. T24PK3 

165»: MOV *T24PK3.R4 

MOV R3.T24SZ 

MOV R4.TSDB(R5) 

JSR PC.WAITF 

MOV TSSR(R5).R1 

MOV •SSR.R2 

CMP R1.R2 

BEQ 1701 

INC FATFLG 
ERRHRD ERRNO. RDERR.PK TSSR 



:READ DATA.IE.ACK.SWB COMMAND 

tSET UP R4 WITH PACKET ADDRESS 

tSET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

J SET UP EXPECTED 

(ARE THEY EQUAL 

tBR. IF OK 

tBUMP COUNT 

:TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRO 
423 
RDERR 
PKTSSR 



BIJ 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ ISl 



2225 

2226 
2227 
2228 
2229 
2230 
2231 
22S2 
2233 
2234 
2236 



2239 

2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 

2248 



2249 

2250 
2251 
2252 
22SS 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 



2267 
2268 
2269 
2270 
2271 
2272 
2273 



036164 
036164 
036166 
036172 
036174 
036200 
036202 
036204 
036206 
036210 
036212 
036216 
036216 
036220 
036222 
036224 
036226 
036226 
0S62S0 
036232 
0S62S4 
036236 
036240 
036242 
036246 
036250 
0S62S0 
036252 
0S62S2 
0362S2 
036254 
036262 
036264 
036270 



036270 
036270 
036270 
036272 
036276 
036302 



104406 

013702 003114' 
010304 

162704 000400 

060204 

021403 

001410 

011401 

010302 

005237 002212' 

104456 

000650 

044700' 

015374' 

104406 
005724 
160204 
020403 
001360 
005723 

022703 000412 
001322 

104406 



104403 

023727 002212' 000017 
103402 

004737 017104' 



104402 

004737 046454' 

004737 046320' 

004737 046412' 



1701; CKLOOP 

MOV 
NOV 
SUB 

1731: AOO 
CMP 
BEQ 
MOV 
MOV 
INC 

ERRHRD 



180<: CKLOOP 

TST 
SiJB 
CMP 
BNE 
TST 
CMP 



FREE.R2 

RS.R4 

•256.. R4 

R2.R4 

(R4).R3 

1801 

(R4).R1 

R3.R2 

FATFLG 

ERRN0.r240TA,EXPREC 



1901 t CKLOOP 
ElOSUB 



9991 1 



CMP 
BLO 
JSR 



(R4)* 

R2.R4 

R4.RS 

173» 

(R3)* 

•266.. R3 

1651 



FATFLG. •IS. 
9991 

PC.CKOROP 



I LOOP IF SELECTED 

TRAP CtCLPl 

I GET BUFFER ADDRESS 

•CURRENT RECORD SIZE 

iFIRST LOCATION IN BUFFER 

iGET LOCATION IN BUFFER (ADDRESS) 

iCHECK DATA READ (R3-DATA ALSO) 

I BR. IF ALL IS UELL 

iRECD DATA 

•EXPECTED DATA 

I BUMP COUNT 

iDATA READ NOT • WRITTEN 

TRAP CIER»«0 
.WORD 424 
.WORD T24DTA 
.WORD EXPREC 

•LOOP IF SELECTED 

TRAP CtCLPl 

I BUMP TO NEXT LOCATION 

I SET SIZE TO CORRECT VALUE 

lEM) or RECORD YET 

(BR. IF NOT AT END OF RECORD 

I BUMP RECORD SIZE 

iEM> OF RECORD TET 

iBR, IF MORE RECORDS TO WRITE 

iLOOP IF SELECTED 

TRAP CICLPl 
!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10055: 

TRAP C<ESUB 
lis ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
iTRY TO DROP THE UNIT 



TEST 4. SUBTEST 4 

VERIFIES THAT A READ FORWARD COMMAND READING A RECORD 
LONGER THAN THE SPECIFIED BTTE COUNT CAUSES TAPE 
STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG 
(RLL) BIT SET. 



BGNSUB 



JSR 
JSR 
JSR 



PC.T24RT3 

PC.T24REST 

PC.T24RT2 



!>>>«>>«>>>>> BEGIN SUBTEST »»»»>»»»>»»■» 
T4.4: 

TRAP CtBSUB 
tSET UP OTHER COMMAND PACKET 
I SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 



I ISSUE CONTROLLER "SOFT" INIT:ALIZE - CARRY BIT CLEAR IF ERROR 



Cll 



A (FORWAPl 



l-Fee-84 17:54 



S£Q 132 



2274 
2275 
2276 
2277 
2278 
2279 
2203 
2204 



2205 
2206 
2207 
2200 
2209 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2301 
2302 



2303 

2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2318 



2319 

2320 
2321 
2322 
2323 
2324 
2325 



036306 
036312 
036314 
036320 
036322 
036322 
036324 
036326 
036330 
036332 
036332 
036340 



036344 

036350 
036352 
036356 
036360 
036360 
036362 
036364 
036366 
036370 
036370 



036372 
036376 
036400 
036402 
036406 
036406 
036^10 
036412 
036414 
036416 
036416 



004737 015674* 
103407 

005237 002212' 
010001 

104455 

000651 

003642' 

011734' 

013737 002172' 043650* 
012704 043630' 



201; 



JSR PC.SOFINIT 

BCS 201 

INC FATFLC 

nOV RO.Rl 

ERROF ERRNO.SFIERR.SFinSG 



HOV UNITN.T240SU 
nOV •T24PACKET.R4 



lOO INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
iBUMP COUNT 

•CONTENTS OF TSSR REGISTER 
iFATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 



CIEROF 

425 

SFIERR 

SFinsc 



I SET ORXVE NUI«ER IN PACKET 
iSUMOUTXNE NEEDS PACKET AOORESS 



WRITE CHARACTERISTICS COHNANO (CALL TO WRTCHR) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 

000652 

005046* 

011734* 

104406 



24f: 



JSR 
BCS 
INC 
NOV 
ERRHRO 



CKLOOP 



PC.WRTCHR 
24» 

FATFLC 
RO.Rl 

ERRNO . WR THSC . SF IHSG 



•ISSUE WRITE CHARACTERISTICS 
•BR. IF COrtlANO ISSUED OK 
•BUMP COUNT 

•SAVE CONTENTS OF TSSR 
•WRITE CHARACTERISTISC FAILED 

TRAP 



•LOOP IF SELECTED 



. WORD 
.WORD 

TRAP 



CIER»«0 
426 

WRTHSG 
SFinSG 

CICLPl 



ISSUE REWIND COmANO TO SELECTED TAPE DRIVE 



004737 010714* 

103407 

010001 

00S2S7 002212* 

104456 

000653 

045116* 

011746' 

104406 



301: 



JSR 
BCS 
HOV 
I NC ^ 
ERRHRO 



CKLOOP 



PC. REWIND 
SOI 
RO.Rl 
FATFLC 

ERRNO . T24RWN . PK TSSR 



•CALL TAPE REWIND COTtlANO 

•BR. IF NO PRQBLEH 

•SAVE TSSR 

iBUHP COUNT 

•REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

•LOOP IF SELECTED 

TRAP 



C<ER»«D 

427 

T24RWN 

PKTSSR 

C«CLPl 



READ HESSACE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



Dii 



2326 
















2327 036420 


013701 


043660* 




HOV 


T24BFR*6.R1 


iPICK UP XSTO 




2326 036424 


010102 






HOV 


R1.R2 


1 SET UP EXPECTED 




2329 036426 


052702 


000002 




BIS 


«6IT1.R2 


iSET BOT BIT IN EXPECTED 




2330 036432 


020102 






CMP 


R1.R2 


iDOES EXP • REC'D 




2331 036434 


001406 






BEQ 


401 


iBR. IF EQUAL (OK) 




2332 036436 


005237 


002212* 




INC 


FATFLG 


iBUHP COUNT 




2336 036442 








ERRHRO 


ERRNO. T24B0T .EXPREC 


iTAPE NOT AT BOT AFTER REUIND 




036442 


104456 










TRAP 


C»ER»«)D 


036444 


000654 










.WORD 


428 


036446 


044633* 










.WORD 


T24B0T 


036450 


015374' 










.UORD 


'"XPREC 


2337 036452 








40t: CKLOOP 




iLOOP IF SELECTED 




036452 


104406 










TRAP 


CICLPI 


2336 036454 


012703 


001000 




nov 


♦512..R3 


iRECORD SIZE 




2339 036460 


013737 


005114' 


043762* 


nov 


FREE.T24RB 


{STARTING URITE BUFFER ADDRESS 




2340 
















2341 
















2342 
















2343 








lURITE OATA.ACK.CVC-1 COTtMNO 






2344 
















2345 
















2346 
















2347 036466 


012737 


140005 


045760' 


HOV 


•140005. T24PK5 


lURITE DATA.ACK.CVC-1 COHHANO 




2348 036474 


012704 


043760' 




nov 


•T24PK3.R4 


iSET UP R4 UITH PACKET ADDRESS 




2349 036500 








65t: 








2350 036500 


010337 


043766' 




HOV 


R3.T24SZ 


iSET UP RECORD SIZE IN PACKET 




2351 036504 


010465 


000000 




HOV 


R4.TSDB(R5) 


t ISSUE COWIAND 




2352 036510 


004737 


016150' 




JSR 


PC.WAITF 


(WAIT FOR SSR TO SET 




2353 036514 


016501 


000002 




HOV 


TSSRCR5).R1 


iGET TSSR CONTENTS 




2354 036520 


012702 


000200 




HOV 


•SSR.R2 


tSET UP EXPECTED 




2355 036524 


020102 






CMP 


R1.R2 


{ARE THEY EQUAL 




2356 036526 


001406 






BEQ 


75 » 


iBR. IF OK 




2357 036530 


005257 


002212' 




INC 


FATFLG 


tBUHP COUNT 




2361 036534 








ERRHRO 


ERRNO.URTERR.PKTSSR 


iTSSR INCORRECT AFTER MRITE DATA 


036534 


104456 










TRAP 


CtER»«D 


036536 


000655 










.WORD 


429 


036540 


005103' 










.WORD 


URTERR 


036542 


011746' 










.UORD 


PKTSSR 


2362 036544 








75* t CKLOOP 




iLOOP IF SELECTED 




036544 


104406 










TRAP 


CICLPl 


2363 036546 








120* t 








2364 
















2365 
















2366 
















2367 








t ISSUE REyiNO COHNRNO TO SELECTED TRPE DRIVE 




2368 
















2369 
















2370 
















2371 036546 


004737 


010714' 




JSR 


PC. REWIND 


iCALL TAPE REWIND COmAND 




2372 036552 


103407 




BCS 


1501 


iBR. IF NO PROBLEH 




2373 036554 


010001 






MOV 


RO.Rl 


iSAVE TSSR 




2374 036556 


005237 


002212' 




INC 


FATFLG 


iBUHP COUNT 




2378 036562 






ERRHRO 


ERRNO. T24RUN,PKTSSR 


iREUiND NOT ACCEPTED 




036562 


104456 








TRAP 


CtERHPO 


036564 


000656 










.WORD 


450 


036566 


045116' 










.UORD 


T^4RUN 



Ell 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 134 



2379 

2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2366 
2369 
2390 
2391 
2392 
2396 



036570 
036572 
036572 



011746' 
104406 



1301 : CKLOOP 



I LOOP IF SELECTED 



.WORD 
TRAP 



PKTSSR 
CICLPI 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



036574 
036600 
036602 
036606 
036610 
036612 
036616 
036616 
036620 
036622 
036624 
036626 
036626 
2396 036630 
2399 036634 
2400 
2401 
2402 
2403 
2404 
2405 
2406 



2397 



013701 043660' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 

000657 

044633* 

015374' 

104406 

012703 000400 

013737 003114* 043762* 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRD 



1401 : CKLOOP 



T24BFR*6.R1 

R1.R2 

•6ITi.R2 

R1.R2 

140t 

FATFLG 

ERRNO. T24B0T .EXPREC 



MOV 
MOV 



♦256..R3 
FREE.T24R6 



I PICK UP XSTO 

I SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

I DOES EXP - REC'O 

tBR. IF EQUAL (OK) 

iBUr#> COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

tLOOP IF SELECTED 

TRAP 

I RECORD SIZE 

{STARTING READ BUFFER ADDRESS 



CtERHRD 
431 
T24B0T 
EXPREC 

CJCLPl 



I •••••••••••••••••••••••••••• 

IrEAO DATA.ACK.CVC-1 COMMAND 
i 



2407 


036642 


012737 


140001 043760' 


MOV 


•140001. T24PK5 


iREAD OATA.ACK.CVC-1 COTtMND 




2406 


036650 


012704 


043760' 165* : 


nov 


•T24PK3.ft4 


iSET UP ft4 WITH PACKET ADDRESS 




2409 


036654 


010337 


043766' 


MOV 


R3.T24SZ 


iSET UP RECORD SIZE IN PACKET 




2410 


036660 


010465 


000000 


MOV 


R4.TS0B(RS) 


1 ISSUE COMMAND 




2411 


036664 


004737 


016150' 


JSR 


PC.UAZTF 


iWAIT FOR SSR TO SET 




2412 


036670 


016501 


000002 


MOV 


TSSR(RS).R1 


(GET TSSR CONTENTS 




2413 


036674 


0127C? 


100204 


MOV 


•SSR!SC!BIT2.R2 


tSET UP EXPECTED 




2414 


036700 


020102 




CMP 


R1.R2 


(ARE THEY EQUAL 




2415 


036702 


001406 




BEQ 


1701 


iBR. IF OK 




2416 


036704 


005237 


002212' 


INC 


FATFLG 


iBUMP COUNT 




2420 


036710 




ERAHRO 


ERRNO, T24TRL .PKTSSR 


tTSSR INCORRECT AFTER READ DATA 






036710 


104456 






TRAP 


CtERHRD 




036712 


000660 








.WORD 


432 




036714 


046164* 








.WORD 


124 TRL 




036716 


011746* 








.WORD 


PKTSSR 


2421 


036720 




1701 » 


CKLOOP 




iLOOP IF SELECTED 






036720 


104406 








TRAP 


CICLPl 



2422 
2423 
2424 
2425 
2426 
2427 
2426 
2429 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



036722 013701 043660* 



MOV 



T24BFR*6.R1 



I GET MESSAGE BUFFER 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



Fll 



SEQ 135 



2430 
2431 
2432 
2433 
2434 
2438 



2439 
2440 



2441 
2442 
2443 
2444 

244S 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 



2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2480 
2481 



036726 
036730 
036734 
036736 
036740 
036744 
036744 
036746 
036750 
036752 
036754 
036754 
036754 
036754 
036756 
036764 
036766 
036772 



036772 
036772 
036772 
036774 
037000 
037004 



037010 
037014 
037016 
037022 
037024 
037024 
037026 
037030 



010102 

052702 010000 

020102 

001406 

005237 002212* 

104456 
000661 
045732' 
015374' 



104403 

023727 002212' 000017 
103402 

004737 017104' 



104402 

004737 046454' 

004737 046320' 

004737 046412* 



004737 015674* 
103407 

005237 002212' 
010001 

104455 

000662 
003642' 



1801: 



MOV 

eis 

CMP 
BEQ 
INC 

ERRHRO 



ENOSUB 



R1.R2 

«eiT12.R2 

R1.R2 

180* 

FATFLG 

ERRN0.T24L0N.E)(PREC 



999$: 



CMP 
BLO 
JSR 



FATFLG. #15. 
9991 

PC.CKOROP 



I SET UP EXPECTED 

I SET THE RLL BIT IN EXPECTED 

I ARE THET EQUAL 

•BR. IF EQUAL (ALL IS UELL) 

I BUMP COUNT 

I THE RLL BIT WAS NOT SET IN XSTO 

TRAP CtERHRO 
.UORO 433 
.WORD T24L0N 
.WORD EXPREC 

!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10056: 

TRAP CtESUB 
lis ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
I TRY TO DROP T« UNIT 



t 
I 
i 
I 
I 
I 
I 
I 
I 
t 
> 
I 
I 
I 
t 

t - 



TEST 4. SUBTEST 5 

VERIFIES THAT A READ FORWARD COmAND READING A RECORD 
SHORTER THAN THE SPECIFIED BTTE COUNT CAUSES TAPE 
STATUS ALERT TERMINATION WITH THE RECORD LENGTH SHORT 
(RLS) BITS SET. IT IS VERIFIED THAT THE RESIDUAL BYTE 
COUNT CRBPCR) IN THE MESSAGE BUFFER CONTAINS THE 
PROPER NONZERO VALUE (E.G. THE DIFFERENCE BETWEEN 
THE ORIGINAL BYTE COUNT AND THE ACTUAL RECORD 
LENGTH). 



BGNSUB 



JSR 
JSR 
JSR 



PCTEARTS 

PC.T24REST 

PC.T24RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T4.5: 

TRAP C»BSUB 
tSET KP OTHER COMNAND PACKET 
I SET C Oi l l R N D PACKET 
iSET UP OTHER CO ill RN D PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE • CARRY SIT CLEm IF ERROR 



JSR PC.SOFINIT 

BCS 201 

INC FATFLG 

MOV RO.Rl 

ERROF ERRNO.SriERR.SFIMSG 



I DO INITIALIZE ON CONTROLLER 
iBR IF INIT UAS OK 
iB\J^ COUNT 

I CONTENTS OF TSSR REGISTER 
I FATAL ERROR TSSR UAS NOT OK 

TRAP 
.WORD 
.UORO 



CIEROF 
434 

SFIERR 



Gil 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 156 



2462 
24AS 
2464 
24AS 
2466 
2467 
2466 
2469 
2490 
2491 
2492 
249S 
2494 
2496 
2499 



2500 

2501 
2502 
2505 
2504 
2505 
2506 
2507 
2506 
2509 
2510 
2511 
2515 



2516 

2517 
2516 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
25S0 
2551 
2552 
25S3 



057052 
057054 
057054 
057042 



057046 
057052 
057054 
057060 
057062 
057062 
057064 
057066 
057070 
057072 
057072 



057074 
057100 
057102 
057104 
057110 
057110 
057112 
057114 
057116 
057120 
057120 
057122 
037126 



057134 
037142 
057146 
057146 

057152 
057156 
057162 
057166 



011754' 

015757 
012704 



002172- 
045650' 



045650' 



201 ! 



.WORD SFIMSG 



MOV UNITN.T24DSU 
MOV #T24PACKET.R4 



I SET DRIVE NUMBER IN PACKET 

I SUBROUTINE NEEDS PACKET ADDRESS 



lURITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



004757 010562' 
105407 

005257 002212' 
010001 

104456 

000665 

005046* 

011754' 

104406 



24t: 



JSR 
BCS 
INC 
MOV 
ERRHRO 



CKLOOP 



PC. URTCHR 
24 1 

FATFLG 
RO.Rl 

ERRNO . URTMSG. SFIHSG 



•ISSUE URITE CHARACTERISTICS 
iBR. V COMMAND ISSUED OK 
lBUM> COUNT 

•SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.UORO 
.WORD 

iLOOP IF SELECTED 

TRAP 



CIERMD 
455 
URTMSG 
SFIMSG 

CtCLPl 



! ISSUE REUIND COftMNO TO SELECTED TAPE OMIVE 
I 

I ••••••••••••••*••••*•••••••*•**••••••••***•< 



004757 010714' 

105407 

010001 

005257 002212' 

104456 
000664 
045116' 
011746* 

104406 

012703 000400 

013737 003114* 043762' 



JSR PC.REUINO 

BCS SOI 

NOV Rcm 

WC^ rATFLC 

CRRHRD CRRNO • T24RliM • PK TSSR 



301: 



CKLOOP 

MOV 
HOV 



•2S6..RS 



iCMJ. TAPE REUDO C0»tMI«> 

iBR. IF NO PROeLEN 

I SAVE TSSR 

tSUMP COUNT 

I REMIND NOT ACCEPTED 

TRAP 
.UORD 
.UORD 
.UORD 

•LOOP IF SELECTED 

TRAP 

I RECORD SIZE 

iSTRRTING URITE BlFFER AOORESS 



CtERHRO 
456 
T24RM 
PKTSSR 

C«CLP1 



lURXTE OATA.RCK.CVC-t COWMO 



012757 140005 043760' 

012704 045760' 

010557 045766' 

010465 000000 

004757 016150' 

016501 000002 

012702 000200 



651: 



MOV «140005.T24PKS 

MOV #T24PK3,R4 

MOV R3.T24SZ 

MOV R4.TS0B(R5) 

JSR PC.UAITF 

MOV TSSR(R5).R1 

MOV #SSR.R2 



lURITE DATA.ACK.CVC-1 COMMAND 
I SET UP R4 UITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 
I ISSUE COttlAND 
tUAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
I SET UP EXPECTED 



Hil 



TSV7 
TEST 



HAROUARE TESTS l 8 HACRO Mil IS 0 

4: BASIC READ DATA (FQRUARO AND REVERSE) 



I -FEB e< 17:54 



SEQ 1S7 



2554 
2555 
255«> 
2540 



2541 

2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2557 



057172 
057174 
057176 
057202 
057202 
037204 
037206 
037210 
057212 
037212 
037214 



037214 
037220 
037222 
037224 
037230 
037230 
037232 
037234 
037236 
037240 
037240 

2559 037242 

2560 037246 
2561 

2562 
2563 
2564 
2565 
2566 
2567 



2558 



020102 
001406 

005257 002212' 

104456 

000665 

005105' 

011746' 

104406 



75*: 
1201; 



CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 



Rl,R2 
75 i 

FATFLG 

ERRNO , kIRTERR . PK T SSR 



I ARE THEY EQUAL 
iBR. IF OK 
I BUMP COUNT 
iTSSA INCORRECT AFTER WRITE DATA 

TRAP 
.WORD 
.WORD 
.WORD 



I LOOP IF SELECTED 



TRAP 



CtERHRD 
457 

URTERR 
PKTSSR 

CICLPI 



ISSUE REMIND COHHAND TO SELECTED TAPE DRIVE 



004737 010714' 

103407 

010001 

005237 002212' 

104456 

045116' 
011746' 

104406 

012703 001000 

013737 003114' 043762' 



JSR PC. REWIND 

BCS ISO! 

nOV RO.Rl 

INC FATFLG 

ERRHRO ERRNO. T24RUN,PKTSSR 



ISOIt CKLOOP 

MOV 
MOV 



•512.. RS 
FREE.T24RB 



I CALL TAPE REMIND COTflAND 

iBR. IF NO PROBLEM 

I SAVE TSSR 

I BUMP COUNT 

IREMINO NOT ACCEPTED 

TRAP 
.MORD 
.WORD 
.MORO 

{LOOP IF SELECTED 

TRAP 

iRECORO SIZE 

(STARTING READ BUFFER ADDRESS 



CIERHRO 

438 

T24RMN 

PKTSSR 

CICLPl 



READ OATA.ACK.CVC-1 COrtWND 



2568 


037254 


012737 


140001 043760* 


MOV 


2569 


037262 


012704 


043760' 1651: 


MOV 


2570 


037266 


010337 


043766' 


MOV 


2571 


037272 


010465 


000000 


MOV 


2572 


037276 


004737 


016150* 


JSR 


2573 


037302 


016501 


000002 


HOV 


2574 


037306 


012702 


100204 


MOV 


2575 


037312 


020102 




CMP 


2576 


037314 


001406 




BEQ 


2577 


037316 


005237 


002212' 


INC 


2581 


037322 






ERRHRO 




037322 


104456 








037324 


000667 








037326 


046164' 








037330 


015374' 






2582 


037332 




1701; 


CKLOOP 




037332 


104406 






2583 










2584 











•140001. T24PKS 

•T24PKS.R4 

RS.T24SZ 

R4.TS0B<RS) 

PC.MAITF 

TSSR(R5).R1 

•SSR!SC!BIT2.R2 

R1.R2 

1701 

FATFLG 

ERRNO. T24TRL .EXPREC 



tREAD DATA.ACK.CVC-1 COmAM) 

tSET UP R4 MITH PACKET AOORESS 

tSET UP RECORD SIZE IN PACKET 

t ISSUE COMMAND 

iMAIT FOR SSR TO SET 

tGET TSSR CONTENTS 

I SET UP EXPECTED 

lARE THEY EQUAL 

iBR. IF OK 

iBUHP COUNT 

I TSSR INCORRECT AFTER READ DATA 

TRAP CtERHRD 
.MORD 439 
.MORD T24TRL 
.MORD EXPREC 

tLOOP IF SELECTED 

TRAP C$CLP1 



Ill 



TSV7 HARDWARE TESTS 1-8 MACRO MlllS Ol-FEB-04 17:54 

TEST 4: BASIC READ DATA (TORUARD AND REVERSE) 



SEQ 138 



2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2599 



2600 
2601 
2602 
2603 
2604 
2605 
2609 



2610 
2611 



2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2654 



iREAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



037334 
037340 
037342 
037346 
037350 
037352 
037356 
037356 
037360 
037362 
037364 
037366 
037366 
037372 
037376 
037400 
037402 
037406 
037406 
037410 
037412 
037414 
037416 
037416 
037420 
037420 
037420 
037422 
037430 
037432 
037436 



043660' 
040000 

002212' 



013701 
010102 
052702 
020102 
001406 
005237 

104456 

000670 
046014' 
015374' 

013701 
012702 
020102 
001406 
005237 

104456 

000671 

046076' 

015374' 

104406 



104403 

023727 002212* 000017 
103402 

004737 017104' 



04S6S6' 
000400 



002212' 



ISO I: 



1901: 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRO 



MOV 
MOV 
CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 
ENDSUB 



T24BFR»6.R1 

R1.R2 

•6IT14,R2 

R1.R2 

1801 

FATFLG 

ERRNO . T24L OP . EXPRCC 



T24BFR*4.R1 
«2S6. .R2 
R1.R2 
1901 
FATFLG 

ERRNO . T24PBP .EXPREC 



C«P 
BLO 
JSR 



037436 
037436 
037436 



999* ! 

t ♦ 

I TEST 4. SUBTEST 6 
I 
I 
I 
I 
I 
I 
I 
I 
I 
t 
I 
I 
I 

' BGNSUe 



FATFLG. #15. 
9991 

PC.CKOROP 



I GET MESSAGE BUFFER 

I SET UP EXPECTED 

iSET THE RLS BIT IN EXPECTED 

I ARE THEY EQUAL 

iBR. IF EQUAL (ALL IS UELL) 

I BUMP COUNT 

I THE RLL BIT WAS NOT SET IN XSTO 

TRAP CIERHRO 
.WORD 440 
.WORD T24L0P 
.WORD EXPREC 

tPICK UP RESIDUAL BYTE COUNTER 
•THIS SHOULD BE T»C DIFFERENCE 
lis THE DIFFERENCE CORRECT 
iBR. IF CORRECT 
tSUMP COUNT 
iRBPCR NOT CORRECT 

TRAP C«ER>«0 
.WORD 441 
.WORD T24PBP 
.WORD EXPREC 

I LOOP IF SELECTED 

TRAP CICLPl 
!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10057: 

TRAP CIESUB 
lis ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
iTRY TO DROP THE UNIT 



VERIFIES THAT READ REVERSE COMMANDS WITH SUB-0 
OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND T»CN 
WRITTEN WITH A SERIES OF TEST RCCOfOS VARING IN 
LENGTH AND DATA CONTENT. THE TAPE IS THEN READ IN REVERSE 
SEQUENTIALLY AND THE RESULTS 

(STATUS. DATA. ETC.) VERIFIED. THE BYTE COUNT ON 
EACH READ REVERSE CQWIAND IS SET TO T»C LENGTH OF THE 
EXPECTED fKCORO, SO NO EXCEPTIONAL CONDITIONS SHOULD 
OCCUR. 



104402 



!>>>>>>>>>>>> BEGIN SUBTEST >>•»>>>>>>>>> 
T4.6: 

TRAP C<BSUB 



Jll 



TSV7 • HARDWARE TESTS 1 8 HACRO M11I3 Ol-rEB-84 17:54 

TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 139 



26SS 
2636 
3637 
3639 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2651 
26S2 



2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2669 
2670 



2671 

2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2686 



2687 



037440 
037444 
037450 



037454 
037460 
037462 
037466 
037470 
037470 
037472 
037474 
037476 
037500 
037500 
037506 



037512 
037516 
037520 
037524 
037526 
037526 
037530 
037532 
037534 
037536 
037536 



037540 
037544 
037546 
037550 
037554 
037554 
037556 
037560 
037562 
037564 



004737 046454' 
004737 046320- 
004737 046412* 



JSR 
JSR 
JSR 



PC.T24RT3 

PC.T24REST 

PC.T24RT2 



1 SET UP OTHER COHMAND PACKET 

tSET COriHAND PACKET 

•SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOTT" INITIALIZE • CARRY BIT CLEAR IP ERROR 



004737 015674* 
103407 

005237 002212* 
010001 

104455 

000672 
003642' 
011754' 

013737 002172' 043650* 
012704 043630' 



20t: 



JSR PC. SOT INI T 

BCS 20* 

INC FATFLC 

HOV RO.Rl 

ERROF ERRNQ.SFIERR.SFinSG 



NOV UNITN.T240SW 
NOV •T24PACKET.R4 



tOO INITIALIZE ON CONTROLLER 
I BR IF INIT WAS OK 
I BUMP COUNT 

TSSR REGISTER 
TSSR WAS NOT OK 
TRAP 
. WORD 
.WORD 
.WORD 



{CONTENTS OF 
I FATAL ERROR 



C»EROr 
442 
SFIERR 
SFIMSG 



iSET DRIVE NUMBER IN PACKET 

I SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 

000673 

005046* 

011734' 

104406 



24$: 



JSA 
BCS 
INC 

MOV 

EWtHftO 



CKLOOP 



PC.URTCHR 
24« 

FATFLC 
ftO.Rl 

EMMO , WR TMSG . SF IMSG 



I ISSUE WRITE CHARACTERISTICS 
iBR. IF COHMAND ISSUED OK 
iBUr«> COUNT 

tSAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 



C«ER»«D 
443 

WRTMSG 
SFIMSG 

C9CLP1 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



004737 010714' 

103407 

010001 

005237 002212* 

104456 
000674 
045116' 
011746' 



301: 



JSR 
BCS 
MOV 
INC 

ERRHRD 



CKLOOP 



PC. REWIND 
SOI 
RO.Rl 
FATFLC 

ERRNO . T24RWN . PK TSSR 



tCALL TAPE REWIND COrtMND 

iBR. IF NO PROBLEM 

I SAVE TSSR 

I BUMP COUNT 

{REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 



CtERHRO 
444 

T24RWN 

PKTSSR 



Ki 



TSV7 - HAROUARE TESTS 1-8 
TEST 4 



MACRO M1113 Ql-FEB-84 17:54 

BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 140 



2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2713 



2714 

2715 
2716 
2717 
2718 

2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2741 



037564 
037566 
057572 



037600 
037606 
037612 
037612 
037614 
037620 
037624 
037630 
037634 
037640 
037644 
037646 
037650 
037654 
037654 
037656 
037660 
037662 
037664 
037664 
037666 
037670 
037674 
037676 
037676 
037700 
037702 



037710 
037716 
037722 
037726 
037732 
037736 
037742 
037746 
037750 
037752 
037756 
037756 
037760 



104406 

012703 000400 

013757 003114' 043762' 



MOV «256..R3 
MOV FREE.T24RB 



TRAP 

I RECORD SIZE 

{STARTING hiRITE BUFFER ADDRESS 



CfCLPl 



WRITE DATA.ACK.CVC-l COMMAND 



012737 140005 043760' 
012704 043760' 

010300 

004737 017324' 

010337 043766' 

010465 000000 

004737 016150* 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 

000675 

005103' 

011746' 

104406 

005723 

022703 000414 
001346 

104406 
005743 

013737 003114' 043762' 



65* : 



MOV 


♦140005. T24PK3 


(WRITE DATA.ACK.CVC-1 COmfiHD 


MOV 


«T24PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 


MOV 


R3.R0 


(SET PATTERN IN CORRECT REGISTER 


JSR 


PC.FILLMEM 


iFILL MEMORY WITH RECORD SIZE 


MOV 


R3.T24SZ 


iSET UP RECORD SIZE IN PACKET 


MOV 


R4.TSD6(RS) 


1 ISSUE COMMAND 


JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 


MOV 


TSSR(RS).R1 


iGET TSSR CONTENTS 


MOV 


•SSR.R2 


1 SET UP EXPECTED 


CMP 


R1.R2 


lARE THEY EQUAL 


BEQ 


751 


iBR. IF OK 


INC 


FATFLG 


iBU»^ COUNT 


ERRMRD 


ERRNO . URTERR , PKTSSR 


iTSSR INCORRECT AFTER lAITE DATA 



751: 



80t: 



CKLOOP 

TST 
CMP 
BNE 

CKLOOP 

TST 
MOV 



(R3)* 
•268. .R3 
6S» 



-(R3) 

FREE.T24f« 



TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 

tBUr«> RECORD SIZE 

lEND OF RECORD YET 

I BR. IF MORE f^COROS TO WRITE 

tLOOP IF SELECTED 

TRAP 

tSET BACK TO 512. 

{STARTING READ BUFFER ADDRESS 



CtERHRD 
445 

WRTERR 

PKTSSR 

CtCLPl 



C»CLPl 



REM) REVERSE DATA.ACK COHHAND 



012757 
012704 
010557 
010465 
004757 
016501 
012702 
020102 
001406 
005257 

104456 
000676 



100401 043760' 

045760' 

045766' 

000000 

016150' 

000002 

000200 



002212' 



165 »i 



MOV 


♦100401.T24PKS 


tREAD REVERSE OATA.ACK COMMAND 


MOV 


•T24PK5.R4 


(SET UP R4 WITH PACKET ADDRESS 


MOV 


R5.T24SZ 


tSET UP RECORD SIZE IN PACKET 


MOV 


R4.TSDB(R5) 


{ISSUE COMMAND 


JSR 


PC.WAITF 


{WAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


»GET TSSR CONTENTS 


MOV 


•SSR.R2 


1 SET UP EXPECTED 


CMP 


R1.R2 


tARE THEY EQUAL 


BEQ 


170» 


iBR. IF OK 


INC 


FATFLG 


J BUMP COUNT 


ERRHRO 


ERRNO . T24WDC . PKTSSR 


{TSSR INCORRECT AFTER READ DATA 


TRAP 



.WORD 



CiERHRD 
446 



TSV7 HARDWARE TESTS 1-6 MACRQ M1113 Q 

TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



Lll 



I FEB -64 17:54 



SEQ 141 



2742 

2745 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2755 



2756 

2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 

2765 



2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 



2784 
2785 
2786 
2787 
2788 



037762 
037764 
037766 
037766 
037770 
037774 
037776 
040002 
040004 
040006 
040010 
040012 
040014 
040020 
040020 
040022 
040024 
040026 
040030 
040030 
040032 
040034 
040036 
040040 
040042 
040044 
0400S0 
040052 
040052 
040054 
040054 
040054 
040056 
040064 
040066 
040072 



040072 
040072 
040072 
040074 
040100 
040104 



045446' 
011746' 

104406 

013702 003114* 
010304 

162704 000400 

060204 

021403 

001410 

011401 

010302 

005237 002212' 

104456 

000677 

044700' 

015374' 

104406 
005724 
160204 
020403 
001360 
005743 

022703 000400 
001322 

104406 



104403 

023727 002212* 000017 
103402 

004737 017104' 



170»: CKLOOP 



173»: 



MOV 
MOV 
SUB 
ADO 
CMP 
BEQ 
MOV 
MOV 
INC 

ERRHRO 



1801: CKLOOP 



TST 
SUB 
CMP 
BNE 
TST 
CMP 
BNE 

CKLOOP 



FREE.R2 

R3.R4 

«2S6. ,R4 

R2.R4 

(R4).R3 

1801 

(R4).R1 

r;.R2 

FATFLG 

ERRNO . T24DT A . EXPREC 



190* : 



9991: 



ENOSUB 



CMP 
BLO 
JSR 



(R4)* 

R2.R4 

R4.R3 

1731 

-CR3) 

«256..R5 

165* 



FATFLG. #15. 
9991 

PC.CKOIMP 



.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 

I GET BUFFER ADDRESS 

I CURRENT RECORD SIZE 

iFIRST LOCATION IN BUFFER 

I SET POINTER TO FRAME (WORD) 

I CHECK DATA READ (R3-0ATA ALSO) 

I BR. IF ALL IS WELL 

iRECD DATA 

•EXPECTED DATA 

I BUMP COUNT 

lOATA READ NOT - WRITTEN 

TRAP 
.WORD 
.WORD 
WORD 

I LOOP IF SELECTED 

TRAP 

I BUMP TO NEXT '.OCATION 

I GET RID OF BASE ADDRESS 

;ENO OF RECORD YET 

iBR. IF NOT AT END OF RECORD 

I BUMP RECORD SIZE 

(END OF RECORD YET 

:BR. IF MORE RECORDS TO WRITE 

I LOOP IF SELECTED 

TRAP 

!>>>>>>>>>>>> END SUBTEST >>>>> 
L10060: 

TRAP 

lis ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
iTRY TO DROP THE UNIT 



T24W0C 
PKTSSR 

CICLPl 



CIERHRO 
447 
T24DTA 
EXPREC 

oapi 



ciapi 

>>>>>>> 

C«ESUB 



TEST 4. SUBTEST 7 

VERIFIES THAT READ DATA COMMANDS WITH CVC-1 AND THE 
SWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 
SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 
THE RESULTS. EXCEPT FOR RAM CONTENTS. SHOULD BE THE SAME. 



104402 

004737 046454' 

004737 046320' 

004737 046412' 



BGNSUB 



JSR PC.T24RT3 
JSR PC.T24REST 
JSR PC.T24RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T4.7: 

TRAP CtBSUB 
J SET UP OTHER COMMAND PACKET 
tSET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 



Mil 



TSV7 HARDWARE TESTS 1-8 MACRO MlllS Ol-FEB-84 17:54 

TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 142 



2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2800 
2801 



2802 
280S 
2804 
2805 
?806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2818 
2819 



2820 

2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2835 



2836 

2837 
2838 
2839 
2840 



040110 
040114 
040116 
040122 
040124 
040124 
040126 
040130 
040132 
040134 
040134 
040142 



040146 
040152 
040154 
040160 
040162 
040162 
040164 
040166 
040170 
040172 
040172 



040174 
040200 
040202 
040204 
040210 
040210 
040212 
040214 
040216 
040220 
040220 
040222 
040226 



! ISSUE CONTROLLER 
i 



SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 015674* 
103407 

005237 002212* 
010001 

104455 

000700 

003642' 

011734* 

013737 002172' 043650' 
012704 043630' 



201: 



JSR PC.SOFINIT 

BCS 201 

INC FATFLG 

MOV RO.Rl 

ERRDF ERRNO.SFIERR.SFIMSG 



NOV UNITN.T24DSU 
MOV *T24PACKET.R4 



I DO INITIALIZE ON CONTROLLER 
iBR IF INIT MAS OK 
iBUMP COUNT 

•CONTENTS OF TSSR REGISTER 

iFATAL ERROR TSSR IMS NOT GK 

TRAP C»EROF 
.UORO 448 
.UORO SFIERR 
.UORO SFinSG 

I SET DRIVE NUMBER IN PACKET 
tSUBftOUTINE NEEDS PACKET ADDRESS 



URITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 

000701 

005046' 

011734' 

104406 



241: 



JSR 
BCS 
INC 
MOV 
ERRHRD 



CKLOOP 



PC. URTCHR 
24» 

FATFLG 
RO.Rl 

ERRNO . UR TMSG . SF IMSG 



1 ISSUE URITE CHMMCTERISTICS 
iBR. IF COMMAND ISSUED OK 
tBUMP COUNT 

I SAVE CONTENTS OF TSSR 
t URITE CHARACTERISTISC FAILED 

TRAP 
. WORD 
. UORO 
.UORD 

iLOOP IF SELECTED 

TRAP 



OERHRD 
449 

URTMSG 
SFIMSG 

C«CLP1 



ISSUE REUINO COMMAND TO SELECTED TAPE DRIVE 



004737 010714' 

103407 

010001 

005237 002212' 

104456 

000702 

045116' 

011746' 

104406 

012703 000400 

013737 003114' 043762' 



30«: 



JSR 
BCS 
MOV 
INC 

ERRHRO 



CKLOOP 



PC.REUIND 
30> 
RO.Rl 
FATFLG 

ERRNO. T24RUN.PKTSSR 



MOV 
MOV 



#256.. R3 
FREE.T24RB 



(CALL TAPE REUIND COMMAND 

iBR. IF NO PROBLEM 

sSAVE TSSR 

iBUMP COUNT 

I REUIND NOT ACCEPTED 

TRAP 
.UORO 
.UORO 
.UORO 

TRAP 
I RECORD SIZE 

I STARTING URITE BUFFER ADDRESS 



tLOOP IF SELECTED 



CSERHRO 

450 

T24RUN 

PKTSSR 

CSCLPI 



Nil 



TSV7 HARDWARE TESTS 1-6 MACRO (11113 Ol-rEB-84 17:54 

TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 143 













1 
















1 UQTTP 


OATA.ACK.CVC-l.SWB COMMAND 












I 










































ftl 07X7 


XDWU3 


row 




MOW 




cO^ f 














































PP TTI 1 HPM 








UX ■ Oct 












A1 AXX7 

\JX.\JOO f 








MOV 


R3.T24SZ 














MOV 


R4.TSDB(R5) 


2853 


040264 


004737 


016150' 






JSR 


PC.UAITF 


2854 


040270 


016501 


000002 






MOV 


TSSR(R5).R1 


2855 


040274 


012702 


000200 






MOV 


dSSR R2 


2856 


040300 


020102 








CMP 


R1.R2 














BEQ 


75$ 


2656 


040304 


005237 


002212' 






INC 


FATFL6 




040316 


wW f WW 
ww^XVw 

011746' 








ERRHRD 


ERRNO . URTERR . PKTSSR 














CKLOOP 




2664 


040322 


005723 








TST 


(R3)» 


2865 


040324 


022703 


000414 






CMP 


«268. .RS 


2666 


040330 


001346 








BNE 


65 ( 


2667 


040332 
040332 


104406 






801: 


CKLOOP 




2868 


040334 


005743 








TST 


-(R3) 


2869 


040336 


013737 


003114' 


043762' 




MOV 


rREE.T24RB 



tWRITE DATA.ACK.CVC-I.SWB COMMAND 
tSET UP R4 WITH PACKET ADDRESS 

I SET PATTERN IN CORRECT REGISTER 

(FILL MEMORY WITH RECURD SIZE 

I SET UP RECORD SIZE IN PACKET 

i ISSUE COMMAND 

J WAIT FOR SSR TO SET 

J GET TSSi CONTENTS 

I SET UP EXPECTED 

,ARE THEY EQUAL 

jBR. IF OK 

jBUMP COUNT 

iTSSR INCORRECT Af^TER WRITE DATA 



2670 
2671 
2672 
2673 
2674 
2675 
2676 



TRAP 
.WORD 
.WORD 
.WORD 

J LOOP IF SELECTED 

TRAP 

sBUMP RECORD SIZE 

>ENO OF RECORD YET 

tBR. IF MORE RECORDS TO WRITE 

{LOOP IF SELECTED 

TRAP 

tSET RECORD SIZE BACK TO 512. 
{STARTING READ BUFFER ADDRESS 



CIERHRD 
451 

WRTERR 
PKTSSR 

CfCLPl 



CiCLPl 



I READ REVERSE DATA.ACK.SWB COMMAND 



2677 


040344 


012737 


110401 043760' 


MOV 


«110401 , T24PK3 


2676 


040352 


012704 


043760' 165$: 


MOV 


♦T24PK3.R4 


2679 


040356 


010337 


043766' 


MOV 


R3.T24SZ 


2860 


040362 


010465 


000000 


MOV 


R4.TSDB(RS) 


2661 


040366 


004737 


016150* 


JSR 


PC.WAITF 


2862 


040372 


016501 


000002 


MOV 


TSSR(R5),R1 


2863 


040376 


012702 


000200 


MOV 


«SSR.R2 


2664 


040402 


020102 




CMP 


R1.R2 


2665 


040404 


001406 




BEQ 


170$ 


2886 


040406 


005237 


002212* 


INC 


FATFLG 


2690 


040412 






ERRHRD 


ERRNO . T24W0C . EXPREC 




040412 


104456 










040414 


000704 










040416 


045446' 










040420 


015374- 








2691 


040422 




170t: 


CKLOOP 






040422 


104406 








2892 


040424 


013702 


003114' 


MOV 


FREE.R2 



:READ REVERSE DATA.ACK.SWB COMMAND 

sSET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 

! ISSUE COMMAND 

J WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

:ARE THEY EQUAL 

tBR. IF OK 

;BUMP COUNT 

iTSSR INCORRECT AFTER REAu DATA 

TRAP OERHRD 
.WORD 452 
.WORD T24WDC 
.WORD EXPREC 

tLOOP IF SELECTED 

TRA? C$CLP1 

(GET BUFFER ADDRESS 



B12 



TSV7 HAROUARE TESTS 1-8 HACRO HU15 Ol-FEB-64 17:54 

TEST 4: BASIC READ DATA (FORUARO AND REVERSE) 



SEQ 144 



2S9S 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2904 



2905 

2906 
2907 
2908 
2909 
2910 
2911 
2912 
2915 

2914 



2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2950 
2951 



2932 
2955 
2934 

2955 
2956 
2937 
2938 
2939 
2940 
2«»41 
2942 



040450 
040452 
040456 
040440 
040442 
040444 
040446 
040450 
040454 
040454 
040456 
040460 
040462 
040464 
040464 
040466 
040470 
040472 
040474 
040476 
040500 
040504 
040506 
040506 
040510 
040510 
040510 
040512 
040520 
040522 
040526 



040526 
040526 
040526 
040530 
040554 
040540 



010304 

162704 000400 

060204 

021403 

001410 

011401 

010502 

005257 002212* 

104456 

000705 

044700' 

015574- 

104406 

005724 
160204 
020405 
001560 
005745 

022705 000400 
001522 

104406 



104405 

025727 002212' 000017 
105402 

004757 017104' 



175t: 



1801 i 



MOV 
SUB 
ADO 
CMP 
BEQ 
MOV 

nov 

INC 

ERRHRO 



CKLOOP 



R5,R4 

♦256..R4 

R2.R4 

(R4).RS 

1801 

(R4).R1 

R5.R2 

FATfLC 

ERRNO . T240T A . t XPREC 



TST 

sue 

CHP 



1901: 



9991: 



TST 
C«P 

etc 

CKLOOP 
ENOSUB 



CMP 
BLO 
JSft 



(R4)* 

R2.R4 

^4.R5 

17S» 

-(R5) 

•2S6..RS 

1651 



rATrLC.#l5. 

9991 

PC.CKOROP 



(CURRENT RECORD SIZE 

I FIRST LOCATION IN BUFFER 

I SET POINTER TO FRAME (WORD) 

iCHECK DATA READ (R5-DATA ALSO) 

iBR. IF ALL IS UELL 

iRECD DATA 

•EXPECTED DATA 

I BUMP COUNT 

iDATA READ NOT • WRITTEN 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 

iBUr^ TO NEXT LOCATION 

iGET RID OF BASE ADDRESS 

lENO OF RECORD YET 

tBR. IF NOT AT END OF RECORD 

iBUW RECORD SIZE 

lEND OF RECORD YET 

iBR. IF MORE RECORDS TO WRITE 

iLOOP IF SELECTED 

TRAP 

l>>>>>>>>>>>> END SUBTEST >>>>> 
L 10061: 

TRAP 

lis ERROR COUNT AT 25 
iSR. IF LESS TMAN 25 
I TRY TO DROP THE UNIT 



CIERHRD 
455 
T24DTA 
EXPREC 

C«CLP1 



CtCLPl 

>>>>>>> 

CtESUB 



{TEST 4. SUBTEST 8 

! VERIFIES THAT A READ REVERSE COHHAND READING A RECORD 

iLONGER THAN THE SPECIFIED By^E COUNT CAUSES TAPE 

iSTATUS ALERT TERMINATION WITH T»C RECORD LENGTH LONG 

l(RLL) BIT SET. 

I 

I 

I- 



104402 

004757 046454' 

004757 046520' 

004757 346412' 



BGNSUe 



JSR 
JSR 
JSR 



PC.T24RT5 

PC.T24REST 

PC.T24RT2 



l>t>>>>«>>>>> BEGIN SUBTEST >>>>>>>>>>i 
T4.8: 

TRAP ClBSUe 
iSET UP OTHER COMMAND PACKET 
I SET COmAND PACKET 
I SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



040544 004757 015674' 



JSR 



PC.SOFINIT 



I DO INITIALIZE ON CONTROLLER 



CI? 



l-FEBM I7t54 



SEQ 145 



2940 



2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
295a 
2959 
2960 
2961 
2962 
2966 
2967 



296« 

2969 
2970 
2971 
2972 
297S 
2974 
2975 
2976 
2977 
2978 
2979 
2960 
2964 



2965 

2966 
2967 
2966 
2969 
2990 
2991 
2992 
2993 
2994 



040550 
040552 
040556 
040560 
040560 
040562 
040564 
040566 
040570 
040570 
040576 



040602 
040606 
040610 
040614 
040616 
040616 
040620 
040622 
040624 
040626 
040626 



040630 
040634 
040640 
040642 
040644 
040650 
040650 
040652 
040654 
040656 
040660 
040660 
040662 
040666 



103407 

005237 002212* 
OlOOOI 

104455 

000706 

003642* 

011734* 

013737 002172' 043650* 
012704 043630' 



20t; 



BCS 20* 

INC F4TFLG 

MOV RO.Rl 

ERftOF ERRNO.SFIERR.SFinSG 



NOV UNITN.T240SU 
NOV •T24FACKET.R4 



I BR IF INIT WAS OK 
iBUMP COUNT 

•CONTENTS OF TSSR REGISTER 

•FATAL ERROR TSSR MAS NOT OK 

TRAP CIEROF 
.WORD 454 
.yORD SFIERR 
.WORD SFIHSG 

I SET DRIVE NUMBER IN PACKET 
iSUBROUTirC rCEOS PACKET ADDRESS 



URITE CHARACTERISTICS CONHAND (CALL TO URTCHR) 



004737 010562' 
103407 

005237 002212* 
010001 

104456 

000707 

005046' 

011734' 

104406 



24li 



JSR 
BCS 

INC 

NOV 



CKLOOP 



PC. URTCHR 
241 

FATFLG 
RO.Rl 

ERRNO. URTNSG. SFinSG 



I ISSUE URITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
I BUMP COUNT 

tSAVE CONTENTS OF TSSR 
lURITE CHARACTERISTISC FAILED 

TRAP 
.UORD 
.WORD 
.UORD 

iLOOP ir SELECTED 

TRAP 



CtERHRO 
455 

URTMSG 
SFIHSG 

C»CLP1 



ISSUE REMIND COmAND TO SELECTED TAPE DRIVE 



004737 010714* 
004737 016236' 
103407 
010001 

005237 002212' 

104456 
000710 
045116' 
011746* 

104406 

Oi2703 001000 

013737 003114* 043762' 



JSR 
JSR 
BCS 
MOV 
INC 



PC.REUIIO 

PC.CHKTSSR 

30< 

RO.Rl 

FATFLG 

ERRNO. T24RUN.PKTSSR 



30»: 



CKLOOP 

MOV 
MOV 



•512.. RS 
FREE.TdAW 



I CALL TAPE REUDO COMMAND 

I SEE HON TSSR IS 

tBR. IF NO PROBLEM 

I SAVE TSSR 

iBUry COUNT 

iREUZNO NOT ACCEPTED 

TRAP 
.UORD 
.UORO 
.WORD 

I LOOP IF SELECTED 

TRAP 

iRECORO SIZE 

iSTARTING URITE BUFFER ADDRESS 



CIERHRO 
456 

T24RUN 

PKTSSR 

CICLPl 



URITE DATA.ACK.CVC-1 CO WR ND 













D12 








K (FQRlMRD AND REVERSE 


)1 FEB 84 

1 


17:54 








V^Vf> r ^ 


Vac f 9f 


140005 043760* 


^K)V 


•140005. T24PK3 


lURITE OATA.ACK.CVC'l COMMAND 








ni 37AA 
UK fSJ^ 


043760' 


MOV 


4T24PK3.R4 


iSET UP R4 UITH PACKET A00RES3 






040706 




65t: 












040706 


010337 


043766' 


nov 


R3.T24SZ 


iSET UP RECORD SIZE IN PACKET 




2999 


040712 


010465 


000000 


MOV 


R4.TSDB(R5) 


1 ISSUE COmAND 






040716 


004737 


016150' 


JSR 


PC.UAITF 


iWAIT rOR SSR TO SET 




3001 


040722 


016S01 


000002 


MOV 


TSSR(HS).R1 


iGET TSSR CONTENTS 




3002 


040726 


012702 


000200 


MOV 


«SSR.R2 


iSET UP EXPECTED 




3003 


040732 


020102 




CMP 


R1.R2 


lARE THEY EQUAL 




3004 


040734 


001406 




BEQ 


751 


iBR. IF OK 




3005 


040736 


005237 


002212' 


INC 


TATFLG 


iBUMP COUNT 




3009 


040742 






ERRHRD 


ERRNQ . URTERR . PK T SSR 


iTSSR INCORRECT AFTER URITE DATA 




040742 


104456 








TRAP 


C)ER»«0 




040744 


000711 








.UORO 


457 




040746 


005103* 








.MORC 


URTERR 




040750 


011746- 








.UORO 


PKTSSR 


3010 


040752 




751: 


CKLOOP 




iLOOP IF SELECTED 






040752 


104406 








TRAP 


C«CLP1 


3011 


040754 


012703 


000400 


MOV 


•256.. RS 


{SIZE OF RECORD 




3012 


040760 


013737 


003114' 043762' 


MOV 


FREE.T24R8 


1 STARTING READ BUFFER ADDRESS 




3013 
















3014 

















SEQ 146 



3015 
3016 
3017 
3018 
3019 



READ DATA.ACK COItMND 



3020 


040766 


012737 


100401 043760' 


MOV 


3021 


040774 


012704 


043760* 1651: 


NOV 


3022 


041000 


010337 


043766' 


MOV 


3023 


041004 


010465 


000000 


MOV 


3024 


041010 


004737 


016150* 


JSR 


3025 


041014 


016501 


000002 


MOV 


3026 


041020 


012702 


100204 


MOV 


3027 


041024 


020102 




CMP 


3028 


041026 


001406 




BEO 


3029 


041030 


005237 


002212* 


INC 


3033 


041034 






errhro 




041034 


104456 








041036 


000712 








041040 


046164' 








041042 


015374' 






3034 


041044 




170t: 


CKLOOP 




041044 


104406 







•100401. T24PKS 
•T24PK5.R4 

R5,T2«SZ 

IM.rS08(RS) 

PC.UAXTF 

TSSfKIO).Rl 

•SSRfSClBZT2.R2 

R1.R2 

1701 

FATFLG 

ERRN0,T2«TRL.EXPREC 



3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 



iREAO OATA.ACK COMMAM) 

iSET UP R4 UITH PACKET ADDRESS 

tSET UP RECORD SIZE IN PACKET 

I ISSUE COmANO 

tUAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

I ARE THEt EQUAL 

iBR. IF OK 

iBUMP COUNT 

I TSSR INCORRECT AFTER READ DATA 

TRAP C«ER»«D 
.UORO 458 
.UORO T24TRL 
.UORO EXPREC 

tLOOP IF SELECTED 

TRAP OCLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



041046 013701 043660' 

041052 010102 

041054 052702 010000 

041060 020102 

041062 001406 

041064 005237 002212' 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 



T24BFR*6.R1 

R1.R2 

•BIT12.R2 

R1,R2 

180t 

FATFLG 



I GET MESSAGE BUFFER (XSTO) 

I SET UP EXPECTED 

iSET THE RLL BIT IN EXPECTED 

lARE THEY EQUAL 

iBR. IF EQUAL (ALL IS UELL) 

I BUMP COUNT 



E12 



TSV7 
TEST 



HAftOUARE TESTS 1 8 



. _ MACRO MlllS 01 -FEB 64 I7i54 

BASIC READ DATA (FORUARD AND REVERSE) 



SEQ 147 



5051 

3052 
3053 



3054 

3055 
3056 
3057 
3058 
5059 
3060 
5061 
5062 
3063 
3064 
3065 
3066 
3067 
3066 



3069 
3070 
3071 
3072 
3075 
3074 
3075 
3076 
5077 
5078 
3079 
3080 
3081 
3082 
3083 
3084 
3088 
3089 



3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 



041070 
041070 
041072 
041074 
041076 
041100 
041100 
041102 
041102 
041102 
041104 
041112 
041114 
041120 



041120 
041120 
041120 
041122 
041126 
041130 
041134 
041140 
041144 



041150 
041154 
041156 
041162 
041164 
041164 
041166 
041170 
041172 
041174 
041174 
041202 



104456 

000713 

045752* 

015374' 

104406 



104405 

025727 002212' 000017 
103402 

004737 017104' 



180t: 



ERRHRD ERRNO . T24L0N , E XPREC 

CKLOOP 
ENOSUB 



C»1P 
BLO 
JSR 



FATFLG.#15. 
9991 

PC.CKOROP 



104402 

005757 003126* 
001002 

000137 041604' 

004757 046454' 

004737 046320' 

004737 046412' 



004737 015674- 
103407 

005237 002212' 
010001 

1044S5 
000714 
003642' 

011734' 

013737 002172' 043650' 
012704 043630' 



999t: 
t ♦ 

'test 4. SUBTEST 9 

jvERIFIES THAT A READ REVERSE COTtlANO SPECIFYING A DATA 
•BUFFER STARTING IN NONEXISTANT tCnORV TERMINATES UITH 
|T»C PROPER ERROR STATUS WITHOUT HOVING TAPE 
I - 



I THE RLL BIT UAS NOT SET IN XSTO 

TRAP CIERHRD 
.UORO 459 
.WORD T24L0N 
.WORD EXPREC 

TRAP CICLPl 
l>><>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10062: 

TRAP CIESUB 
lis ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
{TRY TO DROP T»€ UNIT 



101: 



BGNSUB 



TST 
BNE 
JMP 
JSR 
JSR 
JSR 



NXHFLG 

101 

1801 

PC.T24RT3 

PC.T24REST 

PC«T24RT2 



CtBSUB 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T4.9: 

TRAP 

lOO UE HAVE IT? 
iBR. !F ENOUGH 
I SKIP THIS TEST IF NOT 
I SET UP OTHER COmANO PACKET 
I SET COrtlANO PACKET 
I SET UP OTHER COmAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



201 ! 



JS« PC.SOFINIT 

BCS 201 

INC FATFLG 

nOV RO.Rl 

ERROF ERRNO. SFIERR.SFIHSG 



HOV UNITN.T240SU 
NOV «T24PACKET.R4 



lOO INITIALIZE ON CONTROLLER 
iBR IF INIT UAS OK 
tBUNP COUNT 

{CONTENTS OF TSSR REGISTER 
{FATAL ERROR TSSR UAS NOT OK 

TRAP 
.UORO 
.UORD 
.UORO 



CIEROF 
460 

SFIERR 
SFIMSG 



I SET DRIVE NUMBER IN PACKET 

I SUBROUTINE NEEDS PACKET ADDRESS 



tURITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



F12 



TSV7 
TEST 



fAROUARE TESTS 1-8 MACRO MlllS 01 -FEB -64 17:54 

4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 140 



3090 
3099 
5100 
3101 
5102 
3106 
3107 



3100 

3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3110 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3130 



3131 
3132 

3133 
3134 
3135 
3136 
3137 
3130 
3139 
3140 
3144 



3145 

3146 
3147 
3140 



041206 
041212 
041214 
041220 
041222 
041222 
041224 
041226 
041230 
041232 
041232 



041234 
041240 
041242 
041250 
041256 
041262 
041266 
041272 
041274 
041276 
041302 
041302 
041304 
041306 
041310 
041312 
041312 
041312 



041314 
041320 
041324 
041326 
041330 
041354 
041334 
041336 
041340 
041342 
041344 
041544 
041346 
041352 



004737 010562' 
103407 

005237 002212' 
010001 

104456 

000715 

005046' 

011734' 

104406 



241: 



JSR 
BCS 
INC 
MOV 

ERRHRD 



CKLOOP 



PC.URTCMR 
241 

FATFLG 
RO.Rl 

ERRNO. UR TMSG . SF IHSG 



I ISSUE URITE CHARACTERISTICS 
I BR. IF C0r*1AND ISSUED OK 
iBUrf> COUNT 

I SAVE CONTENTS OF TSSR 
tWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
. WORD 
.WORD 

tLOOP IF SELECTED 

TRAP 



CtERHRD 
461 

URTMSG 
SFIMSG 

CICLPI 



ISSUE REUIND COMMAND TO SELECTED TAPE DRIVE 



005737 002216' 
001024 

112737 000200 043771' 

112737 000010 045770' 

012704 045740' 

010465 000000 

004757 016236* 
103407 
010001 

005257 002212* 

104456 

000716 

026130* 

011746* 



104406 



004737 010714' 
004757 016236' 
105407 
010001 

005257 002212* 

104456 
000717 
045116' 
011746' 

104406 

012703 000005 

013737 003114' 043762' 



TST 


EXTFEA 


1 CHECK FOR EXTENDED FEATURES SU SUITCh 


BNE 


271 


iBR IF SUITCH IS ON 


MOVB 


♦200.T24BS1 
♦10.T24BS0 


lyRITE niSCELLMCOUS CONT/REAO STATUS 


MOVB 


iFUNCTION SELECTION BIT (TURN ON EXTFEA HU SWITCH ^ 


MOV 


•T24PK2.R4 


tURITE SUBSTS MEN PACKET 


MOV 


R4.TS0e(RS) 


1 ISSUE COWMM) 


JSR 


PC.CmTSSR 


lURIT FOR SSR 


8CS 


281 


|8R. IF NO ERROR 


MDV 


RO.Rl 


•ERROR. SAVE TSSR 


INC 


FATFLG 


iBUW COUNT 


EfWHRO 


• EWMD.T22SSft.PKTSSR 


iTSSR NOT CORRECT AFTER URT. MISCELLANEOUS 



271: 
269: 



301 i 



CKLOOP 



JSR 
JSR 
BCS 

nov 

INC 

ERRHRO 



CKLOOP 

MOV 
MOV 



tLOOP IF SELECTED 



TRAP 

.WORD 
.WORD 
.WORD 



TRAP 



CtER^AO 
462 

T22SSR 
PKTSSR 



C»CLPl 



PC. REUIND 

PC.CMKTSSR 

30* 

RO.Rl 

FATFLG 

ERRNO. T24RUN.PKTSSR 



♦5. .R5 
FREE . T24RB 



:CALL TAPE REUIND COMMAND 

tSEE HDU TSSR IS 

:BR. IF NO PROBLEM 

I SAVE TSSR 

(BUMP COUNT 

I REUIND NOT ACCEPTED 

TRAP 

.WORD 
.WORD 
.UORD 

I LOOP IF SELECTED 

TRAP 

I NUMBER OF RECORDS 

{STARTING URITE BUFFER ADDRESS 



CIERHRD 
463 
T34RWN 
PKTSSR 

CICLPI 



Gi2 



TSV7 
TEST 



HARDWARE TESTS 1-8 «ACRD «1U5 01 ^EB 84 17:54 

I: BASIC READ OATA (FORWARD AND REVERSE) 



SEQ 149 



3149 

5150 
5151 
5152 
5155 
5154 
5155 
5156 
5157 
5158 
5159 
5160 
5161 
5162 
5165 
5164 
5168 



3169 

3170 
3171 
5172 
5175 
5174 
5175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
5183 
3184 
3185 
3166 
5187 
3188 
5189 
5190 
5191 
3192 
3193 
3194 
3195 
3196 
3J97 
3198 
3199 
3203 



I WRITE DATA.ACK.CVC-1 COMnANO 



041560 
041566 
041372 
041372 
041400 
041404 
041410 
041414 
041420 
041422 
041424 
041430 
041430 
041432 
041434 
041436 
041440 
041440 
041442 
041444 
041446 
041452 
041456 
041462 
041466 
041470 
041474 
041502 



041506 
041514 
041520 
041S26 
041SS2 
041536 
041542 
041546 
041550 
041552 
041SS6 
041564 
041566 
041572 
041572 
041574 
041576 



012737 140005 043760* 
012704 043760' 

012737 000256 043766' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 

000720 

005103' 

011746' 

104406 

005303 
001352 

012703 000400 

012701 160000 

012702 177776 
004737 016276' 
103046 

010137 003130' 

013737 003130' 043762' 

005037 043764' 



6S»: 



MOV 


♦140005. T24PK3 


iWRITE DATA.ACK,CVC"1 COMMAND 


HOV 


•T24PK5.R4 


iSET UP R4 WITH PACKET ADDRESS 


MOV 


•256.T24SZ 


iSET UP RECORD SIZE IN PACKET 


MOV 


R4,TS0B(RS) 


tissue comAND 


JSR 


PC.WAirr 


iWAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 


MOV 


•SSR.R2 


t SET UP EXPECTED 


CMP 


R1.R2 


lARE THEY EQUAL 


BEQ 


75 » 


iBR, IF OK 


INC 


TATFLG 


iBUMP COUNT 


ERRHRD 


ERRNO . WRTERR . PK T SSR 


iTSSR INCORRECT AFTER WRITE DATA 



75$: 



CKLOOP 

DEC 
BNE 
NOV 
HOV 
MOV 
JSR 
BCC 
MOV 
MOV 



R3 
65t 

#256.. R5 

*160000.R1 

•177776.R2 

PC.XNXN 

1801 

Rl.NXMLO 

NXf«.0.T24Re 

T24RB*2 



TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 

iBUMP DOWN RECORD COUNTER 

}8R. IF NOT AT 5 RECORDS YET 

tRCCORD SIZE 

}NXH LOU ADDRESS START 

tLiniT CHECK FOR NXM ChlGHEST) 

tLOOK FOR NXH ADDRESS 

l8R. IF NON FOUND 

iSET ADDRESS UP FOR TEST 

I STARTING READ BUFFER ADO!KSS 

tSET TO 16 BIT ADDRESSING 



C«ERHRO 
464 

WRTERR 
PKTSSR 

C«CLP1 



:READ DATA.ACK COHMANO 



012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001414 
005237 
023727 
001353 
005237 

104456 
000721 
044221' 



100001 043760' 
043760' 

000400 043766' 

000000 

016150' 

000002 

104210 



043764' 

043764' 000004 



002212' 



NOV ♦100001.T24PK3 

16St: NOV •T24PKS.R4 

NOV •2S6..T24SZ 

NOV R4.TSDB(RS) 

JSn PC.MAITF 

NOV TSSR(R5).R1 

NOV #SSR!NXN!SC!BIT3.R2 

CMP R1.R2 

BEG 1701 

TNC T24RB»2 

CMP T24RB*2.*4 

BNE 1651 

INC FATFLG 
ERRHRD ERRNO . T24NXM . PK T SSR 



I RE AD DATA.ACK CONNAND 

iSET UP R4 WITH PACKET ADDRESS 

iSET UP RECORD SIZE IN PACKET 

I ISSUE CONNAND 

tUAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

iBR. IF OK 

I SET TO NEXT HIGHER ADDRESSING MODE 
iDID WE OVERFLOW INTO 19 BITS 
iBR. IF STILL IN 16-18 BITS RANGE 
iBUHP COUNT 

iTSSR INCORRECT AFTER READ DATA 

TRAP C«ERHPO 
.WORD 465 
.WORD T24NXM 



H12 



TSV7 ^MROUARE TESTS I 6 HACRO M1115 01-FEB S4 17:54 

TEST 4: BASIC READ DATA (FQRUARO AND REVERSE) 



SEQ 150 



3^04 

3205 
3206 



3207 
3206 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 



3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3241 
3242 



3243 
3244 

3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 



041600 
041602 
041602 
041604 
041604 
041604 
041604 
041606 
041614 
041616 
041622 



041622 
041622 
041622 
041624 
041630 
041634 



041640 
041644 
041646 
041652 
041654 
041654 
041656 
041660 
041662 
041664 
041664 
041672 



011746- 
104406 



104403 

023727 002212' 000017 
103402 

004737 017104' 



104402 

0047S7 046454' 

004737 046320' 

004737 046412' 



004737 015674' 
103407 

00S237 002212' 
010001 

104455 

000722 

003642' 

011734' 

013737 002172' 043650' 
012704 043630' 



170$: 
I80«i 



9991: 



CKLOOP 



ENOSUB 



CMP 
BLO 
JSR 



I LOOP IF SELFCTEO 



.UORO 
TRAP 



PKTSSR 
CfCLPl 



FATFLG,«15. 
999 » 

PC.CKDROP 



!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10063: 

TRAP OES'JB 
lis ERROR COUNT AT 25 
J BR. IF LESS THAN 25 
J TRY TO DROP THE UNIT 



TEST 4. SUBTEST 10 

VERIFIES THAT ILLEGAL nOOE -FIELD COOES IN THE READ 
COMMAND CAUSE A FUNCTION REJECT TERMINATION WITH THE 
ILLEGAL COMMAND (ILC) ERROR BIT SET. 



BGNSUB 



JSR 
JSR 
JSR 



PC.T24RT5 

PC.T24RCST 

PC.T24RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T4.10; 

TRAP CtBSUB 
tSET COrtlAND PACKET UP CLEAR 
iSET COmANO PACKET 
:SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERRC3R 



20«i 



JSR PC.SOFINIT 

BCS 201 

INC FATFLG 

MOV RO.Rl 

ERROF ERRNO . SF lERR . SF IMSG 



MOV UNITN.T24DSU 
MOV •T24PACKET.R4 



iDO INITIALIZE ON CONTROLLER 
iBR IF INIT MAS OK 
I BUMP COUNT 

{CONTENTS OF TSSR REGISTER 
I FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.UORD 



C«EROF 
466 

SFIERR 
SFIMSC 



i SET UP DRIVE NUMBER 

I SUBROUTINE NEEDS PACKET ADDRESS 



URITE CMARACTERISTICS COMMAND (CALL TO URTCM) 



041676 004737 010S62' 



JSR 



PC.MTCHR 



I ISSUE URITE CHARACTERISTICS 



112 



TSV7 HARDWARE TESTS 1-8 MACRO MlllS Ol-FEB 84 17:54 

TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 151 



5254 

5255 
S259 
5260 



5261 

5262 
5265 
5264 
5265 
5266 
5267 
5268 
5269 
5270 
5271 
5272 
5275 
5274 
5275 
5276 
5277 
5278 
5279 
5285 



5284 

5285 
5286 
5287 
5288 
5289 
5290 
5291 
5292 
5295 
5294 
5295 
5296 
3297 
5301 



5502 
5305 



041702 
041704 
041710 
041712 
041712 
041714 
041716 
041720 
041722 
041722 
041724 



041752 
041740 
041744 
041752 
041756 
041762 
041766 
041772 
041774 
041776 
042002 
042002 
042004 
042006 
042010 
042012 
042012 



042014 
042020 
042022 
042026 
042030 
042052 
042056 
042056 
042040 
042042 
042044 
042046 
042046 
042050 
042050 



105407 

005257 002212' 
010001 

104456 

000725 

005046' 

011754' 

104406 

015757 005114' 045762* 



24t: 



BCS 24 t 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO . WRTMSC . ST IMSG 



CKLOOP 

MOV FREE,T24RB 



I BR. IF COMMAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 

I STARTING WRITE BUFFER ADDRESS 



CtERHRD 
467 

WRTMSG 
SFIMSG 

CICLPl 



ILLEGM. NODE OATA.ACK COrtWNO 



012757 104001 043760* 

012704 043760' 

012737 000400 043766' 

010465 000000 

004737 016150' 

016501 000002 

012702 100206 
020102 
001406 

005257 002212' 

104456 
000724 
044305' 
011746' 

104406 



751 ! 



NOV 


•104001 . T24PKS 


{ILLEGAL MODE DATA.ACK COTtlANO 




MOV 


•T24PK3.R4 


tSET UP R4 WITH PACKET ADDRESS 




MOV 


•2S6..T24SZ 


tSET UP RECORD SIZE IN PACKET 




MOV 


M.TSOeCRS) 


{ISSUE COMMAND 




JSR 


PC.MAITF 


tWAIT FOR SSR*BIT1!BIT2 TO SET 




MOV 


TSSA(RS).R1 


iGET TSSR CONTENTS 




MOV 


•SSR!SCfBZTlt8IT2.R2 


tSET UP EXPECTED 




CMP 


R1.R2 


{ARE THEY EQUAL 




BEQ 


751 


tBR. IF OK 






FATFL6 


iBUMP COUNT 




emrhrd 


ERRNO. TSMOr .PKTSSR 


iTSSR INCORRECT AFTER READ DATA 








TRAP 


CtERHRD 






.WORD 


468 






.WORD 


T24WDF 






.WORD 


PKTSSR 


CKLOOP 




{LOOP IF SELECTED 








TRAP 


C»CLP1 



READ MESSAGE BUTFER EXTENDED STATUS REGISTER ZERO (XSTO) 



015701 043660* 
010102 

052702 001000 

020102 

001406 

005257 002212' 

104456 
000725 
044446' 
015374' 

104406 



180t: 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 
ENDSUB 



T24BFR*6.Ri 

R1.R2 

•6IT9.R2 

R1.R2 

1601 

FATFLC 

ERRNO . T24L0Q . EXPREC 



(GET MESSAGE BUFFER 

t SET UP EXPECTED 

iSET THE ILC BIT IN EXPECTED 

{ARE THEY EQUAL 

iBR. IF EQUAL (ALL IS WELL) 

(BUMP COUNT 

I THE ILC BIT WAS NOT SET IN XSTO 

TRAP C»ERHRO 
.WORD 469 
.WORD T24L0Q 
.WORD EXPREC 



J >>>>>>>>>>>> 



TRAP 
END SUBTEST 
L 10064: 



C*CLP1 
>>>>>>»>•'■'>> 



J12 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 152 



3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 



3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3338 
3339 



3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3549 
3350 
3351 
3352 
3356 
3357 



042050 
042052 
042060 
042062 
042066 



042066 
042066 
042066 
042070 
042074 
042100 



042104 
042110 
042112 
042116 
042120 
042120 
042122 
042124 
042126 
042130 
042130 
042136 



042142 
042146 
042150 
042154 
042156 
042156 
042160 



104403 

023727 002212' 000017 
103402 

004737 017104' 



999t: 



CMP 
BLO 
JSR 



FATFLG,4»15. 
9991 

PC.CKOROP 



TRAP 

lis ERROR COUNT AT 25 
I BR, IF LESS THAN 25 
(TRY TO DROP THE UNIT 



CtESUB 



TEST 4. SUBTEST 11 

VERIFIES THAT ILLEGAL BUFFER ADDRESSES CAUSE A 
FUNCTION REJECT TERMINATION WITH ILLEGAL ADDRESS 
(ILA) ERROR BIT SET. 



104402 

004737 046454' 

004737 046320' 

004737 046412' 



BGNSUB 



JSR 
JSR 
JSR 



PC.T24RTS 

PC,T24ReST 

PC,T24RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T4.11: 

TRAP C IBSUB 
I SET COMMAND PACKET UP CLEAR 
(SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT aEAR IF ERROR 



004737 015674' 
103407 

005237 002212' 
010001 

104455 

000726 

003642- 

011734' 

013737 002172' 043650' 
012704 0436S0' 



201 1 



JSR PC.SOFINIT 

BCS 20t 

INC FATFLG 

HOV RO.Rl 

ERROF ERIMO.SriERft.SFINSG 



HOV UNZTN.T24DSU 
MOV #T24PACKET.M 



lOO INITIALIZE ON CONTQULLER 
I BR IF INIT WAS OK 
tBUMP COUNT 

{CONTENTS OF TSSR REGISTER 
I FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 



CIERDF 
470 

SFIERR 
SFIMSG 



tSET UP DRIVE NUMBER 
{SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHMACTERISTICS CONHMO (CALL TO WRTCHR) 



004737 010562' 
105407 

005237 002212' 
010001 

104456 
000727 



JSR PC. WRTCHR 

BCS 241 

INC FATFLG 

MOV RO.Rl 

ERRHRO ERRNO.WRTMSG. SFIMSG 



t ISSUE WRITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
iBUMP COUNT 

tSAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 



CSERHRO 
471 



TSV7 HAROUARE TESTS 1-8 MACRO MIUS Ol-FEB-84 17:54 

TEST 4: BASIC READ DATA (FORUARO AND REVERSE) 



K12 



3358 



042162 
042164 
042166 
042166 

3359 042170 

3360 042176 
3361 

3362 
3363 
3364 
3365 
3366 
3367 



005046' 
011734* 

104406 

013737 003114' 043762' 
012757 177700 043764' 



24t; 



CKLOOP 

MOV 
MOV 



FREE.T24ra 
«177700.T24RB*2 



.UORO URTHSG 
.WORD SriHSG 

I LOOP IF SELECTED 

TRAP OCLPl 
•ILLEGAL STARTING READ BUFFER ADDRESS 
•CREATE ILLEGAL ADDRESS 



LEGAL MODE. ACK.CVC-1. READ COMMAND 



3366 


042204 


012737 


140001 


043760' 


MDV 


3369 


042212 


012704 


043760' 




MDV 


3370 


042216 


012737 


000400 


043766' 


MOV 


3371 


042224 


010465 


000000 




MOV 


3372 


042230 


004737 


016150* 




JSR 


3373 


042234 


016501 


000002 




MDV 


3374 


042240 


012702 


100206 




MOV 


3375 


042244 


020102 






CMP 


3376 


042246 


001406 






BEQ 


3377 


042250 


005237 


002212' 




INC 


3381 


042254 








ERRHRO 




042254 


104456 










042256 


000730 










042260 


044132' 










042262 


011746' 








3382 


042264 






75*1 


CKLOOP 




042264 


104406 









•140001. T24PK3 

•T24PK3.R4 

•256..T24SZ 

R4.TS0B(R5) 

PC.UAITF 

TSSR(RS).R1 

#SSR!SC!BXT1!BIT2.R2 

R1,R2 

751 

FATFLG 

ERRNO. T24UDG.PKTSSR 



3383 
3384 
3385 
3386 
3387 
3388 
3389 



t LEGAL MODE. ACK,CVC-1. READ COMMAND 
I SET UP R4 WITH PACKET ADDRESS 
tSET UP RECORD SIZE IN PACKET 
I ISSUE COMMAND 

{WAIT FOR SSR!BIT1!BIT2 TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

I ARE TMEY EQUAL 

iBR, IF OK 

tBUMP COUNT 

iTSSR INCORRECT AFTER READ DATA 

TRAP CtERHRO 
.UORO 472 
.UORO T24U0G 
.UORO PKTSSR 

sLOOP IF SELECTED 

TRAP CtCLPl 



I READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



3390 


042266 


013701 


043660' 


MOV 


3391 


042272 


010102 




NOV 


3392 


042274 


052702 


000400 


BIS 


3393 


042300 


020102 




CMP 


3394 


042302 


001406 




BEQ 


3395 


042304 


005237 


002212' 


INC 


3399 


042310 






errhrd 




042310 


1044S6 








042312 


000731 








042314 


044362' 








042316 


015374' 






3400 


042320 




180»: 


CKLOOP 




042320 


104406 






3401 


042322 






tNOSUB 




042322 










042322 


104403 






3402 


042324 


023727 


002212' 000017 


CMP 


3403 


042332 


103402 




BLO 


3404 


042334 


004737 


017104' 


JSR 


3405 


042340 




999»: 





T24BFR»6.R1 

R1.R2 

•BITa.R2 

RI.P2 

1801 

FATFLG 

ERRNO. T24ILA.EXPREC 



FATFLG. #15. 
999t 

PC.CKOROP 



iGET MESSAGE BUFFER 

I SET UP EXPECTED 

I SET TME ILA BIT IN EXPECTED 

I ARE T»CY EQUAL 

iBR. IF EQUAL (ALL IS UELL) 

lBUr«» COUNT 

I THE ILA BIT WAS NOT SET IN XSTO 

TRAP C»ERHRD 
.UORO 473 
.WORD T24ILA 
.yORO EXPREC 

TRAP CICLPl 
!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10065: 

TRAP C<ESUB 
lis ERROR COUNT AT 25 
I BR. IF LESS THAN 25 
tTRY TO DROP THE UN^T 



L12 



TSV7 
TEST 
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I: BASIC READ DATA (FORWARD AND REVERSE ) 



SEQ 154 



S406 
3407 
3408 
3409 
3410 
J411 
3412 
3413 
3414 
3415 
3416 
3417 



3410 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3453 
3437 
3438 



3439 
3440 
3441 
3442 
3443 
3444 
3445 

3447 
3446 
3449 

3450 
3451 
3455 
3456 



3457 



042340 
042340 
042340 
042342 
042346 
042350 
042354 
042360 
042364 



042370 
042374 
042376 
042402 
042404 
042404 
042406 
042410 
042412 
042414 
042414 
042422 



042426 
042432 
042434 
042440 
042442 
042442 
042444 
042446 
042450 
042452 
042452 



I * 

I TEST 4. SUBTEST 12 

! VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING 
tNONEXISTANT MEMORY CAUSES RECOVERABLE ERROR 
(TERMINATION (TC-4). WITH THE NXM BIT SET IN THE TSSR. AND 
J THAT THE TAPE IS ULTIMATELY POSITIONED PROPERLY. 

t - 



104402 

005737 003126' 
001002 

000137 042606' 

004737 046454* 

004737 046320' 

004737 046412' 



10$; 



BGNSUB 



TST 
BNE 
JMP 
JSR 
JSR 
JSR 



NXMFLG 
10$ 

sot 

PC , T24RT3 

PC.T24REST 

PC.T24RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T4.12: 

TRAP C«BSUB 

I DO UE HAVE IT? 

tBR. IF ENOUGH 

I SKIP THIS TEST IF NOT 

tSET COMMAND PACKET UP CLEAR 

tSET COMMAND PACKET 

t SET UP OTHER C0M»1AN0 PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE • CARRY BIT CLEAR IF ERROR 



004737 015674* 
103407 

005237 002212' 
010001 

104455 

000732 

003642' 

011734' 

013737 002172' 043650' 
012704 043630* 



201: 



JSR PC.SOFINIT 

BCS 20t 

INC FATFLG 

NOV RO.Rl 

ERRDT ERRNO . S*^ lERR . SF IMSG 



MOV UNITN.T24DSU 
HOV #T24PACKET.R4 



tDO INITIALIZE ON CONTROLLER 
tBR IF INIT UAS OK 
tBUMP COUNT 

(CONTENTS OF TSSR REGISTER 
{FATAL ERROR TSSR UAS NOT OK 

TRAP 
.UORO 
.UORO 
.UORO 



CtEROF 
474 

SFIERR 
SFIMSG 



tSET UP DRIVE NUMBER 

t SUBROUTINE NEEDS PACKET ADDRESS 



URITE CHARACTERISTICS COmAND (CALL TO URTCHR) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 

000733 

005046' 

011734' 

104406 



24$: 



JSR 
BCS 
INC 
MOV 
ERRHRD 



CKLOOP 



PC. URTCHR 
24$ 

FATFLG 
RO.Rl 

ERRNO . URTMSG . SF IMSG 



I ISSUE URITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
lURITE CHARACTERISTISC FAILED 

TRAP 
.UORO 
.UORD 
.UORO 

J LOOP IF SELECTED 

TRAP 



C$ERHRO 

475 

URTMSG 

SFIMSG 

C$CLP1 



TSV7 
TEST 



HARDWARE 



4 : BASIC RE^^Ba^A^C FORWARD 



M12 



l-FEB-e4 17:54 



seo iss 



3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
3488 



3489 

3490 
3491 



3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3509 



042454 
042460 
042464 
042470 
042472 
042476 
042504 



042510 
042516 
042522 
042530 
042534 
042540 
042544 
042550 
042552 
042554 
042560 
042566 
042570 
042574 
042574 
042576 
042600 
042602 
042604 
042604 
042606 
042606 
042606 
042606 
042610 
042616 
042620 
042624 



012701 160000 

012702 177776 
004737 016276' 
103046 

010137 003130' 

013737 003130' 043762' 

005037 043764' 



MOV 
MOV 
JSR 
BCC 
MOV 
MOV 
CLR 



«160000,R1 
♦177776. R2 
PC.XNXM 
80$ 

Rl.NXMLO 

NXML0.T24RB 

T24RB*2 



iNXM LOW ADDRESS START 

iLIMIT CHECK FOR NXM (HIGHEST) 

(LOOK FOR NXM ADDRESS 

I BR. IF NON FOUND 

I SET ADDRESS UP FOR TEST 

I SET TO NXM MEMORY ADDRESS 

(SET TO 16 BITS ADDRESSING 



READ. ACK. CVC-1. COMMAND 



140001 


043760' 301: 


MOV 


«140001 . T24PK3 


tREAO. ACK. CVC-1. COMMAND 


043760' 




MOV 


♦T24PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 


000400 


043766' 


MOV 


*2S6. .T24SZ 


iSET UP RECORD SIZE IN PACKET 


000000 




MOV 


R4.TS06(R5) 


(ISSUE COrtlANO 


016150' 




JSR 


PC.UAITF 


iWAIT FOR SSRiBITl!BIT2 TO SET 


000002 




MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 


104210 




MOV 


♦SSR!SC}NXM!BIT3.R2 


iSET UP EXPECTED 






CMP 


R1.R2 


tARE THEY EQUAL 






BEQ 


751 


iBRf IF OK 


043764' 




INC 


T24RB*2 


iBUMP TO NEXT ADDRESSING RANGE 


043764' 


000004 


CMP 


T24RB*2.*4 


1 CHECK FOR OVERFLOW 






BNE 


30 1 


iBR. IF STILL IN 16-18 BIT RANGE 


002212' 




INC 


FATFLG 


iBUHP COUNT 






ERRHRD 


ERRNO, T24NXn.PKrSSR 


iTSSR INCORRECT AFTER READ DATA 



020102 
001414 



001350 



104456 
000734 
044221' 
011746' 

104406 



104403 

023727 002212' 000017 
103402 

004757 017104' 



75«! 
601: 



CKLOOP 
ENOSUB 



CMP 
BLO 
JSR 



iLOOP IF SELECTED 



TRAP 
.UORO 
WORD 
.UORO 

TRAP 



C«ER>«0 
476 
T24NXn 
PKTSSR 

C»CLP1 



FATFLG. #15. 
999$ 

PC.CKDROP 



9991: 
!tEST 4. SUBTEST 13 

I VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE 

iTAPE IS AT 60T RESULTS IN FUNCTION REJECT TERMINATION 

lUITH TKE NONEXECUTABLE FUNCTION CNEF) ERROR BIT SET 

i 

t 

i 

I- 



{>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10066: 

TRAP OESUB 
tIS ERROR COUNT AT 25 
:BR. IF LESS THAN 25 
tTRY TO DROP THE UNIT 



042624 
042624 



BGNSUB 



;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T4.13: 



Ni2 



TSV7 - HARDWARE TESTS 1-8 MACRO M1113 Ol-FEB-64 17:54 

TEST 4: BASIC READ DATA (FQRUARD AND REVERSE) 



SEQ 156 



3510 
3511 
3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3526 
3527 



3528 
SS29 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3544 
3545 



3546 

3547 
3548 
3549 
3550 
3551 
3552 
3553 
3554 
3SSS 
3556 
3557 
3558 
3562 



042624 
042626 
042632 
042636 



042642 
042646 
042650 
042654 
042656 
042656 
042660 
042662 
042664 
042666 
042666 
042674 



042700 
042704 
042706 
042712 
042714 
042714 
042716 
042720 
042722 
042724 
042724 



042726 
042732 
042736 
042740 
042742 
042746 
042746 
042750 
042752 



104402 

004737 046454' 

004737 046320' 

004737 046412' 



JSR 
JSR 
JSR 



PC.T24RT3 

PC.T24REST 

PC.T24RT2 



TRAP 

I SET COMMAND PACKET UP CLEAR 

I SET COnriANO PACKET 

I SET UP OTHER COMMAND PACKET 



CtBSUB 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 015674* 
103407 

005237 002212' 
010001 

104455 

000735 

003642' 

011734' 

013737 002172' 043650' 
012704 043630' 



20t: 



JSR PC.SOFINIT 

BCS 201 

INC FATFLG 

NOV RO.Rl 

ERROF ERRNO . SFIERR . SFIMSG 



NOV UNITN.T24DSU 
NOV •T24PACKET.R4 



»D0 INITIALIZE ON CONTROLLER 
I BR IF INIT WAS OK 
I BUMP COUNT 

TSSR REGISTER 
TSSR WAS NOT OK 
TRAP 
.WORD 
.WORD 
.WORD 



•CONTENTS OF 
tFATAL ERROR 



CIERDF 
477 

SFIERR 
SFIMSG 



I SET UP DRIVE NUMBER 

t SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 

000736 

005046' 

011734' 

104406 



24»: 



JSR 
BCS 
INC 
MOV 

ERRHRD 



CKLOOP 



PC. WRTCHR 
24 1 

FATFLG 
RO.Rl 

ERRNO. WRTMSG . SFIMSG 



s ISSUE WRITE CHARACTERISTICS 
tBR. IF COMMAND ISSUED OK 
J BUMP COUNT 

I SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
WORD 

{LOOP IF SELECTED 

TRAP 



C«ERHRD 
478 

WRTMSG 
SFIMSG 

C»CLPl 



ISSUE REMIND COMMAND TO SELECTED TAPE DRIVE 



004737 010714' 
004737 016236' 
103407 
010001 

005237 002212' 

104456 

000737 
045116' 



JSR PC. REWIND 

JSR PC.CHKTSSR 

BCS sot 

MOV RO.Rl 

INC FATFLG 

ERRHRD ERRNO . T24RWN . PKTSSR 



tCALL TAPE REWIND COMMAND 
tSEE HOW TSSR IS 
I BR. IF NO PROBLEM 
I SAVE TSSR 
tBUMP COUNT 
t REMIND NOT ACCEPTED 



TRAP 
.WORD 
.WORD 



C$ERHRD 

479 

T24RWN 



B13 



TSV7 HARDWARE TESTS I S nACRO rilllS 01 TEB 84 17:54 

TEST 4: BASIC READ DATA (FQRUARD AND REVERSE) 



SEO 157 



042754 


011746' 












.WORD 


PKTSSR 


SS6S 042756 








sot: 


CKLOOP 




iLOOP IF SELECTED 




042756 


104406 












TRAP 


CICLPI 


3564 042760 


012705 


000400 






NOV 


♦256..A5 


1 RECORD SIZE 




3565 042764 


015757 


005114* 


043762* 




HOV 


FREE , T24RB 


1 STARTING WRITE BUFFER ADDRESS 




3566 


















3567 


















3568 








1 










3569 








iREAO 


REVERSE DATA.ACK COmANO 






3570 








1 










3571 


















3572 


















5575 042772 


012757 


100401 


045760' 




HOV 


•100401 . T24PK5 


iREAD REVERSE DATA.ACK COHHANO 




3574 045000 


012704 


045760' 






HOV 


•T24PK5,R4 


iSET UP R4 WITH PACKET ADDRESS 




5575 045004 








651: 










5576 045004 


010557 


045766' 






HOV 


R5.T24SZ 


iSET UP RECORD SIZE IN PACKET 




5577 045010 


010465 


000000 






HOV 


R4.TS0e(R5) 


1 ISSUE COHHAND 




5578 045014 


004757 


016150* 






JSR 


PC.UAITF 


iWAIT FOR SSR TO SET 




5579 045020 


016S01 


000002 






HOV 


TSSR(RS).R1 


iGET TSSR CONTENTS 




5580 043024 


012702 


100206 






HOV 


#SSRISCiBITlfBIT2.R2 


iSET UP EXPECTED 




5581 045050 


020102 








CHP 


RI.R2 


lARE THEY EQUAL 




5582 045052 


001406 








BEQ 


751 


iBR. IF OK 




5585 045054 


005257 


002212* 






INC^ 


FATFLC 


iBUrV COUNT 




5587 045040 










EfMHM) 


EfMN0.T24U0E.PKTSSR 


iTSSR INCORRECT AFTER READ DATA 




045040 


104456 












TRAP 


CtERHRO 


045042 


000740 












.yQRO 


480 


045044 


044561' 












.WORD 


T24U0E 


045046 


011746' 












.UORD 


PKTSSR 


5588 043050 








751 1 


CKLOOP 




iLOOP IF SFLECTED 




045050 


104406 












TRAP 


CICLPI 



5589 
5590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
5596 
3599 
3600 
3601 
5605 



3606 
5607 



3608 
3609 
3610 
5611 



READ MESSAGE aUTFEfl EXTENOEO STATUS REGISTER ZERO (XSTO) 



045052 
043056 
043060 
043064 
043066 
043070 
045074 
045074 
045076 
045100 
043102 
043104 
043104 
045106 
043106 
043106 
045110 
045116 
045120 
045124 



013701 045660' 
010102 

052702 002000 

020102 

001406 

005237 002212' 

104456 
000741 
044010' 
015574* 

104406 



104405 

025727 002212' 000017 
105402 

004757 017104' 



160t: 



HOV 
HOV 
BIS 
CHP 
BEQ 
INC 

ERRHRO 



CKLOOP 
ENDSU6 



T24BFR*6.R1 

R1.R2 

•BITI0.R2 

R1.R2 

1801 

FATFLC 

ERRN0.T24NEF,EXPREC 



999»: 



CHP 
BLO 
JSR 



FATFLC, #15. 
9991 

PC.CKDROP 



I GET rCSSAGE BUFFER 

tSET UP EXPECTED 

iSET THE NEF BIT IN EXPECTED 

I ARE THEY EQUAL 

iBR. IF EQUAL (ALL IS UELL) 

tBUHP COUNT 

iTHE RLL BIT MAS NOT SET IN XSTO 

TRAP CIER»«0 
.WORD 481 
.WORD T24NEF 
.WORD EXPREC 

TRAP CJCLPl 
!«>'»>>>>>>>>> END SUBTEST >>»»>>>>>>■»» 
L10067: 

TRAP C»ES(.e 
lis ERROR COUNT AT 25 
I BR. IF LESS THAN 25 
J TRY TO DROP THE UNIT 



TSv; 

TEST 



CIS 



I ree 84 17:54 



SEQ 156 



3612 
5615 
5614 
3615 
3616 
3617 
3616 
361<) 
3620 
3621 
3622 
3625 
3624 
3625 



3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3642 
3643 



3644 
3645 
3646 
3647 
3646 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3660 
3661 



3662 
3663 



043124 
043124 
043124 
043126 
043132 
043136 



043142 
043146 
04S1SO 
04S1S4 
043156 
043156 
043160 
043162 
043164 
043166 
043166 
043174 



043200 
043204 
043206 
043212 
043214 
043214 
043216 
043220 
043222 
043224 
043224 



TEST 4. SUBTEST 14 

VERIFIES THAT A READ REVERSE COTtlANO ISSUED UHlLE THE 
TAPE IS POSITIONED BEFORE THE FIRST RECORD ON TAPE 
(BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT. 



104402 

004737 046454* 

004737 046320* 

004737 046412' 



BGNSUB 



JSR PC.T24RTS 
JSR PC.T24REST 
JSR PC.T24RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T4.14: 

TRAP CtBSUB 
tSET COHHANO PACKET UP CLEAR 
tSET COMHANO PACKET 
I SET UP OTHER COnnANO PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE • CARRY BIT CLEAR IF ERROR 



004737 015674' 
103407 

005237 002212' 
010001 

104455 
000742 
003642' 
011734' 

013737 002172' 043650' 
012704 043630* 



201: 



JSR PC.SOFINIT 

BCS 201 

INC FATFLG 

NOV RO.Rl 

ERROF ERRNO.SFIERR.SFIMSG 



NOV UNITN.T240SM 
NOV «T24PACKET,R4 



tOO INITIALIZE ON CONTROLLER 
I BR IF INIT UAS OK 
I BUMP COUNT 

•CONTENTS OF TSSR REGISTER 
t FATAL ERROR TSSR WAS NOT OK 

TRAP 
.UORO 
.WORD 
.UORO 



CIEROF 
482 

SFIERR 
SFINSG 



I SET UP DRIVE NUI«ER 

I SUBROUTINE »CEOS PACKET ADDRESS 



URITE CHARACTERISTICS COHNAND (CALL TO URTCHR) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 
000743 
005046' 
011734* 

104406 



24>: 



JSR 
BCS 
INC 
NOV 

ERRHRO 



CKLOOP 



PC. URTCHR 
241 

FATFLG 
RO.Rl 

ERRNO.URTNSG. SFINSG 



tissue URITE CHARACTERISTICS 
iBR. IF COHNAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
lURITE CHARACTERISTISC FAILED 

TRAP 
.UORO 
.UORO 
.UORO 

ILOOP IF SELECTED 

TRAP 



C»ERHRO 
48? 

URTHSG 
SFIMSG 

CICLPl 



TSV7 HAROUARE TESTS I 8 MACRO H1115 01*rEB-84 I7i54 

TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



D13 



SEQ 159 



5664 
S66S 
S666 
3667 
S668 
S669 
5670 
5671 
5672 
5675 
5674 
5678 



5679 

5680 
5681 
3662 
3683 
3664 
3665 
3666 
3667 

3689 
3690 
3691 
3692 
5695 
5694 
3695 
5696 
3697 
3698 
5699 
5703 



3704 

3705 
5706 
5707 
5708 
3709 
3710 
5711 
5712 
5715 
5714 
5715 
5716 



045226 
045232 
043256 
043240 
045242 
045246 
045246 
045250 
043252 
043254 
04325*. 
043256 
043260 
043264 



043272 
043300 
043304 
043304 
043310 
043314 
045320 
043324 
043550 
045532 
043534 
043340 
043340 
043342 
043344 
043346 
043550 
045550 
045552 
04S3S6 



045564 
045372 
045576 



I ISSUE REWIND COTttlANO TO SELECTED TAPE DRIVE 



004757 010714* 
004757 016256' 
105407 
010001 

005237 002212' 

104456 
000744 
045116' 
011746' 

104406 

012703 000400 

013737 003114* 043762* 



30t: 



JSR 
JSR 
BCS 
MOV 
INC 

ERRHRO 



CKLOOP 



PC. REWIND 

PC.CHKTSSR 

301 

RO.Rl 

FATFLG 

ERRNO . T24RWN . PKTSSR 



MOV 
MOV 



*2S6..R3 
FREE.T24R8 



iCALL TAPE REWIND COMMAND 

I SEE MOW TSSR IS 

iBR. ir NO PROSLEM 

tSAVE TSSR 

iBUMP COUNT 

iREUIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 

iRECORD SIZE 

I STARTING WRITE BUFFER ADDRESS 



CtERHRO 
484 

T24RWN 
PKTSSR 

CIClPI 



iWRITE OATA.ACK.CVC*! COMMAND 



012737 140005 043760' 

012704 043760' 

010337 043766' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 
020102 
001406 

0052S7 002212* 

104456 

000745 

005105* 

011746' 

104406 

012705 000400 
013737 003114' 043762' 



65t: 



751 i 



MOV 


•140005. T24PK3 


t WRITE DATA.ACK.CVC-1 


COftlAND 




MOV 


•T24PKS.R4 


iSET UP R4 WITH PACKET 


ADDRESS 




MOV 


R3.T24SZ 


iSET UP RECORD SIZE IN 


1 PACKET 




MOV 


R4.TS0B(RS) 


1 ISSUE COmAND 






JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 






MOV 


TSSR(R5).Rl 


iGET TSSR CONTENTS 






MOV 


•SSR.R2 


iSET UP EXPECTED 






CMP 


R1.R2 


•ARE T»CY EOUAL 






BEQ 


751 


iBR. IF OK 






INC 


FATFLG 


iBUMP COUNT 






ERRHRO 


ERRNO. URTERR. PKTSSR 


iTSSR INCORRECT AFTER 


READ DATA 










TRAP 


CtERHRO 








.WORD 


485 








.WORD 


URTERR 








.WORD 


PKTSSR 


CKLOOP 




iLOOP IF SELECTED 












TRAP 


CICLPl 


MOV 


•256. .R3 


{RECORD SIZE 






MOV 


FREE.T24RB 


{STARTING READ BUFFER 


ADDRESS 





{READ REVERSE DATA.ACK COMMAND 



012757 100401 043760' MOV 
012704 045760' 1651: MOV 

010557 045766' MOV 



•100401 . T24PK5 

•T24PK5.R4 

R3.T24SZ 



{READ REVERSE DATA.ACK COMMAND 
{SET UP R4 WITH PACKET ADDRESS 
I SET UP RECORD SIZE IN PACKET 



Eli 

rsV7 • HARDWARE TESTS 1-8 HACRO mil3 Ol-FEB-84 17:54 SEQ 160 

TEST 4: BASIC READ DATA CFQRWARD AND REVERSE) 



3717 


043402 


010465 


000000 




MOV 


R4.TS0B(R5) 


1 ISSUE COMMAND 




3718 


043406 


004737 


016150' 




JSR 


PC.UAITF 


lUAIT FOR SSR TO SET 




3719 


043412 


016501 


000002 




MOV 


TSSRCR5),R1 


iGET TSSR CONTENTS 




3720 


043416 


012702 


000200 




MOV 


♦SSR,R2 


1 SET UP EXPECTED 




3721 


043422 


020102 






CMP 


R1,R2 


lARE THEY EQUAL 




3722 


043424 


001406 






BEQ 


1701 


iBR, IF OK 




3723 


043426 


005237 


002212' 




INC 


FATFLG 


iBUMP COMT 




3727 


043432 








ERRHRD 


ERRNO • T24 TRL , PK TSSR 


iTSSR INCORRECT AFTER READ DATA 






043432 


104456 










TRAP 


CIERHRD 




043434 


000746 










.WORD 


486 




043436 


046164' 










.WORD 


T24TRL 




043440 


011746' 










.WORD 


PKTSSR 


3728 


043442 






1701: 


CKLOOP 




• fl fiat 

iLOOP IF SELECTED 






043442 


104406 










TRAP 


CICLPl 


3729 


043444 


012703 


000400 




MOV 


♦256. ,R3 


{RECORD SIZE 




3730 


043450 


013737 


003114' 


043762' 


MOV 


FREE.T24RB 


1 STARTING READ BUFFER ADDRESS 




3731 


















3732 


















3733 


















3734 








iREAO REVERSE DATA.ACK COHhANO 






3735 








t 










3736 


















3737 


















3738 


043456 


012737 


100401 


043760' 


MOV 


♦100401 . T24PK3 


iREAO REVERSE DATA«AC'< COMMAND 




3739 


043464 


012704 


043760' 


195$: 


MOV 


♦T24PK3,R4 


iSET UP R4 WITH PACKET ADDRESS 




3740 


043470 


010337 


043766' 




MOV 


R3,T24SZ 


iSET UP RECORD SIZE IN PACKET 




3741 


043474 


010465 


000000 




MOV 


R4,TSDB(R5) 


(ISSUE COMMAND 




3742 


043500 


004737 


016150' 




JSR 


PC.WAITF 


lUAIT FOR SSR TO SET 




3743 


043504 


016501 


000002 




MQV 


TSSR(R5).R1 


iGET TSSR CONTENTS 




3744 


043510 


012702 


100204 




Mnu 
nuv 


V9 : 9U* • D Jl 1 c fl 


J SET UP EXPECTED 




3745 


043514 


020102 






CMP 


R1.R2 


»ARE THEY EQUAL 




3746 


043516 


001406 






BEQ 


200t 


iBR, IF OK 




3747 


043520 


005237 


002212' 




INC 


FATFLC 


iBUMP COUNT 




3751 


043524 








ERRHRD 


ERRNO. T24TRL,PKTSSR 


8 TSSR INCORRECT AFTER RtAO DATA 






043524 


104456 










TRAP 


CtERHRD 




043526 


000747 










.UORD 


487 




043530 


046164' 










• WORD 


T24TRL 




043532 


011746' 










.UORD 


PKTSSR 


3752 


043534 






2001: 


CKLOOP 




iLOOP IF SELECTED 






043534 


104406 










TRAP 


ctapi 


3753 


043536 


013701 


043666' 




nov 


T248FR»14.RI 


cGET MESSAGE BUFFER (XST3) 




3754 


043542 


010102 






MOV 


RI.R2 


:SET UP EXPECTED 




3755 


043544 


052702 


000001 




BIS 


•BIT0.R2 


iSET THE RIB BIT IN EXPECTED 




3756 


043550 


020102 






CMP 


R1.R2 


lARE THEY EQUAL 




3757 


043552 


001406 






BEQ 


210* 


tBR* IF EQUAL CAlL IS UELL) 




3758 


043554 


005237 


002212' 




INC 


FATFLG 


J BUMP COUNT 




3762 


043560 








ERRHRD 


ERRNO . T24L0R . EXPREC 


iTHE RIB BIT WAS NOT SET IN XSTO 




043560 


104456 








TRAP 


CSER»«D 




043562 


000750 










.WORD 


488 
















.WORD 


T24L0R 




043566 


015374' 










.WORD 


EXPREC 


3763 


043570 






2101; 


CKLOOP 










043570 


104406 










TRAP 


CICLPl 


3764 


043572 








ENDSUB 




!>>>>>>>>>>>> END SUBTEST >*>>>>>>>>*> 




043572 












L10070: 






043572 


104403 










TRAP 


CIESUB 


3765 


043574 


023727 


002212' 


000017 


CMP 


rATFLG,#l5. 


tIS ERROR COUNT AT 25 





TSV7 
TEST 



HARDWARE TESTS I 8 MAQR 
4: BASIC READ DATA (FORWARD 



Sn8 r^v^^seS 



Fi3 



1 FEB 84 17:54 



3766 


043602 


103402 




BLO 


9991 


3767 


043604 


004737 017104' 




ton 

JSR 


PC • CKDhOP 


3768 


043610 










3769 






• 






3770 






i 






3771 






t 






57 72 


043610 


004 737 01o3o0 






or TCTi nno 


3773 


043614 


103002 




oCC 


1631 


3774 


043616 


000137 034312 




jnp 


T^AI AAO 

T24L00H 


3775 


043622 




1d3» ; 






3776 


043622 
043622 

/VA 

043624 


104432 
002660 






TCT 


5777 












Of 78 












37 






i LOCAL 


STORAGE 


rno TuTC TccT 
P'ON Tni5 Tc5l 


3780 






i - 






3 f 82 


O43o^ 






.BLKB 




3 f 84 


043630 




T24PACKET: 




3 f 8D 


/Va 

043o30 


100204 




.UORO 


10020* 


3 78o 


O43o32 


043o40 




.UORO 


1 24UM 1 M 


*> '7 A '7 

3 78 7 


043634 


oooooo 




.UORO 


O 


3788 


043636 


000012 




.UORO 


1 A 

lO. 


3789 


043640 




T240ATA: 




3790 


043640 


043652 




.UORO 


T24BFR 


3791 


043642 


OOOOOO 




.UORO 


0 


3792 


043644 


000024 




.UORO 


20. 


3793 


043646 


OOOOOO 




.UORO 


0 


3794 


043650 


OOOOOO 


T240SU: 


.UORO 


0 


3795 043652 




T24BFR: 


.BLKU 


25. 


3796 












3797 






1 WRITE 


SUBSYSTEM hEHORY CQMriAl 


3798 






t 






3800 


043734 






.BLKB 


10-<.-TSV267> 


3802 


043740 




T24PK2: 






3803 


043740 


100206 




.UORO 


100206 


3804 


043742 


043770 




.UORO 


T24BF2 


3805 


043744 


AAAAAA 

OOOOOO 




.UORO 


0 


3806 


043746 


AAAAAA 

OOOOOo 




.UORO 


6. 


3607 












3809 


043750 






.BLKB 


10-<.-TSV2fi7> 


3811 


043760 




T24PK3: 






3812 


043760 


1 AA'^AC 

10O2O5 




.UORO 


100205 


3813 


043762 




T24R8: 






3814 


043762 


003114 


T24UB: 


.UORO 


FREE 


3615 


043764 


AAA/V\A 

uuoouu 




.UORO 


0 


3816 


043766 


OOOOOO 


T24SZ: 


.UORO 


0 


3617 








.EVEN 




3616 






t 






3619 






t 






3620 












3621 


043770 




T24BF2: 






3622 


043770 


010 


T24BS0: 


.BYTE 


10 


3823 


043771 


200 


T24BS1: 


.BYTE 


200 


3624 


043772 


OOOOOO 


T24S2: 


.UORO 


0 


3625 


043774 


OOOOOO 


r24SS: 


.UORO 


0 


3826 






i 







SEQ 161 



tBR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



I DO UE NEED TO ITERATE TEST 
I BR. ir NO LOOP REQUIRED 
(EXECUTE AGAIN 

I ALL OONE THIS TEST 

TRAP C»EXIT 
.UORO L10052 



tCOrtlANO PACKET FOR TEST 

lURITE CHARACTERISTICS COmANO. UITH IE. ACK 
lAOORESS or CHARACTERISTICS BLOCK 

I STARTING VALUE OF BLOCK SIZE 
I CHARACTERISTICS DATA BLOCK 
lAOORESS OF HtSSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 

tORlVE SELECTION BITS 20 
t MESSAGE BUFFER 



lURITE SUB SYS HEH COWAND. IE AND ACK 
lAOORESS OF SELECT BLOCK liMTA 

I SIZE OF DATA PACKET 

iREAO COHHAND. IE AND ACK 
lAOORESS OF URITE BUFFER 
iSIZE OF BUFFER (EXTENT) 



iBSELO AREA 
iBSELl AREA 
iSEL 2 AREA 
iOATA AREA 



TSV7 
TEST 



HARDWARE TESTS 1 8 MACRO Hlllj 01 -FEB -84 

«: BASIC READ OATA (TORUARD AND REVERSE) 



Gi3 



17:54 



SEQ 162 



3827 
3828 
3829 
3830 
3831 
3832 
3833 
3834 
3835 
3836 
5837 
3858 
5859 
5840 
5841 
3842 
5845 
5844 
5845 
5846 
3847 
3846 
3649 
5650 
5651 
3852 
5655 
3854 
5655 
5656 
5657 
5656 
5659 
5660 
5661 
3862 
3665 
5664 
5665 

5667 
3660 
5669 
5870 
5671 
5672 
5673 
5674 
5675 
5676 
5677 
5676 
5879 
5660 
3661 
5862 
3883 



043776 
044000 
044002 
044004 
044006 



044010 
044062 
044152 
044221 
044505 
044562 



044527 
044561 
044655 
044700 
044766 
045045 
045116 
045165 
045240 
04S505 
045360 
045446 
045517 
045572 
045645 
045752 
046014 
046076 
046164 
046252 



046520 
046520 
046324 
046530 
046554 
046340 
046342 



.EVEN 

I TAPE HOTION PACKET COMMAND VALUES 



100005 
100405 
102005 
177777 
000000 



T24RN: .UORD 
T24U0R: .WORD 
T24C0N: .WORD 
.WORD 
T240LY: .WORD 



100005 
100405 
102005 

177777 
0 



iREAO DATA (NEXT) 
iREAO OATA R|;TRY 
lURITC CONTINOUS 
I END OF DATA 
I DELAY STORAGE AREA 



I LOCAL TEXT MESSAGES FOR TEST 



t - 



116 


105 


106 


T24NEFi 


.ASCIZ 


122 


111 


102 


T24L0R: 


.ASCIZ 


124 


123 


125 


T24U0GI 


.ASCIZ 


124 


125 


125 


T24NXnt 


.ASCIZ 


124 


125 


123 


T24U0r: 


.ASCIZ 


111 


154 


154 


T24ILA: 


.ASCIZ 


111 


154 


154 


T24L0Q: 


.ASCIZ 


122 


105 


101 


T24SSR: 


.ASCIZ 


124 


125 


123 


T24U0Et 


.ASCIZ 


124 


141 


160 


T24B0Ti 


.ASCIZ 


104 


141 


164 


T240TAt 


.ASCIZ 


122 


105 


101 


T24C0T: 


.ASCIZ 


124 


125 


123 


T24TH: 


.ASCIZ 


122 


145 


167 


T24mMt 


.ASCIZ 


122 


101 


115 


T24RNCt 


.ASCIZ 


124 


123 


123 


T24AnS: 


.ASCIZ 


104 


162 


151 


T240FLJ 


.ASCIZ 


124 


123 


123 


T24U0O: 


.ASCIZ 


124 


125 


125 


T24U0C: 


.ASCIZ 


lOS 


126 


103 


T24VCKi 


.ASCIZ 


124 


123 


102 


T248At 


.ASCIZ 


127 


122 


111 


T24USS: 


.ASCIZ 


122 


145 


141 


T24L0Nt 


.ASCIZ 


122 


145 


141 


T24L0P: 


.ASCIZ 


122 


145 


163 


T24PeP: 


.ASCIZ 


122 


145 


141 


T24TRLi 


.ASCIZ 


102 


141 


165 


TST24I0t 



.EVEN 



NEF Net S«t Aft«r N0N-EXECUTA8LE FUNCTION' 

RIB Net Set After READ REVERSE Into SOT' 

TSSR Net Cerreet After Illeoel Buffer Addreee BSte Set- 
'TSSR Net Cerreet After NXH Heiiiery Addreee In Peekef 
•TSSR Net Cerreet After Illegel Medc Bite Set' 
'Illegel Addre e e BSte. FeSletf To Set ILA Bit In XSTO' 
'Illegal Nede Bite. Feiled Te Set ILC Bit In XSTO' 
'READ COHNANO Net Accepted' 
' TSSR Net Cerreet After WRITE OATA CoMMWtd' 
'Tape Net At BOT After REUIND CeanMntf' 
'Date Written Te Tepe Net Equal Te Data Read Frei* Tepe' 
'READ OATA OVER EOT GAVE NO TAPE STATUS ALERT' 
'TSSR Net Cerreet After READ COTtlAND Reject* 
'ReMind (POSITION) Co— i^d Net Accepted' 
'RAM Error, Correct Data Pettem Net In Ran' 
'TSSR Init. Foiled After READ COmAND* 
'Drive 7 Select Foiled To Set "OFL" In TSSR' 
•TSSR Net Correct After READ DATA Cowwand. SUB Bit Set' 
'TSSR Net Correct After READ DATA Co—and' 
•CVC Set. DSdn"t Reeet VCK In Heoeage Buffer' 
'TSBA Net Correct After READ DATA Co— nd' 
'WRITE SUBSYSTEM MEMORY CooMond Net Accepted (RAM Read)' 
'Readino Leno Record Foiled To Set RLL Bit In XSTO' 
'Reodino Long Record Foiled To Set RLS Bit In XSTO' 
' Roe i dual Byte Count Incorrect After Short Recoro Read' 
'Readino Long Record Foiled To Give Tape Statue Alert 
.ASCIZ 'BeeTc Read Date (Forttard and Reverse)' 



i ♦ 

'{ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

i WRITE SUBSYSTEM MEMORY COMMAND 

I 

t - 

T24REST: 



012701 
012721 
012721 
005021 
012721 



043630' 

100004 

043640' 

000012 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 



#T24PACKET.R1 
4100004. (RD* 
«T240ATA.(R1)* 
(Rl)» 

410.. (RD* 



I SAVE THE REGISTERS 
I START OF THE PACKET 
•WRITE SUBSYSTEM MEM. WITH ACK. 
t ADDRESS OF CHARAISTICS DATA BLOCK 
I EXTENDED ADDRESS 
(SIZE OF OATA BLOCK IN 6l TES 



TSV7 
TEST 



HAROUARE TESTS 18 ^ MACC !JiU3^,Qi-f^E8-64 17:54 
•: BASIC READ DATA (FORWARD AND REVERSE) 



H13 



3664 

3665 
3666 
3667 
3666 
3889 
3890 
3891 
3892 
3893 
3694 
3695 
3696 
3697 
3696 
3699 
3900 
3901 
3902 
3903 
3904 
3905 
3906 
3907 
3906 
3909 
3910 
3911 
3912 
3913 
3914 
3915 
3916 
3917 



3916 
3919 
3920 
3921 
392? 
3923 
3924 
3925 
3926 
3927 
3926 
3929 
5930 
3931 
5932 
3933 
3934 
3935 
3936 
3937 
3936 



046346 

046352 
046354 
046360 
046362 
046366 
046372 
046400 
046402 
046406 
046410 



046412 
046412 
046416 
046422 
046426 
046432 
046434 
046440 
046442 
046446 
046450 
046452 
046454 
046454 
046460 
046464 
046470 
046474 
046476 
046502 
046504 
046504 
046504 



012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
022702 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
012721 
012721 
005021 
012711 
000207 



104401 



043652' 
000024 

000000 
000030 

177777 043652* 64*: 
000000 



FEB -64 


17:54 




MOV 


•T24BFR.(R1)* 


1 ADDRESS OF MESSAGE BUFFER 


CLR 


(Rl)» 




MOV 


•20. .(RD* 


1 LENGTH OF MESSAGE BUFFER 


CLR 


(Rl)» 




MOV 


•O.(Rl) 


(SELECT DRIVE ZERO 


MOV 


♦24.. R2 


•NUMBER OF LOCATIONS TO BE CLEARED 


MOV 


♦177777, T24BFR(R2) 


lALL ONES TO MESSAGE BUFFER 


TST 


-CR2) 


(NEXT LOCATION 


CMP 


«0.R2 


iCKECK FOR END OF LOOP 


BNE 


64» 


iKEEP GOING UNTIL DONE 


RTS 


PC 


t RE TURN 



SEQ 163 



T24RT2: 





SAVREG 




043740* 


MOV 


♦T24PK2.R1 


100206 


MOV 


♦100206. CRD* 


043770' 


MOV 


♦T24BF2,(R1)» 




CLR 


(Rl)» 


000006 


MOV 


«6..(R1)* 




CLR 


(Rl)» 


043770* 


MOV 


•T24BF2.R1 




CLR 


CR1)» 




CLR 


(Rl) 




RTS 


PC 




T24RT3: 






SAVREG 




043760' 


MOV 


♦T24PK3.R1 


000000 


MOV 


•O.(Rl)* 


000000 


MOV 


•0.(R1)« 


CLR 


(Rl)» 


000000 


MOV 


«0.(R1) 




RTS 


PC 




ENDTST 





tSAVE THE REGISTERS 

{START OF THE PACKET 

lURITE SUBSYSTEM MEM. UITH ACK. IE 

I ADDRESS OF DATA BLOCK 

lEXTENOED ADDRESS 

tSIZE OF DATA BLOCK IN BYTES 

iPOINT TO DATA SEL AREA 



iRETURN 

tSAVE THE REGISTERS 

t START OF THE PACKET 

t CLEAR AREA OUT 

I ADDRESS OF DATA BLOCK 

(EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 

{RETURN 



L10052: 



TRAP 



C»ETST 



.SBTTL TEST 5: SPACE RECORDS 



t 
t 
I 
S 
I 
t 
t 
t 
I 
I 
I 



THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 
RECORDS REVERSE POSITION COrtMNDS OPERATE PROPERLY WHEN SPACING 
OVER NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS 
IS VERIFIED IN A SUBSEQUENT TEST. THE BASIC WRITE DATA TEST 
SHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFW. 
RESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH 
OF THE SUBTESTS. THE TAPE IS ENTIRELY WRITTEN WITH RECORDS 
OF VARYING SIZES AND DATA CONTENT i THE FIRST 4 BYTES OF EACH 
RECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TAPE, AFTER 
EACH SPACING OPERATION. THE TAPE POSITION IS VERIFIED BY READING 
THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH 
THE EXPECTED RESULT. 



I THE TEST CONSISTS OF THE FOLLOWING 6 SUBTESTS 



113 



TSV7 HAROUARE TESTS 1-6 
TEST 5: SPACE RECORDS 



MACRO Mills 01 -FEB 84 17:54 



SEQ 164 



5939 
3940 
3941 

5942 
3947 
5948 
5949 
3950 
5951 
5952 
5955 
5954 
5955 
5956 
5957 
5958 
3959 
3960 
3961 
3962 
3965 
3964 



5965 
3966 
3967 
3968 
3969 
3970 
3971 
3972 
3973 
5974 
3975 
3976 



046506 
046506 
046506 
046514 
046520 
046524 
046530 



012757 
004757 
012700 
004737 
012737 



006256' 002170' 
017176' 
055250' 
016412' 

000005 002206' 



BGNTST 

MOV 
JSR 
MOV 
JSR 
MOV 



«EPRT2.EPRTSU 

PC.KTQFr 

♦TST25ID.R0 

PC.TSTSETUP 

•S.LOOPCNT 



T5:: 

I SECONDARY ERROR MESSAGE 
iDON' T NEED LOTS Of MEMORY 
I ASCII MESSAGE TO IDENTIFY TEST 
iDO INITIAL TEST SETUP 
{PERFORM 5 ITERATIONS 



I ♦ 

t 



I TEST 5. SUBTEST 1 



I 

! VERIFIES THAT A SPACE RECORDS FORWARD COMMAND WITH 

iTHE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF 

iTHE VOLUME CHECK (VCK) FLAG IS SET. 

I 

I 



046556 
046556 
046536 
046536 
046540 
046544 
046550 
046554 
046560 



T2SL00P: 



104402 
004737 
005037 
004757 
004757 
012737 



055246* 
054060' 
055540' 
055402* 

1767S0 054062* 



BGNSUB 



JSR 
CLR 
JSR 
JSR 
MOV 



PC.T2SREST 

T25CNT 

PC,T25«T2 

PC,T25RT3 

«6S000..T250LY 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T5.A: 

TRAP CIBSUB 

I SET CamAND PACKET 
I CLEAR THE RECORD COUNTER AREA 
tSET UP OTHER COrtMND PACKET 
I SET UP OTHER COTtlAND PACKET 
tSET UP LOOP COUNTER 



ISSUE CONTROLLER "SOFT" INITIALIZE • CARRY -JlJ CLEAR IF ERROR 



5977 046566 


004737 


015674* 


S«: JSR 


PC.SOFINIT 


lOO INITIALIZE ON CONTROLLER 




3978 046572 


103427 




BCS 


101 


iBR IF INIT MAS OK 




3979 046574 






DELAY 


250 


1 DELAY IF REQUIRED 




046574 


012727 


000250 






MOV 


♦250. (PC)* 


046600 


000000 








.WORD 


0 


046602 


015727 


002116' 






MOV 


L«DLY.<PC). 


046606 


000000 








.WORD 


0 


046610 


005367 


177772 






DEC 


6CPC) 


046614 


001375 








BNE 


. 4 


046616 


005367 


177756 






DEC 


-22( PC) 


046622 


001567 








BNE 


. 20 


3980 046624 


005337 


054062' 


DEC 


T250LY 


iDEC DELAY COUNTER 




3981 046630 


001SS6 




BNE 


5» 


jBR. IF LOOP IS REQUIRED 


3982 046652 


005237 


002212' 


INC 


FATFLG 


iBUMP COUNT 




5986 046656 


016501 


000002 


MOV 


TSSR(R5).R1 


1 CONTENTS OF TSSR REGISTER 




3987 046642 






ERRDF 


ERRNO . SF lERR . SF IMSG 


i FATAL ERROR TSSR WAS NOT OK 




046642 


104455 






TRAP 


C»ERDF 


046644 


000765 








.WORD 


501 


046646 


005642' 








.WORD 


SFIERR 


046650 


011734' 








.WORD 


SFIMSG 



Ji3 



TSV7 HAROUARE TESTS 1 8 
TEST 5: SPACE RECORDS 



MACRO M1115 01-FEB 84 17:54 



SEQ 165 



5988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4004 
4005 



400b 
4007 
4006 
4009 
4010 
4011 
4012 
4013 

4014 
4015 
4016 
4017 
4021 



4022 

4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 
4033 
4034 
4035 
4039 



046652 
046652 
046660 



046664 
046670 
046672 
046676 
046700 
046700 
046702 
046704 
046706 



046710 
046710 
046712 
046716 
046720 
046722 
046726 
046726 
046730 
046732 
046734 
046736 
046736 



046740 
046744 
046746 
046752 
046754 
046756 
046762 
046762 
046764 
046766 
046/70 



013737 002172' 053720' 
012704 053700' 



10«: 



MOV UNITN.T250SU 
MOV *T2SPACKET.R4 



I SET UP DRIVE NUMBER 

I SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 

000766 

005046- 

011734' 



JSR PC.URTCHR 

BCS 15 < 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO . URTMSG . SFIMSG 



I ISSUE URITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 
tBUMP COUNT 

I SAVE CONTENTS OF TSSR 
I URITE CHARACTERISTISC FAILED 

TRAP 
.UORO 
.WORD 
.yORO 



ISSUE REWIND COHHAND TO SELECTED TAPE DRIVE 



104406 

004737 010714' 
103407 

010001 

005237 002212* 

104456 
000767 
0SS03S' 
011746' 

104406 



151: 



30«i 



CKLOQP 

JSR 
BCS 
MOV 
INC^ 



CKLOOP 



PC. REWIND 

so« 

RO.Rl 
FATFLG 

ERRNO . T25RWN . PK TSSR 



TRAP 

I CALL TAPE REWIND COMMAND 

tW, IF NO PROBLEM 

I SAVE TSSR 

I BUMP COUNT 

I REWIND NOT ACCEPTED 

TRAP 

.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 



013701 053730' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 

000770 

054225' 

015374' 



MOV T2S8FR*6.R1 

MOV R1.R2 

BIS «eiTl.R2 

CMP Rl,R2 

BEQ 401 

INC FATFLG 

ERRHRD ERRNO . T25B0T , EXPREC 



iPICK UP XSTO 

I SET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

lOOES EXP - RECO 

iBR. IP EQUAL COK) 

iBUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 

.UORO 
.WORD 
.WORD 



C*ERHRO 
502 

URTMSG 
SFIMSG 



C»CLP1 



CfERHRO 
503 
T2SRUN 
PKTSSR 

C«CLP1 



CJERHRO 
504 

T25B0T 
EXPREC 



Ki6 



TSV7 ■ HAROUARt TESTS 1-8 
TEST 5: SPACE RECORDS 



MACRO M1115 Ol-rEB-84 17:54 



SEQ 166 



4040 

4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4068 



4069 

4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4091 



4092 



046772 
046772 
046774 
047000 



047122 
047126 
047130 
047134 
047136 
047140 
047144 
047144 
047146 
047150 
0471S2 
047154 



104406 

012703 000400 

013737 003114* 054032' 



401: 



CKLOOP 

MOV 
MOV 



«256. .R3 
FREE.T25RB 



I LOOP IF SELECTED 

TRAP 

I RECORD SIZE 

{STARTING URITE SUFFER ADDRESS 



C»CLPl 



URITE DATA.ACK.CVC-1 COMhAND 



047006 


012737 


140005 


054030' 




MOV 


047014 


012704 


054030* 






MOV 


047020 








651: 




047020 


010337 


054036* 






MOV 


047024 


013777 


054060' 


134062 




MOV 


047032 


062737 


000001 


054060* 




ADO 


047040 


010465 


000000 






MOV 


047044 


004737 


016150* 






JSR 


047050 


016501 


000002 






MOV 


047054 


012702 


000200 






MOV 


047060 


020102 








CMP 


047062 


001411 








BEQ 


047064 


032701 


000004 






BIT 


047070 


001014 








BNE 


047072 


005237 


002212* 






INC 


047076 










errhro 


047076 


104456 










047100 


000771 










047102 


005103' 










047104 


011746* 










047106 








7St: 


CKLOOP 


047106 


104406 










047110 


005203 








INC 


047112 


022703 


001000 






CMP 


047116 


001340 








BNE 


047120 


000415 








BR 


047122 








I20t: 





•140005. T2SPK3 
•T2SPK3.R4 

RS.T2SSZ 

T25CNT.iFREE 

•1.T25CNT 

R4.TS0e(R5) 

PC.UAITP 

TSSR(RS).R1 

«SSR.R2 

R1.R2 

751 

«eiT2.Rl 

1201 

FATFLG 

ERRNO.URTERR.PKTSSR 



lURITE OATA.ACK.CVC-1 COMMAND 
tSET UP R4 UITH PACKET ADDRESS 

tSET UP RECORD SIZE IN PACKET 

(LOAD UP RECORD COUNTER IN URT BUFFER 

{GET READY FOR NEXT RECORD 

t ISSUE COMMAND 

tUAIT FOR SSR TO SET 

I GET TSSR CONTENDS 

tSET UP EXPECTED 

{ARE THEY EQUAL 

tBR. IF OK 

t CHECK FOR TAPE STATUS ALERT 
tBR. IF TSA IS SET (SUSPECT IS EOT) 
tBU»» COUNT 

tTSSR INCORRECT AFTER WRITE DATA 



RS 

•5U..RS 

651 

1251 



TRAP 
.UORD 
.UORO 
.UORD 

iLOOP IF SELECTED 

TRAP 

tB^J^9 RECORD SIZE 

(END OF RECORD YET 

tBR. IF MORE RECORDS TO URITE 

{ENOUGH RECORDS 



CIERHRD 
SOS 
URTERR 
PKTSSR 

CfCLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 053730' 
010102 

0S2702 000001 

020102 

001406 

005237 002212' 

1044SS 

000772 

054361* 

01S374' 



MOV T2SeFR»6.Rl 

MOV R1.R2 

BIS •eiT0.R2 

CMP R1.R2 

BEQ 125t 

INC FATFLG 

ERROF ERRN0.T25NET.EXPREC 



1251: 



{QUICK CHECK FOR EOT SET 

(SET UP EXPECTED 

{SET THE EOT BIT XSTO 

{IS THE EOT BIT SET IN XSTO 

(BR. IF SET CGOOD) 

{BUMP COUNT 

{DEVICE FATAL NOT EOT FOUND ETC. 

TRAP C«EROF 
.UCRD 506 
.WORD T2SNET 
.WORD EXPREC 



I 13 



rSV7 HAROUARE TESTS 1-8 
TEST 5: SPACE RErjROS 



4093 
4094 
4095 
4096 
4097 
4093 
4099 
4100 
4101 
4102 
4105 
4107 



MACRO mil3 Ol-FEB-84 17:54 



SEQ 167 



I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



4108 

4109 
4110 
4111 
4112 
4113 
4114 
4115 
4116 
4117 
4118 
4119 
4120 
4124 
4125 



4126 

4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4141 



4142 
4143 



047154 
047160 
047162 
047164 
047170 
047170 
047172 
047174 
047176 
047200 
047200 
047202 
047210 



047214 
047220 
047222 
047226 
047230 
047230 
047232 
047234 
047236 
047240 
047240 
047242 
047246 

047250 
0472S6 
047264 
047270 
047274 
047300 
047302 
047304 
047310 
047310 
047312 
047314 
047316 
047320 
047320 
047322 



004737 010714' 

103407 

010001 

005237 002212* 

104456 

000773 

055035* 

011746* 

104406 

012737 000007 053720* 
012704 053700* 



1301: 



JSR 
BCS 
MOV 
INC 

ERRHRO 



CKLOOP 

MOV 
HOV 



PC. REWIND 
130* 
RO.Rl 
FATFLG 

ERRNO , T25RWN , PKTSSR 



•7.T2S0SU 
•T25PACKET.R4 



I CALL TAPE REWIND COMMAND 
I BR. IF NO PROBLEM 
I SAVE TSSR 
tBUMP COUNT 
I REWIND NOT ACCEPTED 

TRAP 
. WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 

tSET UP DRIVE NUMBER 
I SUBROUTINE NEEDS PACKET ADDRESS 



CIERHRO 
507 
T25RWN 
PKTSSR 

CICLPl 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 
000774 
005046' 
011734* 

104406 

005737 002216' 
001044 

112737 000200 054041' 
112737 000010 054040' 
012704 054010' 
010465 000000 
004737 016236' 
103407 
010001 

005237 002212' 

104456 

000775 

054064' 

011746' 

104406 

012737 000007 053720' 



140»: 



JSR 
BCS 
INC 

M OV ^ 



CKLOOP 
TST 



PC. WRTCHR 
1401 
FATFLG 
RO.Rl 

ERRNO.WRTMSG.SFIMSG 



M0V8 

H0V8 

MOV 

MOV 

JSR 

BCS 

MOV 

INC 

ERRHRO 



EXTFEA 
160* 

#200.T256S1 

nO.T256SO 

♦T2SPK2.R4 

M.TSOBCRS) 

PC.CHKTSSR 

ISOI 

RO.Rl 

FATFLG 

ERRNO. T2SSSR .PKTSSR 



t ISSUE WRITE CHARACTERISTICS 
iBR. IF CGHHAND ISSUED OK 
tBUMP COUNT 

I SAVE CONTENTS OF TSSR 
I WRITE CHARACTERISTISC FAILED 

TRAP 
.UORD 
. MORO 
.WORD 

tSCOPE LOOP 

TRAP 

tOCCK FOR EXTENDED FEATURES 
tBR IF SUITCH IS ON 



CtEIMRO 
508 
WRTMSG 
SFmSG 

CiCLPl 



lSO*t 



CKLOOP 

MOV «7.T2SDSW 



I WRITE MISCELLANEOUS CONT/REAO STATUS 

tFUNCTION SELECTION BIT (TURN ON EXTFEA HU SWITCH) 

t WRITE SUBSYS MEN PACKET 

1 ISSUE CQHNAND 

I WAIT FOR SSR 

iBR. IF NO ERROR 

I ERROR. SAVE TSSR 

tBUMP COUNT 

i tssr not correct after wrt. hiscellaneocis 

;rap c«erhrd 

.WORD 509 

.WORD T25SSR 

.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP CtCLPl 

t SET UP DRIVE NUMBER 



M13 



,V7 
ST 



HARDWARE TESTS 
5: SPACE RECORDS 



1-8 



HACRO HlllS 01 -FEB S4 17:54 



SEQ 168 



4144 
4145 
4146 
4147 
4148 
4149 
4150 
4151 
4152 
4153 
4154 
4158 
4159 



4160 

4161 
4162 
4163 
4164 
4166 



4169 

4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4160 
4161 
4162 
4163 
4184 
4185 
4166 
4190 



4191 
4192 



047330 012704 053700' 



HOV 



«T2SPACKET,R4 



I SUBROUTINE NEEDS PACKET ADDRESS 



047334 
047340 
047342 
047346 
047350 
047350 
047352 
047354 
047356 
047360 
047360 
047362 
047366 
047372 
047374 
047400 
047400 
047402 
047404 
047406 
047410 
047410 



047412 
047420 
047426 
047432 
047436 
047442 
047446 
047452 
047454 
047456 
047462 
047462 
047464 
047466 
047470 
047472 
047472 
047474 
047474 
047474 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



004737 
103407 
005237 
010001 

104456 

000776 

005046' 

011734' 

104406 

016501 
032701 
001006 
005237 

104455 
000777 
055104* 
011734' 

104406 



010562' 
002212' 



000002 
000100 

002212' 



JSR 
BCS 
INC 
MOV 

f.r<RHRO 



1601: CKL'lOP 

MOV 
BIT 
BNE 
INC 
ERROF 



170$: CKLOOP 



PC.URTCHR 
160 1 
FATFLG 
RO.Rl 

ERRNO.URTMSG.SriMSG 



J ISSUE WRITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
I BUMP COUNT 

tSAVE CONTENTS OF TSSR 
} WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



t SCOPE LOOP 



TSSR(R5).R1 
«0FL.R1 
170» 
FATFLG 

ERRN0.T2S0FL.SFIMSG 



TRAP 



I GET TSSR CONTENTS 

t CHECK FOR THE OFFLINE BIT SET 

tBR. IF OFFLINE (GOOD) 

I BUMP COUNT 

tOFF LINE SHOULD HAVE BEEN SET 

TRAP 
.WORD 
.UORO 
.UGRO 

sLOOP IF SELECTED 

TRAP 



OERHRD 
510 

WRTMSG 
SFIMSG 

CICLPl 



(BAD) 
C«EROF 
511 
T250FL 
SFIMSG 

OCLPl 



t SPACE FQRtMRO CONTMNO IN PLACE 



012737 140010 054030' 

012737 000001 054032' 

012704 054030' 

010465 000000 

004737 016150' 

016501 000002 

012702 100306 
020102 
001406 

005237 002212' 

104456 

001000 

054272' 

011746' 

104406 



104403 



160«: 



190<: 



MOV 
NOV 
HOV 
HOV 
JSR 
HOV 
MOV 
CHP 
BEQ 
INC 

ERRHRD 



CKLOOP 
ENDSUB 



#140010. T25PK3 
•1.T25R6 
•T2SPK3.R4 
R4.TS0B(R5) 
PC.MAITF 
TSSR(RS}.R1 

*SSR!SC!0FL!6IT1!BIT2.R2 
R1.R2 
I90t 
FATFLG 

ERRN0.T2STM.PKTSSR 



(SPACE FORWARD COMMAND IN PLACE 
iNU> lER OF RECORDS TO SPACE 
iR4 ' POINTER TO PACKET 
s ISSUE COMMAND 
I WAIT FOR SSR TO SET 
:GET TSSR CONTENTS 

I SET UP EXPECTED 
{ARE THEY EQUAL 

J BR. IF OK ESP. FUNCTION REJECT 
tBUMP COUNT 

tTSSR INCORRECT AFTER TAPE MOTION CMO 



TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 
END SUBTEST 
L 10072: 

TRAP 



!>>>>>>>>>>>> 



CSERHRD 
512 
T25TM 
PKTSSR 

CICLPl 
>>>>>>>>>>>> 

C«ESUB 



N13 



TSV7 
TEST 



HARDWARE TESTS 1-6 
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MACRO M1113 Ol-FEB-84 17:54 



SEQ 169 



4193 
4194 
4195 
4196 
4197 
4196 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4206 
4209 



4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4226 
4227 



4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4236 
4239 
4240 
4244 
4245 



047476 
047504 
047506 
047512 



023727 002212' 000017 
103402 

004737 017104' 



999t: 



CMP 
BLO 
JSR 



FATFLG.015. 
9991 

PC.CKDROP 



lis ERROR COUNT AT 25 
I BR. IF LESS THAN 25 
(TRY TO DROP THE UNIT 



047512 
047512 
047512 
047514 
047520 
047524 



TEST 5. SUBTEST 2 

VERIFIES THAT A SPACE RECORDS REVERSE CO^ANO UITH 
THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF 
THE VOLUME CKECK CVCK) FLAG IS SET. 



104402 

004737 055246' 

004737 055402' 

004737 055340* 



BGNSUB 



JSR 
JSR 
JSR 



PC.T25REST 

PC,T25RT1 

PC,T25RT2 



}>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T5.2: 

TRAP CIBSUB 

I SET COMMAND PACKET 

(SET UP OTHER COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 



i ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
I 

t ****************************************************************** 



047530 
047534 
047536 
047542 
047544 
047544 
047546 
047550 
047552 
047554 



004737 015674' 
103407 

005237 002212' 
010001 

104455 
001001 
003642' 
011734' 

012737 000007 053720' 



10«: 



047562 012704 053700' 



JSR PC.SOFINIT 

BCS 10$ 

INC FATFLC 

MOV RO.Rl 

ERRDF ERRNC.SFIERR.SFIMSG 



MOV «7.T25DSU 
MOV •T25PACKET.R4 



(DO INITIALIZE ON CONTROLLER 
tBR IF INIT UAS OK 
sBUMP COUNT 

; CONTENTS OF TSSR REGISTER 
I FATAL ERROR TSSR UAS NOT OK 

TRAP 
.UORC 
.WORD 
.UORO 

iSET UP DRIVE NUMBER 



CIEROF 
513 
SFIERR 
SFIMSG 



: SUBROUTINE NEEDS PACKET ADDRESS 



URITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



047566 004737 010562' 

047572 103407 

047574 005237 002212' 

047600 010001 
047602 

047602 104456 

047604 001002 

047606 005046' 

047610 011734' 



JSR PC. URTCHR 

BCS 15» 

INC FATFLG 

MOV RO.Rl 

ERRHRO ERRNG.URTMSG. SFIMSG 



iISS'JE URITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
iBUMP COUNT 

I SAVE CONTENTS OF TSSR 
tURITE CHARACTERISTISC FAILED 

TRAP 
.UORO 
.UORD 
.UORD 



OERHRD 
514 

URTMSG 
SFIMSG 



B14 



TSV7 HARDWARE TESTS 1-8 
TEST S: SPACE RECORDS 



4246 
4247 
4248 
4249 

4250 
4251 
4252 
4253 

4254 
4255 
4256 
4257 
4261 



MACRO mi IS 01 -FEB -84 17iS4 



SEQ 170 



I ISSUE REWIND COHTMND TO SELECTED TAPE DRIVE 



4262 

426S 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
4271 
4272 
4273 
4277 



4278 

4279 
4280 
4281 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 
4290 
4294 
4295 



4296 



047612 
047612 
047614 
047620 
047622 
047624 
047630 
047630 
047632 
047634 
047636 
047640 
047640 
047642 
047646 

047650 
047656 
047664 
047670 
047674 
047700 
047702 
047704 
047710 
047710 
047712 
047714 
047716 
047720 
047720 
047722 
047730 



047734 
047740 
047742 
047746 
047750 
047750 
047752 
047754 
047756 
047760 



104406 

004737 010714' 

103407 

010001 

005237 002212' 

104456 

001003 

055035' 

011746' 

104406 

005737 002216' 
001044 

112737 000200 054041' 
112737 000010 054040' 
012704 054010' 
010465 000000 
004737 016236' 
103407 
010001 

005257 002212' 

104456 
001004 
054064* 
011746- 

104406 

012737 000007 053720' 
012704 053700' 



151: CKLOOP 

JSR 
BCS 
NOV 
INC 

ERRHRD 



301: CKLOOP 

1401: TST 
BNE 

novB 
novB 

NOV 
NOV 
JSR 
BCS 
NOV 
INC^ 

errhrq 



1501 t CKLOOP 

NOV 
NOV 



PC. REWIND 
301 
RO.Rl 
FATFLC 

ERRNO. T25RUN.PKTSSR 



EXTFEA 
1601 

•200.T2SBS1 

•10.T2SBS0 

•T2SPK2.R4 

IM.TSOe(RS) 

PC.CMCTSSR 

ISO* 

RO.Rl 

FATFLC 

ERRNO. T25SSR.PKTSSR 



TRAP 

•CALL TAPE REWIND COMHANO 

I BR. IF NO PROBLEM 

I SAVE TSSR 

iBUHP COUNT 

I REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 

tCHECK FOR EXTENDED FEATURES SU 
iBR IF SWITCH IS ON 



CICLPl 



CIERHRO 
515 
T25RWN 
PKTSSR 

CICLPI 
SWITCH 



•7.T2SDSW 
•T2SPRCKET.R4 



•WRITE MISCELLANEOUS CONT/REAO STATUS 

{FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 

tWRITE SueSrS MEM PACKET 

I ISSUE COMMAND 

iWAIT FOR SSR 

iBR. IF NO ERROR 

lERROR. SAVE TSSR 

iBUNP COUNT 

I TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP CIER»«0 
.WORD 516 
.WORD T25SSR 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C»CLPl 

iSET UP DRIVE NUMBER 
{SUBROUTINE NEEDS PACKET ADORE SS 



{WRITE CHRRACTERXSTICS CONHANO (CM.L TO WRTCHR) 



004737 010562' 
103407 

005237 002212* 
010001 

104456 

001005 

005046* 

011734* 



JSR 
BCS 
INC 
NOV 
ERRHRD 



1601: CKLOOP 



PC.IATCMN 
1601 

FATFLC 
RO.Rl 

ERRNO . WRTMSG . SF IMSG 



{ISSUE WRITE CHARACTERISTICS 
{BR. IF COMMAND ISSUED OK 
{BUMP COUNT 

(SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

{SCOPE LOOP 



CSERHRO 
517 

WRTMSG 

SFIMSG 



C14 



TSV7 - HARDWARE TESTS 1-6 
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MACRO Mills 01 -FEB 64 17t54 



SEQ 171 



4297 
4298 
4299 
4300 
4304 



4305 

4306 
4307 
4306 
4309 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 
4316 
4319 
4320 
4321 
4322 
4326 



4327 
4326 



4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4336 
4339 
4340 
4341 
4342 
4343 
4344 



047760 
047762 
047766 
047772 
047774 
050000 
050000 
050002 
050004 
050006 
050010 
050010 



050012 
050020 
050026 
050032 
050036 
050042 
050046 
050052 
050054 
050056 
050062 
050062 
050064 
050066 
050070 
050072 
050072 
050074 
050074 
050074 
050076 
050104 
050106 
050112 



050112 
050112 
050112 



104406 

016501 000002 
032701 000100 
001006 

005237 002212' 

104455 
001006 
055104* 
011734* 

104406 



MOV 
BIT 
BNE 
INC 
ERROT 



1701: CKLOOP 



TSSR(R5).R1 
•OFL.Rl 
1701 
FATFLC 

ERRNO . T250FL . SF IMSG 



TRAP CICLPl 

iGET TSSR CONTENTS 
I CHECK FOR THE OFFLINE BIT SET 
iBR. IF OFFLINE (GOOD) 
I BUMP COUNT 

lOFF LINE SHOULD HAVE BEEN SET (BAD) 

TRAP 
.WORD 
.WORD 
MOW) 

(LOOP IF SELECTED 

TRAP 



C«ER0F 

516 

T250FL 



CtCLPl 



SPACE REVERSE COMHAND IN PLACE 



012737 100410 054030* 160»: 

012737 000001 054032' 

012704 054030' 

010465 000000 

004737 016150' 

016501 000002 

012702 100306 

020102 

001406 

005237 002212' 

104456 

001007 
0S4272' 
011746' 



MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 

a* 

BEQ 

INC 



•100410. T25PK5 
•1.T2SRB 
•T25PK3.R4 
R4.TS0B(RS) 
PC.MAITF 
TSSR(RS).R1 
•SSR ! SC i OFL !BITi !BIT2 
R1.R2 
190» 
FATFLC 

EfMM0.T2STH.PKTSSR 



104406 



104403 

023727 002212' 000017 
103402 

004737 017104* 



190* : 



999»! 



CKLOOP 
ENOSUB 



CMP 
8L0 
JSR 



FATFLC.*1S. 
999t 

PC.CKOROP 



I SPACE REVERSE COMMAND IN PLACE 
lNUr«ER OF RECORDS TO SPACE 
|R4 ■ POINTER TO PACKET 
I ISSUE COMMAND 
lUAIT FOR SSR TO SET 
I GET TSSR CONTENTS 
.R2 I SET UP EXPECTED 

I ARE THEY EQUAL 

iBR. IF OK ESP. FUNCTION REJECT 
I BUMP COUNT 

tTSSR INCORRECT AFTER TAPE MOTION CHD 

TRAP CtER>«0 
.WORD 519 
.WORD T25TM 
.WORD ^KTSSR 

»LOOP IF SELECTED 

TR CICLPl 
!>>>>>>>>>»>> END SUBTEST >>>>>>>>>>>> 
L 10073: 

TRAP CtESUB 
J IS ERROR COUNT AT 25 
I BR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



TEST 5. SUBTEST 3 

VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE 
RECOm> OFF SOT AND CAUSES SOT STATUS TO BE CLEARED. 



8GNSUB 



104402 



I >'k>>>>>>>>>> BEGIN SUBTEST >>>>>>>*>>>'• 
T5.3: 

TRAP CtBSie 



D14 



1 8 



MACRO NUIS 01 FEB 94 17:54 



SEQ 172 



4345 
4346 
4547 
4S4S 
4349 
4550 
4551 
4352 
4353 
4554 
4355 
4356 
4357 
4361 
4362 



4363 
4364 
4365 
4366 
4367 
436a 
4369 
4370 
4371 
4572 
4373 
4374 
4575 
4579 
4360 



4381 
4362 
4585 
4564 
4585 
4386 
4387 
4388 

4389 
4390 
4391 
4592 
4396 



4397 



050114 
050120 
050124 



004757 055246' 
004737 055340* 
004737 055402' 



JSft 
JSR 
JSR 



PC.T25HEST 

PC.T25RT2 

PC.T25RTS 



• SET COrtMNO PACKET 



050130 
050134 
050156 
0S0142 
050144 
050144 
050146 
050150 
050152 
050154 



050166 
050172 
050174 
050200 
050202 
050202 
050204 
050206 
050210 



I ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR If ERROR 



004757 015674' 
103407 

005257 002212' 
010001 

104455 

001010 

003642' 

011734' 

015757 002172' 053720' 



101: 



050162 012704 053700' 



JSR PC.SOFINIT 

BCS 101 

INC FATFLG 

NOV RO.Rl 

ERROF ERRNO.STIERR.SFINSG 



NOV UNITN.T2S0SW 
NOV •T2SPACKET.R4 



lOO INITIALIZE ON CONTROLLER 
I BR If INIT WAS OK 
iBUNP COUNT 

{CONTENTS OF TSSR REGISTER 
•FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.UORO 
.UORO 

I SET UP DRIVE NUnSER 



CtERDF 
520 

SFIERR 
SFINSG 



I SUBROUTINE NEEDS PACKET ADDRESS 



lURITE CHARACTERISTICS CONNAND (CALL TO URTCHR) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 

001011 

005046* 

011734' 



JSR PC.MTCM 

BCS 151 

INC FATFLG 

NOV RO.Rl 

CRRHRO EfWNO.MTNSG.SFINSG 



I ISSUE WRITE CHARACTERISTICS 
iBR. IF CONhAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



C«ER»«0 

521 

WRTHSG 
SFIMSG 



I ISSUE REUIM) COrtMNO TO SELECTED TAPE DRIVE 



050212 
050212 
050214 
050220 
050222 
050224 
050230 
050230 
050232 
050234 
050236 
050240 



104406 

004737 010714' 

103407 

010001 

005237 002212' 

104456 

001012 

055035* 

011746' 



15«: 



301: 



CKLOOP 

JSR 
BCS 
NOV 
INC 

EAftHRD 



CKLOOP 



PC. RE WIND 

SO* 

RO.Rl 

FATFLG 

ERRNO . T25RUN . PK T SSR 



TRAP 

I CALL TAPE REWIND CONNAND 

iBR. IF NO PROBLEN 

I SAVE TSSR 

iBUNP COUNT 

I REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 



C»CLPl 



CfERHRO 

522 

T25RWN 

PKTSSR 



E14 



TSV7 HAROUARE TESTS 1-6 
TEST 5: SPACE RECORDS 



HACRO HI 115 01 -FEB 84 17:54 



SEQ 175 



4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4406 
4409 
4410 
4414 



050240 104406 



TRAP 



CtCLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



050242 
050246 
050250 
050254 
050256 
050260 
050264 
050264 
050266 
050270 
050272 
050274 
050274 
4416 050276 
4417 



4415 



013701 053730* 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 

001013 

054225' 

015374' 

104406 

012737 000001 054032' 



401: 



MOV T25BFR»6.R1 

MOV R1.R2 

BIS 46IT1.R2 

CMP R1.R2 

BEQ 40t 

INC FATFLG 

ERRHRD ERRN0.T2SB0T.EXPREC 



CKLOOP 

MOV «000001.T2SI« 



I PICK UP XSTO 
I SET UP EXPECTED 
I SET BOT BIT IN EXPECTED 
iDOES EXP - REC'D 
iBR. IF EQUAL (OK) 
I BUMP COUNT 

•TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 

t NUMBER or RECORDS TO SPACE OVER 



CIEft^D 
523 
T2580T 
EXPREC 

C«CLP1 



4418 












4419 












4420 




iSPACE FQRyARD.ACK.CVC-l COMMAND 




4421 












4422 












4423 












4424 050304 


012737 


140010 054030' 


nov 


•140010. T25PK5 


iSPACE FORUARO.ACK.CVC-1 COTVIAND 


4425 050312 


012704 


054030' 


nov 


•T2SPK3.R4 


iSET UP R4 WITH PACKET ADDRESS 


4426 050316 




651: 








4427 050316 


010465 


000000 


nov 


R4.TS0B(R5) 


1 ISSUE COMMAND 


4428 050322 


004737 


016150' 


JSR 


PC.MAITF 


lUAIT FOR SSR TO SET 


4429 050326 


016501 


000002 


MOV 


TSSR(RS).RI 


iGET TSSR CONTENTS 


4430 050332 


012702 


000200 


MOV 


#SSR.R2 


;SET UP EXPECTED 


4431 050336 


020102 




CMP 


R1.R2 


lARE THEY EQUAL 


4432 050340 
U33 050342 


001411 




BEQ 


75» 


iBR. IF OK 


032701 


000004 


BIT 


46IT2.R1 


lC»CCK FOR TAPE STATUS ALERT 


^34 050346 


001006 




BNE 


75 « 


tBR. IF TSA IS SET (SUSPECT IS EOT) 


4435 050350 


005237 


002212' 


INC^ 


FATFLG 


iBUMP COUNT 


4439 050354 








ERRN0.T25U0C. EXPREC 


iTSSR INCORRECT AFTER READ DATA 


050354 


104456 




TRAP OERHRO 


050356 


001014 








.WORD 524 


050360 


054 145' 








.UORD T25UDE 


050362 


015374- 








.WORD EXPREC 


4440 050364 




75t: 


CKLOOP 




iLOOP IF SELECTED 


050364 


104406 








TRAP C$CLP1 


4441 050366 




120t: 









4442 
4443 



4445 
4446 
4447 
4448 

4449 050366 



READ HESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 053730' 



MOV 



T2S6FR*6.R1 



I QUICK CHECK FQR BOT SET 



Fi4 



TSV7 HARDWARE TESTS 1- 
TEST 5: SPACE RECORDS 



MACRO M1115 01 FEB 64 17:54 



SEQ L74 



4450 
4451 
4452 
4455 
4454 
4458 



4459 

4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 



050572 
050574 
050400 
050402 
050404 
050410 
050410 
050412 
050414 
050416 
050420 
050420 
050422 
050426 



4469 
4470 
4471 
4472 
4475 
4474 
4475 
4476 
4477 
4478 
4482 



4483 



4485 
4486 
4487 
4468 
4492 



4493 
4494 



4495 
4496 
4497 
4498 



0S04S4 
(00442 
050450 
050454 
050460 
050464 
050470 
050474 
050476 
050500 
050504 
050504 
050506 
050510 
050512 
050514 
050514 
050516 
050522 
050526 
0505S0 
050532 
050536 
050536 
050540 
050542 
050544 
050546 
050546 
050550 
050550 
050550 
050552 
050560 
050562 
050566 



010102 

042702 000002 

020102 

001406 

005257 002212' 

104456 

001015 

054520* 

015374' 

104406 

004737 055402' 

012737 000401 054036' 



125t! 



BIC 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 



R1.R2 

46IT1.R2 

R1.R2 

125t 

FATFLC 

ERRNO . T25BNC . EXPREC 



I SET UP EXPECTED 

iCLEAR THE BOT BIT (XSTO) 

lis THE EOT BIT SET IN XSTO 

iBR. IF SET (GOOD) 

I BUMP COUNT 

I BOT NOT CLEARED AFTER SPACE FROM BOT 

TRAP CIERHRO 
.UORO 525 
.UORO T25eNC 
.UORO EXPREC 



JSR 
MOV 



PC.T25RT3 
♦257..T25S2 



I CLEAN UP PACKET 
I SET THE CORRECT SIZE UP 



TRAP 



CICLPl 



READ DATA COMMAND IN PLACE 



012737 140001 054030' 

013737 003114' 054032' 

012704 054030' 

010465 000000 

004737 016150* 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 

001016 

005176* 

011746* 

104406 

017701 132372 
012702 000001 
020102 
001406 

005237 002212' 

104456 

001017 

054435* 

015374' 

104406 



104403 

023727 002212' 000017 
103402 

004737 017104' 



MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 



♦140001. T2SPK3 

FREC.T25RB 

♦T2SPKS.R4 

R4.TS0B(f») 

PC.UAITF 

TSSf)(R5).Rl 

•SSR.R2 

R1.R2 

190t 

FATFLG 

ERRNO.ROCim.PKTSSR 



1901: 



2001; 



CKLOOP 

MOV 
MOV 

cm 

BEQ 

INC 

errhro 



CKLOOP 
ENDSUe 



iFREE.Rl 

•1.R2 

fll,R2 

200< 

FATFLC 

ERRNO. T25UNG.EXPREC 



9991: 



CMP 
BLO 
JSR 



FATFLC. #15. 
9991 

PC.CKOROP 



iREAO DATA COMHAND IN PLACE 
iREAD SUFFER ADDRESS TO PACKET 
iR4 - POINTER TO PACKET 

I ISSUE c o ityt m 

lUAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
tSET UP EXPECTED 
lARE THEY EQUAL 

tBR. IF OK ESP. FUNCTION REJECT 
iBUHP COUNT 

tTSSR INCORRECT AFTER READ DATA CMD 

TRAP C(ER»«0 
.UORO 526 
.UORO RDERR 
.UORO PKTSSR 

(LOOP IF SELECTED 

TRAP CtCLPl 
iGET FIRST UORO FROM BUFFER 
I SET UP EXPECTED 
lUAS RECORD NUMBERED 1 
iBR. IF CORRECT RECORD 
tBlflP COUNT 

I SHOULD HAVE BEEN RECORD NLf«ER 1 

TRAP CSER^OO 
.UORO 527 
.WORD T2SUNG 
.UORO EXPREC 

TRAP C»CLP1 
!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10074: 

TRAP OESU8 
lis ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



G14 



T3V7 HAROUARE TESTS 1-8 
TEST 5; SPACE RECORDS 



4499 

4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 
4509 
4510 



MACRO HlllS 01-FEB 84 17:54 



TEST 5. SUBTEST 4 



SEQ 175 



VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE BACK 
OVER THE FIRST RECORD ON TAPE. 



4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
4523 
4527 
4528 



4529 
4530 
4531 
4532 
4533 
4534 
4535 
4536 
4537 
4538 
4539 
4540 
4541 
4545 
4S46 



050566 
050566 
050566 
050570 
050574 
050600 



104402 

004737 055246' 

004737 055340' 

004737 055402' 



BGNSUB 



JSR PC.T2SREST 
JSR PC.T2SftT2 
JSR PC.T2SRT3 



{>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T5.4: 

TRAP CIBSUB 

I SET COrtlANO PACKET 

iSET UP OTHER COHHANO PACKET 

I SET UP OTHER COHHANO PACKET 



ISSUE CONTROLLER -SOFT" INITIALIZE • CARRY BIT aEAR IF ERROR 



050604 
050610 
050612 
050616 
050620 
050620 
050622 
050624 
050626 
050630 



004737 015674* 
103407 

005237 003212' 
010001 

104455 

001020 

003642' 

011734' 

013737 002172' 055720' 20$: 



050636 012704 053700' 



JSR PC.SOriNIT 

BCS 20t 

INC FATFL6 

MOV RO.Rl 

ERROr ERRNO.SFIERR.STIMSG 



nOV UNITN.T2S0SW 
tlOV •T2SPACKET.R4 



lOO INITIALIZE ON CONTROLLER 
iBR IF INIT MAS OK 
iBUHP COUNT 

tCONTENTS OF TSSR REGISTER 
iFATAL ERROR TSSR MAS NOT OK 

TRAP 
.UORO 
.WORD 
.UORO 

(SET UP DRIVE NUHBER 



CIERDF 
528 

SFIERR 
SFinSG 



•SUBROUTINE NEEDS PACKET ADORERS 



URITE CHARACTERISTICS COHHANO CCALL TO URTChR) 



4S47 

4548 
4549 
4550 



050642 
050646 
050650 
050654 
050656 
050656 
050660 
050662 
050664 
050666 
050666 



004737 010562' 
103407 

005237 002212' 
010001 

104456 

001021 

005046' 

011734' 

104406 



2Sti 



JSR 

ecs 

INC 
HOV 

ERRHRO 



CKLOOP 



PC. URTCHR 
2St 

FATFLC 
RO.Rl 

ERRNO.URTHSC. SFinSG 



I ISSUE URITE CHARACTERISTICS 
iBR. IF COHHAND ISSI€D OK 
I BUMP COUr^T 

J SAVE CONTENTS OF TSSR 
tURITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.UORO 

(LOOP IF SELECTED 

TRAP 



C«ER>«D 

529 

URTHSG 

SFIMSG 

C»CLPl 



H14 



TSV7 
TESl 



HAROWARF. TESTS 1 S 
5: SPACE REcOROS 



MACRO M1113 01-FE0-a4 17:54 



4551 
4552 
4555 
4554 
4555 
4556 
4557 
4556 
4562 



4S6S 

4564 
4565 
4566 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4560 



4581 

4562 
4583 
4584 
4585 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
4593 
4594 
4598 



4599 

4600 
4601 



050670 
050674 
050676 
050700 
050704 
050704 
050706 
050710 
050712 
050714 
050714 



050716 
050722 
050724 
050730 
050732 
050734 
050740 
050740 
050742 
050744 
050746 
050750 
0S07S0 



050752 
050756 
050762 
050764 
050770 
050774 
050774 
050776 
051000 
051002 
051004 
051004 
051006 



•ISSUE REUINO COMMANO TO SELECTED TAPE DRIVE 



004737 010714* 

103407 

010001 

005237 002212' 

104456 

001022 

055035* 

011746' 

104406 



SOI: 



JSR 
BCS 

nov 

INC 

ERRHRD 



CKLOOP 



PC. REMIND 
301 
RO.Rl 
FATFLG 

ERRNO . T25RUN . PK TSSR 



I CALL TAPE REMIND COMMAM) 

I BR. If NO PROBLEM 

I SAVE TSSR 

I BUMP COUNT 

•REMIND NOT ACCEPTED 

TRAP 
.MORO 
.MORO 
.UORO 

I LOOP IF SELECTED 

TRAP 



CtERHRD 
530 
T25RMN 
PKTSSR 

C«CLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 053730' 
010102 

052702 000002 

020102 

001406 

005237 002212- 

104456 

001023 

054225' 

015374' 

104406 



401: 



NOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 



T256FR*6.R1 

R1.R2 

«6IT1.R2 

R1.R2 

401 

FATFLG 

ERRNO. T2SeOT .EXPREC 



tPICK UP XSTO 

I SET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

iDOES EXP - REC'O 

iBR. IF EQUAL (OK) 

iBUnP COUNT 

tTAPE NOT AT BOT AFTER REMIND 

TRAP 

.MORD 
.MORO 
.MORO 

iLOOP IF SELECTED 

TRAP 



C$ER»«0 
531 
T25eOT 
EXPREC 

C»CLPl 



ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION * O-FORMARO 1-REVERSE 



012703 000001 

004737 010366' 
103410 

016501 000002 

005237 002212' 

104456 

001024 

054145' 

012002' 

104406 

012737 000001 054032' 



SOli 



MOV •000001. R3 

JSR PC. SPACE 

BCS 501 

MOV TSSR(R5).R1 

INC FATFLG 

ERRHRD ERRNO . T2SMDE . SFFMSG 



CKLOOP 

MOV «1.T25RB 



I NUMBER OF RECORDS TO SPACE FORMARO 

(CALL SPACE COMMAND 

I CHECK F09 ERROR 

iGET TSSR CONTENTS 

iBUMP COUNT 

I SPACE FORMARO ''AILED 

TRAP CtERHRO 
.MORO 532 
.MORO T25M0E 
.MORO SFFHSG 

(LOOP IF SELECTED 

TRAP C«CLP1 
(NUMBER OF RECORDS TO SPATE OVER 



114 



TSV7 HARDWARE TESTS 1-8 
TEST 5: SPACE RECORDS 



MACRO rilllS 01-FEB-e4 17:54 



SEQ 177 



4602 
460S 
4604 
4605 
4606 
4607 
4606 
4609 
4610 
4611 
4612 
4613 
4614 
4615 
4616 
4617 
4621 



4622 

4623 
4624 
462S 
4626 
4627 
4628 
4629 
4630 
4631 
4632 
4633 
4634 
4635 
4636 
4637 
4638 
4639 
4640 
4641 
4642 
4646 



4647 

4648 
4649 
4650 
4651 
4652 
4656 



051014 
051022 
051026 
051026 
051032 
051036 
051042 
051046 
051050 
051052 
051056 
051056 
051060 
051062 
051064 
051066 
051066 
051070 
051070 
051074 



051102 
051110 
051114 
051120 
051124 
051130 
051134 
051140 
051142 
051144 
051150 
051150 
051152 
051154 
051156 
051160 
051160 
051162 
051166 
051172 
051174 
0S1176 
051202 
051202 



SPACE REVERSE. ACK.CVC-1 COMMAND 



012737 140410 054030* 
012704 054030' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 

001025 

054145' 

011746' 

104406 

012703 000400 
013737 003114' 054032' 



65ti 



751: 
120»: 



MOV 


«140410 T25PK3 


1 SPACE RE VERSE. ACK.CVC 


-1 COMMAND 


HOV 


«T25PK3.R4 


(SET UP R4 WITH PACKET 


ADDRESS 




MOV 


R4.TS0B(R5) 


1 ISSUE COMMAND 






JSR 


PC.UAITF 


lUAIT FOR SSR TO SET 






nuv 


1 99n^ Its / tnk 


IIVCI 199^ WUTI 1 cri 1 9 






MOV 


«SSR.R2 


iSET UP EXPECTED 






CMP 


R1.R2 


tARE THEY EQUAL 






BEQ 


751 


iBR. IF OK 






INC 


FATFLG 


iBUMP COUNT 






ERRHRO 


ERRNO . T25U0E , PK TSSR 


iTSSR INCORRECT AFl /« 


READ DATA 










TRAP 


CtERHRD 








.WORD 


533 








.UORD 


T25WDE 








.WORD 


PKTSSR 


CKLOOP 




iLOOP IF SELECTED 












TRAP 


CICLPI 


MOV 


•256.. R3 


1 RECORD SIZE 






MOV 


FREE.T25RB 


t STARTING READ BUFFER 


ADDRESS 





READ DATA. ACK.CVC-1 COMMAND 



012737 140001 054030' 

012704 054030' 

010337 054036' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 

001026 

005176' 

011746' 

104406 

017701 131726 
012702 000000 
020102 
001406 

005237 002212' 
104456 



1651: 



1701: 



MOV 


•140001. T25PK3 


(READ DAT A. ACK.CVC-1 COMMAND 




MOV 


•T25PK3,R4 


tSET UP R4 UITH PACKET ADDRESS 




MOV 


R3,T25SZ 


iSET UP RECORD SIZE IN PACKET 




MOV 


R4.TS0B(R5) 


1 ISSUE COMMAND 




JSR 


PC.WAITF 


iHAIT FOR SSR TO SET 




MOV 


TSSRCR5).R1 


iGET TSSR CONTENTS 




MOV 


•SSR.R2 


iSET UP EXPECTED 




CMP 


R1.R2 


lARE THE> EQUAL 




BEQ 


1701 


tBR. IF OK 




INC 


FATFLG 


iBUMP COUNT 




ERRHRO 


ERRNO.ROeRR. PKTSSR 


iTSSR INCORRECT AFTER READ DATA 




TRAP 


C$ERHRD 






.UORD 


534 






.WORD 


ROERR 






.WORD 


PKTSSR 


CKLOOP 




iLOOP IF SELECTED 






TRAP 


CJCLPl 



MOV RFREE.Rl 

MOV •0.R2 

CMP R1.R2 

BEQ 200 t 

INC FATFLG 

ERRHRO ERRNO . T25UNG . EXPREC 



iGET FIRST WORD FROM BUFFER 
J SET UP EXPECTED 
(UAS RECORD NUMBERED 1 
I BR. IF CORRECT RECORD 
I BUMP COUNT 

I SHOULD HAVE BEEN RECORD NUMBER 1 

TRAP CSERHRD 



J14 



TSV7 HAROUARE TESTS 1-6 
TEST 5: SPACE RECORDS 



MACRO MlllS Ol-FEB 84 17;54 



4657 
4659 



4659 
4660 
4661 
4662 
4663 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
4671 
4672 
4673 
4674 
4675 
4676 
4677 



4678 
4679 
4680 
4681 
4682 
4683 



051204 
051206 
051210 
051212 
051212 
051214 
051214 
051214 
051216 
051224 
051226 
051232 



051232 
051232 
051232 
051234 
<»1240 
051244 
051250 
051256 
051264 



4685 
4686 
4687 

4689 
4690 
4691 
4692 
4693 



4694 
4695 
4696 
4697 



051272 
051276 
051300 
051300 
051304 
OS1306 
051312 
051314 
051320 
051322 
051326 
051330 
051334 
051336 
051342 



001C27 

054435' 

015374- 

104406 



104405 

025727 002212' 000017 
105402 

004737 017104* 



200f I 



999>; 



CKLOOP 
ENOSUB 



CMP 
BLO 
JSR 



F4TFLC.#15. 
999> 

PC.CKOROP 



.UORO 535 
.WORD T25UNG 
.WORD EXPREC 

TRAP CICLPl 
!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10075: 

TRAP C«ESUB 
lis ERROR COUNT AT 25 
iBA. IT LESS THAN 25 
I TRY TO DROP THE UNIT 



»♦ 

I TEST 5. SUBTEST 5 

! VERIFIES THAT SPACE RECORDS FORUARO CAN SPACE A 

iNULTIPLE NUTKR OF RECORDS C2 THROUGH 64K OR THE 

iHAXINUH NUMBER OF RECORDS URITTEN ON THE TAPE. 

lUHICH EVER IS LESS. 

I 

t 

I 

t - 



104402 
004737 
004737 
004737 
013737 
162737 
013737 



055246' 
055340* 
055402' 

054060* 054056' 
000002 054056' 
054060' 054062* 



BGNSUB 



JSR 
JSR 
JSR 
NOV 
SUB 
NOV 



PC.T25REST 

PC,T25RT2 

PC.T2SRTS 

T2SCNT.T2SCN2 

•2.T2SCN2 

T2SCNT.T250LY 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T5.5; 

TRAP CtBSUB 

I SET COMMAND PACKET 

I SET UP OTHER COVtMND PACKET 

I SET UP OTHER COWIAND PACKET 

iHOLO NUMBER OF RECORDS 

lACTUNL NUMBER OF RECORDS ON TAPE 

I SET UP REMIND DELAY COUNTER 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 
103427 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
016501 
005237 



015674* 

000250 

002116' 

177772 

177756 

054062' 

000002 
002212' 



10* : 



JSR 
BCS 
DELAY 



PC.SOFINIT 

20» 

250 



DEC 



MOV 
INC 



T25DLY 
101 

TSSR(R5).R1 
FATFLG 



iDO INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
tUAIT ABOUT .25 SECOW)S 

MOV 
.dORO 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 
tOEC COUNTER 

a BR. IF MORE LOOPS REQUIRED 

t CONTENTS OF TSSR REGISTER 
iBUMP COUNT 



•250.(PC)» 
0 

LIDLV.CPO* 
0 

-6(PC) 
.-4 

22(PC) 
.-20 



K14 



TSV7 
TEST 



HAROUARE TESTS 1 8 
5: SPACE RECORDS 



MACRO hlllS Ol-FEB-64 17:54 



SEQ 179 



4701 051346 
051S4€ 
051350 
051352 
051354 

4 702 051356 

4 703 051356 

4704 051564 

4705 

4706 

4707 

470a 

4709 

4710 

4711 



104455 

001030 

003642' 

011734' 

013737 002172' 053720' 
012704 053700' 



201: 



ERROF ERRNO . SF lERR , SF IMSG 



MOV UNITN.T2S0SU 
NOV «T25PACKET.R4 



I FATAL ERROR TSSR WAS NOT OK 

TRAP C<ERDF 

.UORO 536 

.WORD SI>'IERR 

.UORD SFIMSG 

tSET UP UNIT NUMBER 

I SUBROUTINE NEEDS PACKET ADDRESS 



lURITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



4712 051370 


004737 


010562' 


JSR 


PC. URTCHR 


1 ISSUE URITE CHARACTERISTICS 




4713 051374 


103407 




BCS 


25* 


iBR. IF COMMAND ISSUED OK 




4714 051376 


005237 


002212' 


INC 


FATFLG 


iBUMP COUNT 




4718 051402 


010001 




nov 


RO.Rl 


tSAVE CONTENTS OF TSSR 




4719 051404 






ERRHRO 


ERRNO, URTMSG . SFIMSG 


1 URITE CHARACTERISTISC FAILED 




051404 


104456 






TRAP 


CtERKtO 


051406 


001031 








.UORO 


537 


051410 


005046' 








.UORO 


URTMSG 


051412 


011734* 








.UORD 


SFIMSG 


4720 051414 






251: CKLOOP 




tLOOP IF SELECTED 




051414 


104406 








TRAP 


CtCLPl 


4721 














4722 














4723 






1 








4724 






8 ISSUE REWIND COfftMO TO SELECTED TAPE 


DRIVE 




4725 






t 








4726 














4727 












4728 051416 


004737 


010714' 


JSR 


PC. REWIND 


iCALL TAPE REUIM) COrtMNO 




4729 051422 


103407 




BCS 


SO* 


iBR. IF NO PROBLEM 




4730 051424 


010001 




nov 


RO.Rl 


tSAVE TSSR 




4731 051426 


005237 


002212' 


INC 


FATFLG 


tBUMP COUNT 




4735 051432 






ERRHRO 


ERRNO. T2SRUN.PKTSSR 


iREUlNO NOT ACCEPTED 




051432 


104456 








TRAP 


C9ERHRD 


051434 


001032 








.UORO 


538 


051436 


055035' 








.UORO 


T25RUN 


051440 


011746* 








.UORD 


PKTSSR 


4736 051442 






30$: CKLOOP 




sLOOP IF SELECTED 




051442 


104406 








TRAP 


C»CLP1 


4737 051444 


013701 


054056' 


MOV 


T25CN2.R1 


{NUMBER OF RECORDS ON TAPE 




4736 051450 


012702 


177776 


nov 


«6S534.,R2 


iMAX IT CAN SPACE OVER 




4739 051454 


020201 




cnp 


R2.R1 


lUHICH VALUE CAN UE USE 




4740 051456 


003002 




BCT 


46* 


iBR. IF • WRITTEN > 64K 




4741 051460 


010103 




nov 


R1.R3 


i« URITTEN CAN BE USED 




4742 051462 


000401 




BR 


47$ 


iMOVE ON 




4743 051464 


010203 




46>: nov 


R2.R3 


lUSE MAX NUMBER 




4744 051466 


162703 


000001 


471: SUB 


♦1.R3 


iDON'T GO ALL THE UAY YET 




4745 051472 


010337 


054032' 


nov 


R3.T25RB 


i NUMBER OF RECORDS TO SPACE OVER 


4 746 














4747 














4748 














4749 






J SPACE FORWARD. ACK.CVC'l COMMAND 







Li4 



TSV7 
TEST 



HARDWARE TESTS 1-8 
5: SPACE RECORDS 



MACRO Ml lis 01 -FEB -64 17:54 



SEQ 180 



4750 
4751 
475^ 
4755 
4754 
4755 
4756 
4757 
4758 
4759 
4760 
4761 
4762 
4763 



4764 
4765 
4766 
4770 



4771 

4772 
4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
4781 
4782 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 
4791 
4792 
4796 



051476 
051504 
051510 
051510 
051516 
051522 
051526 
051532 
051536 
051540 
051542 
051542 
0S1S46 
051550 
051554 
051556 
051562 
051564 
051570 
051572 
051576 
051600 
051604 
051604 
051606 
051610 
051612 
051614 
051614 
051616 
051622 



051630 
051636 
051642 
051646 
051652 
0516S6 
051662 
051666 
051670 
051672 
051676 
051700 
051704 
051704 
051706 
051710 



012737 
012704 

015737 
010465 
004737 
016501 
012702 
020102 
001425 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001351 
005237 

104456 
001033 
054145' 
011746* 



104406 

012703 010000 

013737 00S114' 054032' 



140010 054030' 
054030* 

65$: 

054056' 054062' 
000000 

016150' 671: 

000002 

000200 



000250 

002116' 

177772 

177756 

054062* 

002212* 



MOV 
MOV 

MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
DELAY 



«140010.T25PK3 
«T25PK3.R4 

T25CN2.T25DLY 

R4.TSDB(R5) 

PC.UAITF 

TSSR(R5).R1 

♦SSR.R2 

R1.R2 

75$ 

250 



I SPACE FORUARO.ACK.CVC'I COMMAND 
I SET UP R4 WITH PACKET ADDRESS 

I NUMBER OF RECORDS USED AS DELAY COUNTER 
i ISSUE COMMAND 
iUAIT FOR SSR TO SET 
I GET TSSR CONTENTS 
t SET UP EXPECTED 
I ARE THEY EQUAL 
iBR. IF OK 
I DELAY .25 SECONDS 



DEC 
BNE 
INC 



T25DLY 
67$ 

FATFLC 



ERRHRD ERRN0.T25UDE.PKTSSR 



75$ ! 



CKLOOP 

MOV 
MOV 



•4096. .R3 
rREE.T25R8 



I BUMP DOUN COUNTER 
iBR. IF NOT AT END 
iBUriP COUNT 



iLOOP IF SELECTED 

I RECORD SIZE 
I STARTING READ BUFFER ADDRESS 



MOV 


*250.CPC). 


.UORD 


0 


MOV 


L»0LY.(PC)» 


.WORD 


0 


DEC 


-6(PC) 


BNE 


.-4 


DEC 


-22( PC) 


BNE 


.-20 


DELAY 




READ DATA 




TRAP 


C$ERHRD 


.WORD 


539 


.UORO 


T2SIJDE 


.WORD 


PKTSSR 


TRAP 


ciapi 



READ OATA.ACK COMHANO 



012737 100001 054030' 

012704 054030' 165$ ; 

010337 054036' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 

020102 

001411 

032701 000004 
001006 

005237 002212* 

104456 
001034 
005176' 



MOV 


♦100001. T25PKS 


iREAD OATA.ACK COMMAND 


MOV 


#T25PK3,R4 


iSET UP R4 WITH PACKET ADDRESS 


MOV 


R3.T25SZ 


iSET UP RECORD SIZE IN PACKET 


MOV 


R4.TS06(R5) 


: ISSUE COrtlAND 


JSR 


PC.WAITF 


;WA1T FOR SSR TO SET 


MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 


MOV 


♦SSR.R2 


iSET UP EXPECTED 


CMP 


R1.R2 


lARE THEY EQUAL 


BEQ 


170$ 


iBR. IF OK 


BIT 


«BIT2.R1 


» CHECK FOR TAPE STATUS ALERT 


BNE 


170$ 


lIF SET ALL IS WELL 


INC 


FATFLG 


iBUMP COUNT 


ERRHRD 


ERRNO.RDERR. PKTSSR 


iTSSR INCORRECT AFTER READ DATA 


TRAP 



.WORD 
.WORD 



C$ERHRD 

540 

RDERR 



Ml 4 



TSV7 HARDWARE TESTS 
TEST 5: SPACE RECORDS 



1-8 



MACRO Mills 01 -FEB -84 17:54 



SEQ 181 



4797 

4798 
4799 
4800 
4801 
4802 
4803 
4807 



4808 
4809 



4810 
4811 
4812 
4813 
4814 
48 IS 
4816 
4817 
4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 
4827 



4828 
4829 
4830 
4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4641 
4842 



051712 
051714 
051714 
051716 
051722 
051726 
051732 
051734 
051736 
051742 
051742 
051744 
051746 
051750 
051752 
051752 
051754 
051754 
051754 
051756 
051764 
051766 
051772 



051772 
051772 
051772 
051774 
052000 
052006 
052012 
052016 



052024 
052030 
052032 
052032 
052036 
052040 



011746' 
104406 

017701 131172 
013702 054056' 
162702 000001 
020102 
001406 

005237 002212' 

104456 
001035 
0S4435' 
015374' 

104406 



104403 

023727 002212' 000017 
103402 

004737 017104* 



170* : 



104402 
004737 
013737 
004737 
004737 
J13737 



200* : 



055246' 
054060' 
055340' 
055402' 
054060' 



054056' 
054062' 



004737 015674' 
103427 

012727 000250 
000000 

013727 002116' 



CKLOOP 

MOV 
MOV 
SUB 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 
ENOSUB 



aFREE.Rl 

T25CN2.R2 

*1.R2 

R1.R2 

200 « 

FATFLG 

ERRNO . T25UNG . EXPREC 



9991 i 



CMP 
BLO 
JSR 



FATFLG,#15. 
9991 

PC.CKOROP 



.UORO PKTSSR 

I LOOP IF SELECTED 

TRAP C»CLP1 
J GET FIRST WORD FROM BUFFER 
tSET UP EXPECTED 

I SHOULD BE LAST RECORD 

I WAS RECORD NUMBERED R3 

iBR. IF CORRECT RECORD 

J BUMP COUNT 

I SHOULD HAVE BEEN RECORD NUMBER 1 

TRAP CIERHRD 
.WORD 541 
.WORD T25WNG 
.UORO EXPREC 

TRAP C«CLP1 
!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10076: 

TR**- C»ESUB 
lis ERROR COUNT A* ^:, 
tBR. IF LESS THAN 25 
{TRY TO DROP THE UNIT 



TEST 5. SUBTEST 6 

VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE A 
MULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE 
MAXIMUM NUMBER OF RECORDS URITTEN ON THE TAPE 
UHICH EVER IS LESS. 



BGNSUB 



JSR 
MOV 
JSR 
JSR 
MOV 



PC.T25REST 

T25CNT.T25CN2 

PC.T25RT2 

PC.T25RT3 

T25CNT.T250LY 



OBSUB 



;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
TS.6: 

TRAP 

iSET COMMAND PACKET 
I SET UP RECORD COUNTER 
tSET UP OTHER COMMAND PACKLT 
(SET UP OTHER COMHAM) PACKE. 
{SET UP REWIND DELAY COUNTER 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



101: 



JSR 
BCS 
DELAY 



PC.SOFINIT 

20 1 

250 



iDO INITIALIZE ON CONTROLLER 

{BR IF INIT WAS OK 

I WAIT ABOUT .25 SECONDS 

MOV 

.UORO 

MOV 



•250.(PC)» 

0 

L»DLY,CPC)» 



N14 



TSV7 HARDWARE TESTS 1-6 
TEST 5: SPACE RECORDS 



MACRO nillS Ol-FEB-64 17:54 



SEQ 182 



4643 
4644 
4645 
4646 
4650 



4651 
4652 
4653 
4654 
4655 
4656 
4657 
4656 
4659 
4660 
4661 
4862 
4663 
4667 
4666 



4869 

4870 
4871 
4872 
4873 
4674 
4675 
4676 
4677 
4676 
4679 
4880 
4884 



4885 

4666 
4667 
4666 
4689 



052044 000000 

052046 005367 177772 

052052 001375 

052054 005367 177756 

052060 001367 

052062 005337 054062* 

052066 001356 

052070 016501 000002 

052074 005237 002212' 

052100 

052100 104455 

052102 001036 

052104 003642' 

052106 011734' 

052110 013737 002172' 053720' 201 i 



052116 012704 053700' 



052122 
052126 
052130 
052134 
052136 
052136 
052140 
052142 
052144 
052146 
0S2146 



052150 
052154 
052156 
052160 
052164 
052164 
052166 
052170 
052172 
052174 
052174 



DEC T250LY 

SHE 101 

MOV TSSR(R5).R1 

INC FATFLG 

ERROF ERRNO.SFIERR.SFinSG 



MOV UNITN.T250SU 
MOV «T25PACKET.R4 



.WORD 0 
DEC -6(PC) 
BNE -4 
DEC -22(PC) 
BNE . -20 

I DEC COUNTER 

I BR. IF MORE LOOPS REQUIRED 

i CONTENTS OF TSSR REGISTER 
I BUMP COUNT 

I FATAL ERROR TSSR UAS NOT OK 

TRAP CtERDF 
.WORD 542 
.WORD SFIERR 
.UORO SFIMSG 

I SET UP UNIT NUMBER 

(SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 
001037 
005046' 
011734' 

104406 



251: 



JSR 
BCS 
INC 
MOV 

ERRHRD 



CKLOOP 



PC. WRTCHR 
25$ 

FATFLG 
RO.Rl 

ERRNO . WRTMSG . SFIMSG 



t ISSUE WRITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
; WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.UORO 
.WORD 

(LOOP IF SELECTED 

TRAP 



CIERHRO 
543 

WRTMSG 
SFIMSG 

C«CLP1 



I ISSUE REWIND COMMAhO TO SELECTED TAPE DRIVE 



004737 01C714' 

103407 

010001 

005237 002212* 

104456 
001040 
055035' 
011746' 

104406 



30«: 



JSR 
BCS 
MOV 
INC 

ERRHRD 



CKLOOP 



PC. REWIND 

301 

RO.Rl 

FATFLG 

ERRNO. T25RWN.PKTSSR 



I CALL TAPE REWIND COMMAND 
iBR. IF NO PROBLEM 
J SAVE TSSR 
iBUMP COUNT 
i REWIND NOT ACCEPTED 



iLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CSERHRO 
544 

T25RWN 
PKTSSR 

C»CLP1 



iREAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



B15 



TSV7 
TEST 



HAROUARL TESTS 1-6 
5: SPACE RECORDS 



MACRO HI US 01 FEB 84 17:54 



SEQ ISS 



4890 
*89l 
489^ 
4695 
4894 
4695 
4896 
4697 
4896 
4902 



4903 

4904 
4905 
4906 
4907 
4906 
4909 
4910 
4911 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 



052176 
052202 
052204 
052210 
052212 
052214 
052220 
052220 
052222 
052224 
052226 
052230 
C52230 
052232 
052236 
052242 
052244 
052246 
052250 
052252 
052254 
052254 



053730 
000002 

002212' 



013701 
010102 
052702 
020102 
001406 
0C5237 

104456 
001041 
054225' 
015374- 

104406 

013701 
012702 
020201 
003002 
010103 
000401 
010203 



010337 054032' 



40t: 



054056- 
177776 



461: 
47$: 



MOV 
MOV 
BIS 
CMP 
BEQ 
INv. 

ERRHRO 



CKLOOP 

MOV 

MOV 

CMP 

BGT 

MOV 

BR 

MOV 

MOV 



T256FR>6,R1 

R1.R2 

•BIT1.R2 

R1.R2 

40( 

FMFLG 

ERRN0.T2SB0T.EXPREC 



T2SCN2.R1 

•65534.. ft2 

R2.R1 

461 

R1.R3 

47t 

R2.R3 

RS.T2SM 



SPACE FORUARO.ACK.CVC"! COMHANO 



4920 052260 


012737 


140010 054030- 


MOV 


#140010. T2SPKS 


4921 052266 


012704 


054030- 


MOV 


4T2SPK5.R4 


4922 052272 


010465 


000000 


MOV 


R4.TS0e(R5) 


4923 052276 


013737 


054056' 054062- 


MOV 


T25CH2.T250Lt 


4924 052304 


004737 


016150' 481: 


JSfl 


PC.MAITF 


4925 052310 


016501 


000002 


MOV 


TSSR(R5).R1 


4926 052314 


012702 


000200 


MOV 


•SSR.R2 


4927 052320 


020102 




CMP 


R1.R2 


4926 052322 


001425 




BCQ 


50* 


4929 052324 






OELAV 


2S0 


052324 


012727 


000250 






052330 


000000 








052332 


013727 


002116' 






052336 


000000 








052340 


005367 


177772 






052344 


001375 








052346 


005367 


177756 






052352 


001!i67 








4930 052354 


005337 


054062' 


DEC 


T25DLT 


4931 052360 


001351 




BK£ 


46 » 


4952 052362 


005237 


002212' 


INC 


FATFLG 


4936 052366 






ERRHRO 


ERRN0.T25W0E.EXPREC 


052366 


104456 








052370 


001042 








052372 


054145- 









I PICK UP XSTC 

I SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

iBR. IF EQUAL (OK) 

iBUHP COUNT 

I TAPE NOT AT BOT AFTER REUINO 

TRAP CtER*-«0 
.UORO 545 
.UORO r2S80T 
.yORD EXPREC 

ILOOP IF SELECTED 

TRAP CICLPl 
t NUMBER OF RECORDS ON TAPE 
{MAX XT CAN SPACE OVER 
lUHlCH VALUE CAN WE USE 
iBR. IF • WRITTEN > 64K 
I* WRITTEN CAN BE USED 
iMOVE ON 
tUSE MAX NUMBER 

iNUWER OF RECORDS TO SPACE OVER 



(SPACE FORUARO.ACK.CVC-1 COmAND 

I SET UP R4 WITH PACKET ADDRESS 

I ISSUE COmANO 

tSET UP DELAY COUNTER 

lUAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

I SET UP EXPECTED 

lARE THET EQUAL 

iBR. IF OK 

I WAIT .25 SECOM>S 

MOV 

.UORO 

MOV 

.UORO 

DEC 

BNE 

DEC 

BNE 

I DEC THE DEL At COUNTER 

iBR, If COUNTER HASN'T EXPIRED 

I BUMP COUNT 

I TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 



#250. (PC)* 
0 

LIDLt .(PC)^ 
0 

6(PC) 
. -4 

-22(PC) 
. 20 



CIERHRD 
546 

T25W0E 



Ci5 



TSV7 HARDWARE 
TEST 5: SPACE Rl 



49S7 

49Sa 
4939 
4940 
4941 
4942 
4943 
4944 
4945 
4946 
4947 
4946 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
495a 
4959 
4960 
4961 
4962 
4963 



052574 
052576 
052576 
052400 
052404 
052410 
052412 
052414 
052416 
052420 
052422 
052426 



4964 
4965 
4966 
4970 



4971 

4972 
4973 
4974 
4975 
4976 
4977 
4976 
4979 
4960 
4981 



052432 
052440 
052444 
052450 
052456 
052462 
052466 
052472 
052474 
052476 
052476 
052502 
052504 
052510 
052512 
052516 
052520 
052524 
052526 
052532 
052534 
052540 
052540 
052542 
052544 
052546 
052550 
052550 
052552 
052556 



015574 
104406 

015701 054056* 

012702 177776 

020201 

003002 

010103 

000401 

010203 

162703 000001 
010337 054032' 



501 1 



551: 
60t: 



FEB 04 


17;54 






nuv 




HUV 




/*MD 
t~ 




DPT 




HOV 


R1.R3 


BR 


60t 


HOV 


R2.R3 


SUB 


•1.R3 


HOV 


R3.T25AB 



SPACE RE VERSE. ACK.CVC"! COMTMNO 



012737 140410 054030' 

012704 054030' 

010465 000000 

013737 054056* 054062' 

004737 016150' 701: 

016501 000002 

012702 000200 

020102 

001425 



012727 000250 
000000 

01S727 002116' 
000000 

005367 177772 
001375 

005367 177756 
001367 

005337 054062' 
001351 

005237 002212' 

104456 
001043 
054145' 
015374' 

104406 

012703 010000 

013737 003114* 054032' 



nov 
nov 

NOV 

nov 
JSR 
nov 
nov 
cnp 

BEO 
DELAY 



•140410. T2SPKS 

•T25PKS.R4 

R4.TS0B(R5) 

T2SCN2.T250Lr 

PC.UAITF 

TSSR(R5).R1 

#SSR.R2 

R1.R2 

75» 

250 



751: 



DEC 
BNE 
IHC 

ERR»«0 



CKLOQP 



T250LT 
701 

FATFLG 

ERRNO . T25UDE . E XPREC 



SEQ 184 



.WORD E XPREC 

TRAP CiCLPl 
iNCrSER or RECORDS ON TAPE 
I MAX IT CAN SPACE OVER 
I WHICH VALUE CAN UE USE 
iBR. IF • WRITTEN > 64K 
i« WRITTEN CAN BE USED 
I HOVE ON 
I USE HAX NUMBER 
iDON'T GO ALL THE WAY YET 
{NUMBER OF RECORDS TO SPACE OVER 



MOV 
MOV 



•4096. .RS 

FREE.T25RB 



I SPACE RE VERSE. ACK.CVC-1 C&tWNO 

I SET UP R4 WITH PACKET ADDRESS 

I ISSUE COMMAND 

I SET UP COUNTER 

lUAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

I ARE THEY EQUAL 

iBR. IF OK 

I WAIT ABOUT .25 SFCONOS 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

iBXf^ COUNTER DOWN 

iBR. IF COUNTER HASN'T EXPIRED 

I BUMP COUNT 

I TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 

I RECORD SIZE 

I STARTING READ BUFFER ADDRESS 



•250. (PC). 
0 

L IDLY. (PC). 
0 

-6(PC) 
. 4 

-22(PC) 
. 20 



C»ER»«D 
547 
T25WDE 
EXPREC 



C»CLP1 



READ DATA.ACK COMMAND 



052564 012737 100001 054030' 



MOV 



•100001. T25PK J 



iREAD DATA.ACK COMMAND 



Di5 



MACRO Mil 15 01 FEB 84 17;54 



5EQ las 



4<>82 


012704 


0540S0' 165«: 


MOV 


•T25PK3,R4 


iSET UP R4 WITH PACKET ADDRESS 




490S 0S2S76 
4W 052602 


012700 
004737 


177777 
017324' 


nov 
JSR 


#177777, RO 
PC.FILLMEM 


^ INTO CORRECT REGISTER 
iFlLL MEMORY UlTH RECORD SIZE 


4965 052606 


010337 


054036' 


HOV 


R3.T25SZ 


iSET iJP RECORD SIZE IN PACKET 




4966 052612 


010465 


000000 


nov 


R4.TS0B(R5) 


i ISSUE COMMAND 




4967 052616 


004737 


016150' 


JSR 


PC.UAITF 


lUAIT FOR SSR TO SET 




4966 052622 


016501 


000002 


MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 




4969 052626 


012702 


000200 


MOV 


•SSR.R2 


iSET UP EXPECTED 




4990 052632 


020102 




CMP 


R1.R2 


lARE THEY EQUAL 




4991 052634 


001411 




BEQ 


170$ 


iBR. IF OK 




4992 052636 


032701 


000004 


BIT 


•6IT2.R1 


1 CHECK FOR TAPE STATUS ALERT 




4993 052642 


001006 




BNE 


1701 


iBR. IF BIT SET 




4994 052644 


005237 


002212' 


INC 


FATFIG 


iBUMP COUNT 




4996 052650 






ERftHRO 


ERRNO . ROERR . EXPREC 


iTSSR INCORRECT AFTER READ DATA 




052650 


104456 








TRAP 


C$ERHRD 


052652 


001044 








.UORD 


548 


052654 


005176* 








.WORD 


RDERR 


052656 


015374- 








.UORD 


EXPREC 


4999 052660 




170»: 


CKLOOP 




iLOOP IF SELECTED 




052660 


104406 








TRAP 


C$CLP1 


5000 052662 


017701 


130226 


MOV 


VREE.Rl 


iGET FIRST WORD FROM BUFFER 


5001 052666 


012702 


000001 


MOV 


•1.R2 


t SET UP EXPECTED 




5002 052672 


020102 




CMP 


R1.R2 


lUAS RECORD NUMBERED R3 




5003 052674 


001406 




BEQ 


2001 


iBR. IF CORRECT RECORD 




5004 052676 


005237 


002212' 


INC ^ 


FATFLC 


iBUMP COUNT 




5006 052702 






errhro 


ERRNO. T25VMH.EXPREC 


1 SHOULD HAVE BEEN RECORD NUMBER 


1 


052702 


104456 






TRAP 


C»ER»«D 


052704 


001045 








.MORD 


549 


052706 


054610' 








.UORD 


T25UM1 


052710 


015374' 








.WORD 


EXPREC 


5009 052712 




2001: 


CKLOOP 








052712 


104406 








TRAP 


CiCLPl 


5010 052714 






EMDSUB 




!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


052714 










1.10077: 




052714 


104403 








TRAP 


CtESUB 


5011 052716 


023727 


00^212' 000017 


CMP 


FATFLG.#15. 


;IS ERROR COUNT AT 25 




5012 052724 


103402 




BLO 


999$ 


tBR. IF LESS THAN 25 




5013 052726 


004737 


017104' 


JSR 


PC.CKOROP 


;TRY TO DROP T»€ UNIT 




5014 052732 




9991: 











5015 
5016 
5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 

5027 052732 
052732 
052732 

5028 052754 
502'» 052740 
5030 052744 



I TEST 5. SUBTEST 7 

{'verifies THAT SPACE RECORDS REVERSE ISSUED UHILE THE 

{TAPE IS AT SOT RESULTS IN FUNCTION REJECT TERMINATION 

{WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET. 

t 

I 

1 

I - 



104402 

004737 055246' 

004737 055340' 

004737 055402' 



BGNSue 



JSR 
JSR 
JSR 



)>>>>>>>>>>>> 



PC.T25RESI 

PC.T25RT2 

PC.T2SRT3 



BEGIN SUBTEST >>>>> 
T5.7: 

TRAP C 

»SET COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 



>>>>>>> 



$Bsi.e 



E15 



TSvr 
TEST 



HARDWARE TESTS 1 
5: SPACE RECORDS 



HACRO nill5 01 FEB 84 17:54 



SEQ 186 



5051 
5032 
5055 
5034 
5055 
5036 
5037 
5058 
5059 
5040 
5044 
5045 



5046 
5047 
5046 
5049 

SOSO 
5051 
5052 
5053 
5054 
SOSS 
5056 
5057 
5058 
5062 
5063 



5064 

5065 
5066 
5067 
5066 
5069 
5070 
5071 
5072 
5073 
5074 
5075 
5079 



5060 

5081 
5062 



ISSUE CONTRXLER "SOFT- INITIALIZE - CMWY BIT CLEAR IF EfWIOR 



052750 
052754 
052756 
052762 
052764 
052764 
052766 
052770 
052772 
052774 



004737 
10M07 
005237 
010001 

104455 

001046 

003642* 

011734' 

013737 



015674* 
002212* 



053002 012704 



002172* 
053700* 



053720' 201: 



JSR PC.SOFINIT 

BCS 201 

INC FATFLG 

MOV RO.Rl 

ERROF ERRNO.SFIERR.SFINSG 



MOV UNITN.T2S0SU 
MOV ♦T2SPACKET.R4 



(DO INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
iBUHP COUNT 

{CONTENTS OF TSSR REGISTER 
tFATAL ERROR TSSR MAS NOT OK 

TRAP 
.UORD 



I SET UP UNIT NUMBER 



.UORO 



CiEROF 
550 
SFIERR 
SFIMSG 



I SUBROUTINE NEEDS PACKET ADDRESS 



URITE CHARACTERISTICS COMMAND (CULL TO URTDM) 



053006 
053012 
053014 
053020 
053022 
053022 
053024 
053026 
053030 
053032 
053032 



004737 010562* 
103407 

005237 002212* 
010001 

104456 
001047 
005046' 
011734' 

104406 



25«: 



JSR PC.URTCHR 

BCS 2St 

INC FATFLG 

MOV RO.Rl 

ERRNRO ERRNO.MRTNSC.SFINSC 



CKLOOP 



t ISSUE MRITE CHARACTERISTICS 
iBR. IT COMNMND ISSUED OK 
tBUMP COUNT 

I SAVE CONTENTS OF TSSR 
lURITE CHARACTERISTISC FAILED 

TRAP 
.yORO 



iLOOP IF SELECTED 



.UORO 
TRAP 



OERHRD 
551 

URTMSG 
SFIMSG 

OCLPl 



I ISSUE REMIND C O MM AN D TO SEUCTEO TAPE DRIVE 



053034 
053040 
053042 
053044 

053050 
053050 
053052 
053054 
053056 
053060 
053060 



004737 010714' 

103407 

010001 

005237 002212' 

104456 

001050 

055035' 

011746* 

104406 



301 { 



JSR PC. REMIND 

BCS sot 

MOV RO.Rl 

INC FATFLG 

ERRHRO ERRN0.T25RMN.PKTSSR 



CKLOOP 



I CALL TAPE REMIND COTtlAND 

tBR. IF NO PROBLEM 

tSAVE TSSR 

tBUMP COUNT 

I REMIND NOT ACCEPTED 

TRAP 
.MORO 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 



CtERMtO 

552 

T25RUN 

PKTSSR 

C»CLP1 



F15 



TSV7 HAROUARE TESTS 1-8 
TEST 5: SPACE RECORDS 



5085 
5084 
5085 
5086 
5087 
5088 
5089 
5090 
5091 
5092 
5093 
5097 



MACRO Mills Ol-FEB-84 17:54 



SEQ 187 



iREAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



5096 

5099 
5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5106 
5109 
5110 
5111 
5112 
5113 
5114 
5115 
5116 
5120 



5121 

5122 
5123 
5124 
5125 
5126 
5127 
5126 
5129 
5130 
5131 
5132 
5133 
5134 
5138 



053062 
053066 
053070 
053074 
053076 
053100 
053104 
053104 
053106 
053110 
053112 
053114 
053114 
053116 



053200 
053204 
053206 
053212 
053214 
053216 
053222 



013701 053730' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 

001051 

054225' 

015374' 

104406 

012737 000001 054032' 



40$; 



MOV T258FR.6.R1 

MOV R1.R2 

BIS •BIT1.R2 

CMP R1.R2 

BEQ 401 

INC FATFLG 

ERRHRD ERRNO , T2SB0T , EXPREC 



CKLOOP 

MOV •1.T25RB 



I PICK UP XSTO 

I SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

iDOES EXP • REC'D 

iBR. IF EQUAL (OK) 

I BUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP CIERHRO 
.WORD 553 
.WORD T2S60r 
.WORD EXPREC 

iLOOP IF SELECTED 

TRAP CICLPl 
iNUMBER OF RECORDS TO SPACE OVEM 



SPACE RE VERSE. ACK COftMNO 



053124 


012737 


100410 054030' 


MOV 


053132 


012704 


054030' 


MOV 


053136 




6S>t 




053136 


010465 


000000 


MOV 


053142 


004737 


016150' 


JSR 


053146 


016501 


000002 


MOV 


053152 


012702 


100206 


MOV 


053156 


020102 




CHP 


053160 


001406 




BEQ 


053162 


005237 


002212' 


INC 


053166 








053166 


104456 






053170 


001052 






053172 


054145' 






053174 


011746* 






053176 




75* : 


CKLOOP 


053176 


104406 







n00410,T2SPK3 
♦T25PKS.R4 

R4.TS0BCR5) 

PC.IMITF 

TSSIKI»).R1 

•SSII!SC!BIT1!BIT2.R2 

R1.R2 

751 

FATFLG 

ERRNO. T2SU0E .PKTSSR 



I SPACE REVERSE. ACK COMMAND 

I SET UP R4 WITH PACKET ADDRESS 

I ISSUE COHNANO 
iWAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
I SET UP EXPECTED 
I ARE T»CY EQUAL 
iBR. IF OK 
iBUMP COUNT 

I TSSR INCORRECT AFTER READ DATA 

TRAP CIERHRO 
.WORD 554 
.WORD T25WDE 
.WOPO PKTSSR 

tLOOP IF SELECTED 

TRAP CtCLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 053730' 
010102 

052702 002000 

020102 

001406 

005237 002212' 



MOV T2SBFR»6.R1 

MOV R1.R2 

BIS 46IT10.R2 

CMP R1.R2 

BEQ 1701 

INC FATFLG 

ERRHRD ERRNO . T25NEF . EXPREC 



;GET XSTO STATUS WORD 

I SET UP EXPECTED 

I SET THE NEF BIT 

I ARE THEY EQUAL 

iBR. IF EQUAL (GOOD) 

I BUMP COUNT 

iNEF SHOULD BE SET 



TSV7 
TEST 



HARDWARE TESTS I 6 
5: SPACE RECORDS 



HACRO Ml 113 01 -FEB -M 17:54 



SEQ las 



5139 
5140 



5141 
5142 
5143 
5144 
5145 
5146 
5147 
5148 
5149 
5150 
5151 
5152 
5153 
5154 
5155 
5156 
5157 
5156 
5159 



5160 
5161 
5162 
5163 
5164 
5165 
5166 
5167 
5168 
5169 
5170 
5171 
5172 
5176 
5177 



5178 
5179 
5160 
3181 
5182 
5183 
5164 
5165 



053222 
053224 
053226 
053230 
053232 
053232 
053234 
053234 
053234 
053236 
053244 
053246 
05S2S2 



053252 
053252 
053252 
053254 
053260 
053264 



053270 
053274 
053276 
053302 
053304 
053304 
053306 
053310 
053312 
053314 



104456 

001053 

054673' 

015374' 

104406 



104403 

023727 002212' 000017 
103402 

004737 017104' 



104402 

004737 055246' 

004737 055340' 

004737 055402' 



004737 01S674' 
103407 

005237 002212' 
010001 



104455 

001054 

002S42' 

011734' 

013737 



053322 012704 053700' 



170»! 



9991: 



CKLOOP 
ENDSUB 



CMP rATFLG.#15. 

BLO 9991 

JSR PC.CKDROP 



TRAP CtERHRD 

.WORD 555 

.WORD T25NEr 

.WORD EXPREC 



TRAP 

LlOlOO: 

TRAP 

(IS ERROR COUNT AT 25 
»BR. IF LESS THAN 25 
>TRT TO DROP THE UNIT 



C»CLP1 



CtESUB 



TEST 5. SUBTEST 8 

VERIFIES THAT A SPACE RECORDS REVERSE COHHANO THAT 
CUASES THE TAPE TO RUN INTO BQT (UITH THE TAPE NOT 
INITIALLY AT BQT) CAUSES A TAPE STATUS ALERT 
TERMINATION AND SETS THE REVERSE INTO BOT (RIB) 
STATUS BIT 



BGNSUB 



JSR 
JSR 
JSR 



PC.T25REST 

PC.T25RT2 

PC.T2SRT3 



!>>>>>>>>>>>> BEGIN S*J8TEST >>>>>>>>>>>> 
TS.6: 

TRAP C«BSUB 

J SET COftlANO PACKET 

I SET UP OTHER COmAND PACKET 

tSET UP OTHER COTtMNO PACKET 



ISSUE CONTIKILLER "SOFT" INITIALIZE - CARRY BIT aEAR IF ERROR 



002172- 053720' 201 t 



JSR PC.soriNir 

BCS 20t 

INC FATFLG 

HQV RO.Rl 

ERRDF ERRN0.SFIERR»SFIf1SG 



HOV UNITN.T25DSU 
MOV •T25PACKET.R4 



I 00 INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
jBUMP COUNT 

{CONTENTS OF tssR REGISTER 
tFATAL ERROR TSSR HAS NOT OK 

TRAP C»ERDF 
.WORD 556 
.WORD SFIERR 
.WORD SFIMSC 

J SET UP UNIT NUMBER 

(SUBROUTINE NEEDS PACKET ADDRESS 



{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



Hi5 



TSV7 
TEST 



HAROUARE TESTS 1 
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SEQ 189 



5186 
5187 
5188 
5189 
5190 
5194 
5195 



5196 

5i97 
5198 
5199 
5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5211 



5212 

5213 
5214 
5215 
5216 
5217 
5216 
5219 
5220 
5221 
5222 
5223 
5224 
5225 
5229 



5230 

5231 
5232 
5233 
5234 
5235 
'236 



053326 
053332 
053334 
053340 
055342 
053342 
053344 
053346 
053350 
053352 
053352 



053354 
053360 
053362 
053364 
053370 
053370 
053372 
053374 
053376 
053400 
053400 



053402 
053406 
053410 
053414 
053416 
053420 
053424 
053424 
053426 
053430 
053432 
053434 
053434 
053436 



004737 010562' 
103407 

005237 002212' 
OlOOOl 

104456 
001055 
005046' 
011734' 

104406 



251: 



JSR 
BCS 
INC 

nov 

ERRHRD 



CKLOOP 



PC.MRTCHR 
25 » 

FATFLG 
PO.Rl 

ERRNO . URTMSG . SF IMSG 



I ISSUE WRITE CHARACTERISTICS 
I BR. If COMMAND ISSUED OK 
iBUMP COUNT 

I SAVE CONTENTS OF TSSR 
lURITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.UORO 

I LOOP IF SELECTED 

TRAP 



ISSUE REUIND COMMAND TO SELECTED TAPE DRIVE 



004737 010714' 

103407 

010001 

005237 002212' 

104456 
0010S6 
055035' 
011746' 

104406 



30* : 



JSR 
BCS 
MOV 
INC 

ERRHRO 



CKLOOP 



PC. REUIND 
30( 
RO.Rl 
FATFLG 

ERRNO. T25IMN.PKTSSR 



tCALL TAPE REUINO COMMAND 

tBR. IF NO PROBLEM 

I SAVE TSSR 

iBUTf COUNT 

{REWIND NOT ACCEPTED 

TRAP 
.UORD 
.UORD 
.UORD 

I LOOP IF SELECTED 

TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 



013701 05S7S0' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001057 
054225' 
015S74' 

104406 

012737 000001 054032' 



40$: 



MOV T258FR»6,Rl 

MOV R1.R2 

BIS «6IT1.R2 

CMP R1.R2 

BEQ 40$ 

INC FATFLG 

ERRHRD ERRNO. T2SB0T.EXPRFC 



CKLOOP 

MOV »1 , T25RB 



I PICK UP XSTO 

I SET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

lOOES EXP - REC'D 

;BR. IF EQUAL (OK) 

I BUMP COUNT 

sTAPE NOT AT BOT AFTER REUIND 

TRAP 
.UORD 
.UORO 
.UORD 



CtERHRD 

557 

URTMSG 
SFIMSG 

C»CLPl 



C«ER»«0 
558 

T2SRUN 
PKTSSR 

C«CLP1 



CSERHRD 
559 
T2560T 
EXPREC 



TRAP CtCLPl 
iNUMBER OF RECORDS TO SPACE OVER 



; SPACE FORWARD. IE. ACK.CVC- I COMMAND 



115 



TSV7 HARDWARE TESTS I 
TEST 5: SPACE RECORDS 
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SEQ 190 



S257 
















S2S8 
















5259 


053444 


012737 


140210 


054030' 


nov 


•140210. T25PK3 


iSPACE FORWARD. IE. ACK.CVC-1 COnnAND 


5240 


053452 


012704 


054030* 




nov 


•T25PK3.n4 


iSET UP R4 WITH PACKET ADDRESS 


5241 


0SS4S6 


010465 


000000 




nov 


R4.TS0B(f5) 


1 ISSUE connAND 


5242 


053462 


004737 


016150* 




JSR 


PC.UAITF 


lUAI^ FOR SSR TO SET 


5243 


053466 


016501 


000002 




nov 


TSSR(R5).K1 


iGET TSSR CONTENTS 


5244 


053472 


012702 


000200 




nov 


•SSR.R2 


1 SET UP EXPECTED 


5245 


053476 


020102 






cnp 


R1.R2 


lARE THEY EQUAL 


5246 05S500 


001406 






BEQ 


751 


iBR. IF OK 


5247 


053502 


005237 


002212* 




INC 


FATFLG 


iBUnP CO'JNT 


5251 


053506 








ERRHRD 


ERRNO . T25MDE . EXPREC 


tTSSR INCORRECT AFTER READ DATA 




053506 


104456 










TRAP CtERHfK) 




053510 


001060 










.WORD 560 




053512 


054145' 










.UORO T25UDE 




053514 


015374- 










.WORD EXPREC 


5252 


053516 






751: 


CKLOOP 




(LOOP IF SELECTED 




053516 


104406 










TRAP C»CLPl 


5253 


053520 


012737 


000020 


054032* 


nov 


•20.T2SRe 


iNUnBER OF RECORDS TO SPACE OVER 



5254 

5255 
5256 
5257 
5258 
5259 
5260 
5261 
5262 
5263 
5264 
5265 
5266 
5267 
5266 
5269 
5273 



5274 

5275 
5276 
5277 
5278 
5279 
5280 
5284 



5285 
5286 



053526 
053534 
053540 
053544 

053550 
053554 
053560 
053562 
053564 
053570 
053570 
053572 
053574 
053576 
0536C0 
053600 
053602 
053606 
053610 
053614 
053616 
053620 
053624 
053624 
053626 
053630 
053632 
053634 
053634 
053636 
053636 



SPACE REVERSE. IE. ACK COnnAND 



012737 100610 054030* 

012704 054030* 

010465 000000 

004737 016150' 

016501 000002 

012702 100204 
020102 
001406 

005237 002212' 

104456 
001061 
054145* 
015374' 

104406 

013701 053736' 
010102 

052702 000001 

020102 

001406 

005237 002212' 

104456 

001062 

054673' 

015374' 

104406 



nov 


•100610, T25PK3 


i SPACE REVERSE. IC. ACK COnnAND 
tSE^ UP R4 WITH PACKET ADDRESS 


NOV 


•T25PK3.R4 


nov 


R4.TS0B(R5} 


(ISSUE COMNANO 


JSR 


PC.WAITF 


iWAI'i FOR SSR TO SET 


nov 


TSSR(RS).R1 


(GET TSSR CONTENTS 


NOV 


•SSR!BIT2!SC.R2 


J SET UP EXPECTED 


cnp 


R1.R2 


(ARE THEY EQUAL 


BEQ 


175» 


:BR. IF OK 


INC 


FATFLG 


jBUnP COUNT 


ERRHRD 


ERRNO . T2SUDE . EXPREC 


iTSSR INCORRECT AFTER READ DATA 



1751s 



CKLOOP 




J LOOP IF SELECTED 


nov 


T25BFR.14,Hl 


sGET XST3 STATUS WORD 


nov 


R1.R2 


! SET UP EXPECTED 


BIS 


4eiT0.R2 


iSET THE RIB BIT 


CMP 


R1.R2 


lARE THEY EQUAL 


BEQ 


1801 


J BR. IF EffJAL (GOOD) 


INC 


FATFLG 


;BUMP COUNT 


ERRHRD 


ERRNO . T2SNEF . EXPREC 


iNEF SHOULD BE SET 



TRAP 
.UORO 
.WORD 
.WORD 

TRAP 



CIERHRO 
561 

T25W0E 
EXPREC 

CICLPl 



1601: 



CKLOOP 
ENDSUB 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRO 
562 
T25NEF 
EXPREC 



TRAP CSCLPl 
;>>>>>>>>>>>> END SUBTEST 
LlOlOl: 



J15 
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5287 
5288 
5289 
5290 
5291 
5292 
5293 
5294 
5295 
5296 
5297 
5298 



053636 
053640 
053646 
053650 
053654 



053654 
053660 
053662 
053666 
053666 
053666 
053670 



104403 

023727 002212' 000017 
103402 

004737 017104' 



004737 016360' 
103002 

000137 046536' 



104432 
001542 



999»: 
I 
I 
I 



193 1; 



CMP 
BLO 
JSR 



JSR 

see 

JMP 
EXIT 



FATFLG.#15. 
9991 

PC.CKDROP 



PC.TSTLOOP 

1931 

T25L00P 



TST 



5299 












5300 






i ♦ 






5301 






(LOCAL 


STORAGE 


FOR TMIS TEST 


5302 






t - 






5304 


053672 






.BLKB 


10-«.-TSV2fi7> 


5306 


053700 




T2SPACKET: 




5307 


053700 


100004 




.UORO 


100004 


5306 


053702 


053710' 




.UORO 


T2S0ATA 


5309 


053704 


000000 




.UORD 


0 


5310 


053706 


000010 




.UORO 


8. 


5311 


053710 




T250ATA: 




5312 


053710 


053722' 




.UORO 


T258FP 


5313 


053712 


000000 




.UORO 


0 


5314 


053714 


000012 




.UORD 


10. 


5315 


053716 


000000 




.UORO 


0 


5316 


053720 


000000 


T2S0SU: 


.UORO 


0 


5317 


053722 




T2S8FR: 


.8LKU 


25. 


5318 












5319 






! UNITE 


SUBSYSTEM MEMORY COMMAI 


5320 






i 






5322 


054004 






.BLKB 


10-<.-TSV2fi7> 


5324 


054010 




T25PK2: 






5325 


054010 


100006 




.UORD 


100006 


5326 


054012 


054040' 




.UORD 


T25Bf2 


5327 


054014 


000000 




.UORD 


0 


5328 


054016 


000006 




.UORO 


6. 


5329 












5331 


054020 






.BLKB 


10-<. -TSV2C7> 


5333 


054030 




T25PK3: 






5334 


054030 


100005 




.UORD 


100005 


5335 


054032 




T25RB: 






5336 


054032 


003114' 


T2SUB: 


.UORD 


FREE 


5337 


054034 


000000 




.UORO 


0 


5338 


054036 


000000 


T25SZ: 


.UORD 


0 


5339 








.EVEN 




5340 






1 






5341 






i 


















5343 


054040 




T25eF2: 






5344 


054040 


010 


T258S0: 


.BYTE 


10 


5345 


054041 


200 


T258S1! 


.BYTE 


200 


5346 


054042 


000000 


T25S2: 


.UORD 


0 



SEQ 191 



TRAP C«ESUB 
lis ERROH COUNT AT 25 
iBR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



lOO UE NEED TO ITERATE TEST 
I BR. IF NO LOOP REQUIRED 
{EXECUTE AGAIN 

(ALL DONE THIS TEST 

TRAP CtEXIT 
.UORD L10071- 



t COMMAND PACKET FOR TEST 

lURITE CHARACTERISTICS COMMAND. UlTH ACK 

t ADDRESS OF CHARACTERISTICS BLOCK 

t STARTING VALUE OF BLOCK SIZE 
•CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 

•SELECT DRIVE ZERO 
•MESSAGE BUFFER 



•URITE SUB SYS MEM COMMAND. AND ACK 
•ADDRESS OF SELECT BLOCK DATA 

•SIZE OF DATA PACKET 

•READ COMMAND. AND ACK 
•ADDRESS OF URITE BUFFER 
•SIZE OF BUFFER (EXTENT) 



•BSELO AREA 
•BSELl AREA 
iSEL 2 AREA 



K15 



TSV7 
TEST 
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SEQ 192 



5347 
5348 
5349 
5350 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
5358 
5359 
5360 
5361 
5362 
SS63 
5364 
5365 
5366 
5367 
5366 
5369 
5370 
5371 
5372 
5373 
5374 
5375 
5376 
5377 
5378 
5379 
S3«0 
5381 
5382 
5383 
5384 
5385 
5386 
5387 
5388 
5389 
5390 
5391 
5392 
5393 
5394 
5395 
5396 
5397 
5396 
5399 
5400 
5401 
5402 
5403 



054044 000000 



054046 
054050 
054052 
054054 

054056 
054060 
054062 



054064 
054145 
054225 
054272 
054361 
054435 
054520 
054610 
054673 
054753 
055035 
055104 
055157 
055230 



055246 
055246 
055252 
055256 
055262 
055266 
055270 
055274 
055300 
055302 
055306 
055310 
055314 
055320 
055326 
0SS3S0 



100005 
100405 
102005 
177777 

000000 
000000 
000000 



T25S3: .WORD 0 
t 

* .EVEN 

{TAPE nOTION PACKET COMMANO VALUES 

T25RN: .UORO 100005 

T2SU0R: .UORO 100405 

T25C0N: .UORO 102005 

•UORO 177777 

T25CN2: .UORO 0 
T25CNT: .UORO 0 
T2S0LY! .UORO 0 

IlOCAL TEXT MESSAGES FOR TEST 



I DATA AREA 



iREAD DATA CNEXT) 
I READ DATA RETRY 
lURITE CONTINOUS 
I END or DATA 

t COUNTER FOR RECORDS 
(COUNTER FOR RECORDS 
(COUNTER FOR RECORDS 



127 


122 


111 


T25SSR: 


.ASCIZ 


124 


123 


123 


T2SU0E: 


.ASCIZ 


124 


141 


160 


T2SB0T: 


.ASCZZ 


124 


123 


123 


T25TM: 


.ASCIZ 


127 


162 


151 


T25NET: 


.ASCIZ 


123 


160 


141 


T25UNGt 


.ASCIZ 


123 


160 


141 


T2SBNC: 


.ASCIZ 


123 


160 


141 


T2SUNH: 


.ASCIZ 


123 


160 


141 


T2SNEF: 


.ASCIZ 


123 


160 


141 


T25RIB: 


.ASCIZ 


122 


145 


167 


T25RUN: 


.ASCIZ 


104 


162 


151 


T250FL: 


.ASCIZ 


124 


123 


123 


T2SU0C: 


.ASCIZ 


123 


160 


141 


TST2SI0: 





.EVEN 



URITE SUBSYSTEM Hi«c«llan«ous R««d Statu* Failed' 
TSSR Not Correct Aftor POSITION (SPACE) Co— ntf' 
'Ti^ Not At SOT Aft«r REWIND Co — and' 
TSSR Not Corract Aftar POSITION (Spaca Co—and) Rajact' 
Urita Ti^, Statua Alart. But No EOT Sanaad' 
'Spaca formmrd fmil»d To Poaition On Corract Racord' 
'Spaca formmrd, from BOT. Failad To Claar BOT Indication' 
'Spaca a^vmrmm Failad To Poaition On Corract Racord' 
'Spaca fimvmr—. At BOT. Failad To Sat NEF (XSTO)' 
Spaca nmvmr9m. Into BOT. Failad To Sat RIB (XST3)' 
'RaMind CPOSITION) Co— and Not Accepted' 
'Drive 7 Select Failed To Set "OFf In TSSR' 
' TSSR Not Correct After READ DATA 
.ASCIZ 'Space Records' 



I 



iROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
iWRITE SUBSYSTEM MEMORY COMMAND 



T2SREST: 







SAVREG 




tSAVE THE REGISTERS 


012701 


053700' 


MOV 


♦T25PACKET.R1 


1 START OF THE PACKET 


012721 


100004 


MDV 


•100004. (RD* 


lUKITE SUBSYSTEM MEM. UITH ACK 


012721 


053710' 


MOV 


M2S0ATA.(R1)* 


1 ADDRESS OF CHARAISTICS DATA BLOCK 


005021 




aR 


CRD* 


tEXTENOEO AOORESS 


012721 


000012 


MOV 


«10..(R1)* 


{SIZE OF DATA BLOCK IN BYTES 


012721 


053722' 


MOV 


♦T258FR.(R1)» 


.ADDRESS OF MESSAGE BUFFER 


005021 




CLR 


(Rl)» 




012721 


000024 


MOV 


•20.. (RD* 


(LENGTH OF MESSAGE BUFFER 


005021 




CLR 


CRD* 




012711 


000000 


MOV 


•O.(Rl) 


(SELECT DRIVE ZERO 


012702 


000030 


MOV 


•24.. R2 


(NUMBER OF LOCATIONS TO BE CLEARED 


012762 


177777 053722' 641: 


MOV 


•177777, T25BFRCR2) 


(ALL ONES TO MESSAGE BUFFER 


005742 




TST 


-(R2) 


(NEXT LOCATION 


022702 


000000 


CMP 


•0.R2 


(IS R2 AT ZERO >ET 



L15 
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S£Q 193 



5404 


055334 


001371 




5405 


055336 


000207 




5406 








5407 


055340 






5408 


055340 






5409 


055344 


012701 


054010' 


5410 


055350 


012721 


100006 


5411 


055354 


012721 


054040* 


5412 


055360 


005021 




5413 


055362 


012721 


000006 


5414 


055366 


005021 




5415 


055370 


012701 


054040' 


5416 


055374 


005021 




5417 


055376 


005011 




5418 


055400 


000207 




5419 


055402 






5420 


055402 






5421 


055406 


012701 


054030* 


5422 


055412 


012721 


000000 


5423 


055416 


012721 


000000 


5424 


055422 


005021 




5425 


055424 


012721 


000000 


5426 


055430 


000207 




5427 


055432 
055432 
055432 


104401 




5428 








5429 








5430 








5431 








5432 








5433 








5434 








5435 








5436 








5437 








5438 








5439 








5440 








5441 








5442 








5443 








5444 








5445 








5446 








5447 


055434 
055434 






5448 


055434 


012737 


006256' 


5449 


055442 


004737 


017176' 


5454 


055446 


012700 


074607' 


5455 


055452 


004737 


016412' 










5457 


055464 


004737 


021116' 


5458 


055470 


005037 


072056' 


5459 








5460 








5461 









002170' 



002206' 



T25RT2: 



T25RT5S 



BNE 
RTS 



SAVREG 

nov 
nov 

MOV 
CLR 
MOV 
CLR 
hOV 
CLR 
CLR 
RTS 

SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

RTS 

ENOTST 



641 
PC 



•T25PK2,R1 

•100006. (RD* 

•T2SBr2.(Rl)* 

(Rl)» 

«6..(R1)* 

(Rl)» 

«T25BF2.R1 

(Rl)» 

(Rl) 

PC 



•T25PK3,R1 

♦O.CRD* 

«0.(R1)* 

(Rl)» 

•O.CRD* 

PC 



I KEEP GOING UNTIL DONE 
I RE TURN 



I SAVE THE REGISTERS 

I START OF THE PACKET 

lURITE SUBSYSTEM MEM. WITH ACK. 

I ADDRESS Of DATA BLOCK 

I EXTENDED ADDRESS 

I SIZE or DATA BLOCK IN ByTCS 

I POINT TO DATA SEL AREA 



{RETURN 

I SAVE THE REGISTERS 

t START OF THE PACKET 

lURITE SUBSYSTEM MEM. WITH ACK. 

t ADDRESS OF DATA BLOCK 

t EXTENDED ADDRESS 

(SIZE OF DATA BLOCK IN BYTES 

{RETURN 



L10071: 



TRAP 



C9ETST 



.S8TTL TEST 6: REREADS 



t ♦ 

I THIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT 
(COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF 000 AND EVEN 
I DATA BUFFER BOUNDRIES. RECORD SIZES (UP TO 64K BYTES IF MEMORY 
I SPACE IS AWAILIABLE), AND BYTE -SWAP (SWP) AND OPPOSITE (OPP) 
iCONRTOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS ON 
{EXCEPTIONAL OR ERROR COWXTIONSi RECORD LENGTH LONG. RECORD 
•LENGTH SHORT. READ REVERSE AT BOT. ILLEGAL DATA BUFFER ADDRESSES. 
I AND DATA BUFFERS IN NONEXISTENT MEMORY. 
I 

IthE TEST CONSISTS OF THE FOLLOWING 15 SUBTESTS 

I 

I 

t 

t - 



BGNTST 

MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
CLR 



•EPRT2.EPRTSW 

PC.KTOFF 

#TST26ID.R0 

PC.TSTSETUP 

•5.L00PCNT 

PC.MEMCK 

T26CNT 



T6:: 

{SECONDARY ERROR MESSAGE 

lOCN'T NEED KTll 

{ASCII MESSAGE TO IDENTIFY TEST 

{DO INITIAL TEST SETUP 

{PERFORM 5 ITERATIONS 

•CHECK FOR MEMORY 

(CLEAR TAPE RECORD COUNTER 



»♦ 



(TEST 6. SUBTEST I 



M15 



TSV7 
TEST 



HARDWARE JEi 
6: REREADS 



IS 1-8 
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SEQ 194 



5462 
5463 
5464 
5465 
5466 
5467 
5468 
5469 
5470 
5471 
5472 
5473 
5474 
5475 
5476 
5477 
5478 
5479 
5460 



5481 
5482 
5483 
5484 
5485 
5486 
5487 
5488 
5489 
5490 
5491 
5492 
5493 
5494 



i 

! VERIFIES THAT THE REREAD PREVIOUS COMnAND WITH OPP-0 
tAND SUB-0 OPERATES PROPERLY. THE TAPE IS FIRST 
t REWOUND AND THEN WRITTEN WITH A SERIES OF TEST 
(RECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE 
tIS THEN REWOUND AGAIN. FOR EACH TEST RECORD. THE 
(TAPE IS SPACED FORWARD ONE RECORD AND A REREAD 
(PREVIOUS CONMAND ISSUED. RESULTS (STATUS. DATA. 
lETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD 
(PREVIOUS COMMAND IS SET TO THE LENGTH OF THE EXPECTED 
(RECORD. SO NO EXCEPTIONAL CONDITIONS SHOULD OCC'JR. 
( 
( 

( - 



055474 

0554 74 
055474 
055474 
0SS476 
055502 
0SS506 
0SSS12 



T26L00P: 



104402 
004737 
004737 
004737 
012737 



074620' 
074712* 
074754* 

176750 072064' 



BGNSUB 



JSR 
JSR 
JSR 
NOV 



PC.T26REST 
PC.T26RT2 
PC.T26RT3 
«6S0OO..T260LY 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T6.1: 

TRAP CIBSUB 

(SET COMMAND PACKET 
(SET UP OTHER COKHAND PACKET 
(SET UP OTHER COMMAND PACKET 
(SET UP DELAY COUNTER 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



5495 
5496 
5497 
5501 
5502 



5503 
5504 
5505 
5506 
5507 



055520 
055524 
055526 
055526 
055532 
055534 
055540 
055542 
055546 
055550 
055554 
055556 
055562 
055564 
055570 
055572 
055572 
055574 
055576 
055600 
055602 
055602 
055610 



004737 015674' 
103426 



10»! 



012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
001131 
003642' 
011734' 



013737 002172' 0/1720' 
012704 071700' 



000250 

002116' 

177772 

177756 

072064' 

002212' 



JSR 
BCS 
DELAY 



PC.SOFINIT 

201 

250 



20$: 



DEC 
BNE 
INC 
MOV 
ERROF 



MOV 
MOV 



T260LY 

lot 

FATFLG 
RO.Rl 

ERRNO.SFIERR.SFIMSG 



UNITN.T26DSW 
«T26PACKET.R4 



♦250. (PC) ♦ 
0 

L«0LY.(PC)» 
0 

-6(PC) 
.-4 

-22(PC) 
.-20 



I 00 INITIALIZE ON CONTROLLER 
(BR IF INIT WAS OK 
(DELAY FOR A REUIND TO FINISH 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 
(DEC COUNTER 
tBR. IF DELAY NOT READY 
(BUMP COUNT 

(CONTENTS OF TSSR REGISTER 

(FATAL ERROR TSSR WAS NOT OK 

TRAP CtEROF 
.WORD 601 
.WORD SFIERR 
.WORD SFIMSG 

(SET UP UNIT NUMBER 

(SUBROUTINE NEEDS PACKET ADDRESS 



Nib 



TSV/ - HARDWARE TESTS 1-S 
TEST 6: REREADS 



5508 
5509 
5510 
5511 
5512 
5513 
5514 
5515 
5519 
5520 



HACRO Mills Ol-rEB-84 17:54 



SEQ 



tURITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 
i 



5521 

5522 
5523 
5524 
5525 
5526 
5527 
5526 
5529 
5530 
5531 
5532 
5533 
5534 
5538 



5539 

5540 
5541 
5542 
5543 
5544 
5545 
5546 
5547 
5540 
5549 
5550 
5551 
5552 
5556 



5557 
5558 



055614 
055620 
055622 
055626 
055630 
055630 
055632 
055654 
055636 
055640 
055640 



055642 
055646 
055650 
055654 
055660 
055662 
055666 
055666 
055670 
055672 
055674 
055676 
055676 



055700 
055704 
055706 
055712 
055714 
055716 
055722 
055722 
055724 
055726 
055730 
055732 
055732 
055734 



004737 010562' 
103407 

005237 002212' 
010001 

104456 
001132 
005046' 
011734' 

104406 



26t: 



JSR 
BCS 
INC 
MOV 

ERRHRD 



CKLOOP 



PC. URTCHR 
26 1 

FATFLG 
RO.Rl 

ERRNO . URTMSG . SFIMSG 



t ISSUE URITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
jBUMP COUNT 

iSAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 



: ISSUE REUIND COMMAND TO SELECTED TAPE DRIVE 



004737 010714' 
103413 

016501 000002 

012702 000200 
010004 

005237 002212* 

104456 

001133 

073364' 

011746' 

104406 



30»: 



JSR 
BCS 
MOV 
MOV 
MOV 

ERRHRD 



CKLOOP 



PC. REWIND 
SOI 

TSSR(R5).R1 
#SSR.R2 
flO.R4 
FATFLG 

ERRNO. T26RUN.PKTSSR 



I CALL TAPE REWIND COMMAND 
iBR. IF NO PROBLEM 
(GET TSSR 

iSET UP EXPECTED TSSR 
(PACKET ADDRESS SET UP 
(BUMP COUNT 
iREUINO NOT ACCEPTED 

TRAP 

.WORD 
.WORD 
.WORD 

(LOOP ir SELECTED 

TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 071730' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001134 

073075* 
015374' 

104406 

012703 000400 



40t; 



MOV T26BFR*6.R1 

MOV R1.R2 

BIS 4BIT1.R2 

CMP R1.R2 

BEQ 401 

INC FATFLG 

ERRHRD ERRNO . T26B0T . EXPREC 



CKLOOP 

MOV «256..R3 



(PICK UP XSTO 

(SET UP EXPECTED 

(SET BOT BIT IN EXPECTED 

(DOES EXP - REC*D 

(BR. IF EQUAL COK) 

(BUMP COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 

(RECORD SIZE 



CIERHRO 
602 
WRTMSG 
SFIMSG 

OCLPl 



CtERHRD 

603 

T26RWN 

PKTSSR 

CICLPl 



C»ERHRO 
604 
T26B0T 
EXPREC 

C»CLPl 



B16 



TSV7 
TEST 



HARDWARE TESTS 1 0 
6: REREADS 



MACRO NlllS 01 FEB 84 17:54 



SEQ 196 



5559 
5560 
5561 
5562 
5563 
5564 
5565 
5566 
5567 
5568 
5569 
5570 
5571 
5572 
5575 
5574 
5575 
5576 
5577 
5578 
5579 
5583 



5584 

5585 
5586 
5587 
5588 

5589 
5590 
5591 
5592 
5595 
5594 
5595 
5596 
5597 
5598 
5599 
5600 
5601 
5602 
5606 



5607 

5608 
5609 
5610 



055740 015757 0Cill4' 072052* 



nov 



FREE.T26RB 



I STARTING URXTE BUFFER ADDRESS 



055746 
055754 
055760 
055760 
055762 
055766 
055772 
055776 
056002 
056006 
056012 
056014 
056016 
056022 
056022 
056024 
056026 
056030 
056032 
056032 
056034 
056036 
056042 
056044 
056044 
056046 



056046 
056052 
056054 
056060 
056064 
056066 
056072 
056072 
056074 
056076 
056100 
056102 
056102 



WRITE DATA.ACK.CVC-1 COMHAKD 



012737 140005 072050* 
012704 072050' 

010300 

004737 017324* 

010357 072036' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 
020102 
001406 

005237 002212* 

104456 

001135 

005103* 

015374* 

104406 

005723 

022703 000414 
001346 

104406 



004757 010714* 
105415 

016501 000002 

012702 000200 
010004 

005237 002212* 

1044S6 

001136 

075564* 

011746* 

104406 



651: 



751: 

80»: 
120»i 



NOV 

nov 

MOV 
JSR 
MOV 
MOV 
JSR 
MOV 
HOV 
CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 



•140005. T26PK3 
•T26PK3.R4 

R5.R0 

PC.FILLMEM 

R3.T26SZ 

R4.TS0B(R5) 

PC.WAITF 

TSSR;R5).R1 

•SSR.R2 

R1.R2 

751 

FATFLC 

ERRNO . WRTERR . EXPREC 



TST 
CMP 



CKLOOP 



(R3)* 
•268. .RS 
651 



iWRITE DATA.ACK.CVC-1 COTtlAND 
I SET UP R4 UITH PACKET ADDRESS 

I SET PATTERN IN CORRECT REGISTER 

I FILL MEMORY WITH RECORD SIZE 

iSCT UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

iUAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

I SET UP EXPECTED 

•ARE THEY EQUAL 

iBR. IF OK 

I BUMP COUNT 

I TSSR INCORRECT AFTER WRITE DATA 

TRAP 
.WORD 
.WORD 
.WORD 

tLOOP IF SELECTED 

TRAP 

I BUMP RECORD SIZE 
tEND OF RECORD YET 
iBR. IF MORE RECORDS TO WRITE 
I LOOP IF SELECTED 

TRAP 



OERHRD 
605 
WRTERR 
EXPREC 

C«aPl 



C«CLP1 



tissue REUXW) COttMND TO SELECTED TAPE DRIVE 



JSR 

scs 

MOV 
HOV 
MOV 
INC 

ERRHRD 



1501 : CKLOOP 



PC. RE WIND 
1301 

TSSRCR5).R1 

•SSR.R2 

R0.R4 

FATFLG 

ERRNO. T26RUN.PKTSSR 



iCALL TAPE REWIND COMMAND 
iBR. IF NO PROBLEM 

iGET TSSR 

tSET UP EXPECTED TSSR 
(PACKET ADDRESS SET UP 
tBUMP COUNT 
•REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 



CtERHRD 

606 

T26RUN 

PKTSSR 

CICLPI 



C16 



TSV7 
TEST 



HARI 



1-8 



nACRO nillS OL-FEB-84 17:54 



SEQ 197 



5611 
5612 
5613 
5614 
5615 
5t>16 
5617 
56ia 
5619 
5620 
5624 



5625 

5626 
5627 
5626 
5629 
56S0 
5631 
5632 
5633 
5634 
5635 
5636 
5637 
5636 
5639 
5640 
5644 



5645 

5646 
5647 
5646 
5649 
5650 
5651 
5652 
5653 
5654 
5655 
5656 
5657 
5658 
5659 
5660 
5661 
5662 
5663 



056104 
056110 
056112 
056116 
056120 
056122 
056126 
056126 
056130 
056132 
056134 
056136 
056136 
056140 



056146 

056152 
056156 
056160 
056164 
056170 
056174 
056174 
056176 
056200 
056202 
056204 
056204 
056206 
056212 



056220 
056226 
056232 
056236 
056242 
056246 
056252 
056256 
0S626O 



iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 071730* 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 

001137 

073075' 

011746' 

104406 

012737 000400 072062' 



140<: 



HOV T26BFR*6.R1 

MOV R1.R2 

BIS «eiTl.R2 

CMP R1,R2 

BEQ 1401 

INC FATFLG 

ERRHRO ERRNO. T26B0T .PKTSSR 



CKLOOP 

MOV «256..T26RSZ 



iPICK UP XSTO 

I SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

I DOES EXP - REC'D 

iBR. IF EQUAL (OK) 

I BUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.UGRO 
.UORO 
.UORO 

I LOOP IF SELECTED 

TRAP 

I SET RECORD SIZE 



OERHRD 
607 
T26B0T 
PKTSSR 

CICLPI 



ISSUE SPACE RECORDS COMMAND - VALUE IN RS SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - 0-FORUARD 1-REVERSE 



012703 000001 

004737 010366* 
103412 

016501 000002 

012702 000200 

005237 002212* 

104456 
001140 
072477* 
015374' 

104406 

013703 072062' 

013737 003114' 072032* 



145< : MOV 
JSR 
BCS 
MOV 
MOV 
INC 

ERRHRO 



ISOI: CKLOOP 



«1.R3 

PC. SPACE 
1501 

TSSR(R5).R1 

•SSR.R2 

FATFLG 

ERRNO. T26SC.EXPREC 



t SPACE ONE RECORD PARAMETER 
tCALL SPACE ROUTINE 

iBR. IF NO PROBLEM WITH SPACE COTtlAND 
tGET TSSR 

I SET UP EXPECTED TSSR 
iBUHP COUNT 

tPOSITION (SPACE RECORDS) FAILED 

TRAP C«ER»«0 
.UORD 608 
.UORD T26SC 
.UORO EXPREC 



MOV 
MOV 



T26RSZ.RS 
FREE.r26RB 



TRAP 

t RECORD SIZE 

t STARTING READ BUFFER ADDRESS 



C$aPl 



REREREAO DATA.CVC-l.ACK COMMAND 



012737 141001 0720SO' MOV 

012704 072030' 1651: MOV 

010337 072036' MOV 

010465 000000 MOV 

004737 016150' JSR 

016501 000002 MOV 

012702 000200 MOV 

020102 CMP 

001406 BEQ 



•141001. T26PK3 
•T26PK5.R4 

RS.T26SZ 

R4,TS0B(R5) 

PC.WAITF 

TSSR(R5),Rl 

•SSR.R2 

R1.R2 

1701 



iREREREAD DATA.CVC-l.AL^ COMMAND 

I SET UP R4 UITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

I WAIT FW SSR TO SET 

I GET TSSR CONTENTS 

» SET UP EXPECTED 

(ARE THEY EQUAL 

iBR. IF OK 



D16 



MACRO H1115 01 FEB 84 17:54 



SEQ 198 



5664 

5668 



5669 

5670 
5671 
5672 
5673 
5674 
5675 
5676 
5677 
5678 
5682 



5683 

5684 

5685 
5686 
5687 
5688 
5689 
5690 
5691 
5692 

5693 



5694 

5695 
5696 
5697 
5698 
5699 
5700 
5701 
5702 
5703 
5704 
5705 
5706 
5707 
5708 
5709 
5710 
5711 
5712 



056262 
056266 
056266 
056270 
056272 
056274 
056276 
056276 
056300 
056304 
056306 
056312 
056314 
056316 
056320 
056322 
056324 
056330 
056330 
056332 
056334 
056336 
056340 
056340 
056342 
056344 
056346 
0S63S0 
056SS2 
056354 
056360 
056364 
056366 
056366 
056370 
056370 
056370 
056372 
056400 
056402 
056406 



005237 002212' 

104456 
001141 

073720' 
011746' 



104406 

013702 
010304 
162704 
060204 
021403 
001410 
011401 
010302 
005237 

104456 
001142 
073142' 
015374' 

104406 
005724 
160204 
020403 
001360 
005723 
010337 
022703 
001270 

104406 



003114* 
000400 



002212' 



1701! 



1731! 



1801: 



072062' 
000412 



190«: 



104403 

023727 002212' 000017 
103402 

004737 017104* 



999tt 



INC 


FATFLC 


iBl.f1P COUNT 




CRRHRD 


ERRNO . T26VIDC . PK TSSR 


iTSSR INCORRECT AFTER REREAD DATA 






TRAP 


CIERHRD 






.WORD 


609 






.WORD 


T26U0C 






.WORD 


PK TSSR 


CKLOOP 




iLOOP IF SELECTED 

TRAP 


CtCLPl 


HOV 


FREE.R2 


1 CURRENT BUFFER ADDRESS TO R2 




MOV 


R3.R4 


•CURRENT RECORD SIZE 




SUB 


•256.. R4 


1 FIRST LOCATION IN BUFFER 




ADD 


R2.R4 


1 SET UP POINTER 




CMP 


(R4).R3 


iCHECK DATA READ (R3-DATA ALSO) 




BEQ 


1801 


iBR. IF ALL IS UELL 




MOV 


(R4).R1 


iRECD DATA 




MOV 


R3.R2 


lEXPECTED DATA 




INC 


FATFLG 


iBUMP COUNT 




ERRHRO 


ERRNO. T26DTA.EXPREC 


tOATA READ NOT - WRITTEN 






TRAP 


CtERHRD 






.WORD 


610 
T260TA 






.WORD 






.WORD 


EXPREC 


CKLOOP 




iLOOP IF SELECTED 

TRAP 


CICLPI 



TST 
SUB 
CMP 
BNE 
TST 
MOV 
CMP 
BNE 
CKLOOP 

ENOSUe 



CMP 
8L0 
JSR 



(R4). 
R2.R4 
R4.R3 
1731 
(R3)» 
R3.T26RS2 
•266.. R3 
1451 



FATFLG. •15. 
999< 

PC.CKOROP 



tBUMP TO NEXT LOCATION 

(CORRECT RECORDS SIZE VALUE 

tEND OF RECORD VET 

iBR. IF NOT AT END OF RECORD 

tBUMP RECORD SIZE 

iRESET RECORD SIZE 

tEND OF RECORD YET 

tBR. IF MORE RECORDS TO READ 

iLOQP IF SELECTED 

TRAP C»CLP1 
J >>>>>>>>>>>> END SUBTEST >>>>>»>>»>>> 
L10103: 

TRAP OESUB 
ilS ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
:TRY TO DROP THE UNIT 



056406 
056406 



!♦ 
t 
t 

I 
t 
I 
t 

t 
t 
t 
t 
t 



TEST 6. SUBTEST 2 

VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP'O 
AND SUB-1 OPERATES PROPERLY. THE TEST SEQUENCE IS 
THE SAME AS THAT USED IN SUBTEST 1, BUT IT IS 
VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 
SUAPPEO BYTES. 



BGNSUB 



!>>>>>>>>>>>> BEGIN SUBTEST 
T6.2: 



E16 



rSV7 HARDWARE TESTS 1-0 
TEST 6: REREADS 



HACRO milS 01 FEB M 17:54 



SEQ 199 



5715 
5714 
5715 
5716 
5717 
5718 
5719 
5720 
5721 
5722 
5725 
5724 
5725 
5729 
5750 



5751 
5752 
5755 
5754 
5755 
5756 
5757 
575« 
5759 
5740 
5741 
5742 
5745 
5747 
5748 



5749 

5750 
5751 
5752 
5755 
5754 
5755 
5756 
5757 
5758 
5759 
5760 
5761 
5762 
5766 



056406 
056410 
056414 
056420 



104402 

004757 074620* 

004757 074712* 

004737 074754* 



JSR 
JSR 
JSR 



PC.T26REST 

PC.T26RT2 

PC.T26RT3 



TRAP 

I SET COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 



c»esuB 



ISSUE CONTROLLER "SOFT" INITIALIZE 



'ARRY BIT CLEAR IF ERROR 



056424 
056450 
056452 
056456 
056440 
056440 
056442 
056444 
056446 
056450 



004757 015674* 
105407 

005237 002212* 
010001 

104455 
001145 
005642* 
011734* 

013737 002172* 071720* 20»: 



056456 012704 071700' 



JSR PC.SOFINIT 

BCS 20t 

INC FATFLG 

MOV RO.Rl 

ERRDF ERRNO.SFIERR.SFIMSG 



HOV UNITN.T26DSU 
HOV ♦T26PAa<ET,R4 



I 00 INITIALIZE ON CONTROLLER 
I BR IF INIT WAS OK 
I BUMP COUNT 

I CONTENTS OF TSSR REGISTER 
iFATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

tSET UP UNIT NUMBER 



C»EROF 
611 

SFIERR 
SFIMSC 



t SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COHHAND (CALL TO URTCHR) 



056462 
056466 
056470 
056474 
056476 
056476 
056500 
056502 
056504 
056506 
056506 



004757 010562' 
103407 

005257 002212* 
010001 

104456 
001144 
005046* 
011734' 

104406 



261: 



JSR 
BCS 
INC 
NOV 

ERRHRO 



CKLOOP 



PC.WRTCHR 
26 1 

FATFLG 
RO.Rl 

ERRNO*WRTNSG. SFINSG 



i ISSUE MITE CHARACTERISTICS 
tBR. IF COMMAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
tURITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 



C<ERHR0 
612 

WRTMSG 
SFIHSG 

CICLPl 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



056510 
056514 
056516 
056522 
056526 
056550 
056534 
056534 
056536 



004757 010714' 
103415 

016501 000002 

012702 000200 
010004 

005237 002212' 

104456 
001145 



JSR PC. REWIND 

BCS 30 t 

MOV TSSR(R5),Rl 

MOV •SSR,R2 

MOV R0.R4 

INC FATFLG 

ERRHRD ERRN0.T26RWN.PKTSSR 



I CALL TAPE REWIND COMMAND 
I BR. IF NO PROBLEM 
iGET TSSR 

I SET UP EXPECTED TSSR 
I PACKET ADDRESS SET UP 
I BUMP COUNT 
{REWIND NOT ACCEPTED 

TRAP 
.WORD 



CtERHRO 
613 



F16 



TSV7 HARDWARE TESTS I S 
TEST 6: REREADS 



MACRO HlllS 01-FEB 04 17:54 



SEQ 200 



5767 

5768 
5769 
5770 
5771 
5772 
5775 
5774 
5775 
5776 
5777 
5778 
5779 
5780 
5784 



056540 
056542 
056544 
056544 



073564' 
011746' 

104406 



sot: 



CKLOOP 



iLGOP IF SELECTED 



.WORD 
.WORD 

TRAP 



T26RUN 

PKTSSR 

C»CLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



056546 
056552 
056554 
056560 
056562 
056564 
056570 
056570 
056572 
056574 
056576 
056600 
056600 

5786 056602 

5787 056606 
5788 

5789 
5790 
5791 
5792 
5795 
5794 



5785 



015701 071750* 
010102 

052702 000002 

020102 

001406 

005237 002212* 

104456 
001146 

075075' 
015574' 

104406 

012705 000400 

013737 003114' 072032' 



401: 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 



T26BFR*6.R1 

R1.R2 

«6IT1.R2 

R1.R2 

401 

FATFLG 

ERRNO. T26B0T .EXPREC 



MOV 
MOV 



•256.. R3 
FREE.T26RB 



tPICK UP XSTO 

I SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

iDOES EXP - RECO 

tBR. IF EQUAL (OK) 

iBUMP COUNT 

tTAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

tLOOP IF SELECTED 

TRAP 

t RECORD SI7E 

J STARTING WRITE BUFFER ADDRESS 



CIERMtO 
614 

T268GT 
EXPREC 

C$CLP1 



WRITE DATA.ACK.SWB COMMAND 



5795 


056614 


012737 


110005 072030' 


MOV 


•110005. T26PK3 


1 WRITE DATA.ACK.SWB COMMAND 




5796 


056622 


012704 


072050* 


HOV 


•T26PKS.R4 


tSET UP R4 WITH PACKET ADDRESS 




5797 


056626 




651: 








5798 


056626 


010300 




MOV 


RS.RO 


iSET PATTERN IN CORRECT REGISTER 


5799 


056630 


004757 


017324' 


JSR 


PC.FILLMEM 


iFILL MEMORY WITH RECORD SIZE 




5800 


056634 


010557 


072036' 


MOV 


R3.T26SZ 


1 SET UP RECORD SIZE IN PACKET 




5801 


056640 


010465 


000000 


MOV 


R4,TS06(R5) 


(ISSUE COMMAND 




5802 


056644 


004757 


016150' 


JSR 


PC.WAITF 


jWAIT FOR SSR TO SET 




5803 


056650 


016501 


000002 


MOV 


TSSR(R5).R1 


»GET TSSR CONTENTS 




5804 


056654 


012702 


000200 


MOV 


•SSR.R2 


J SET UP EXPECTED 




5605 


056660 


020102 




CMP 


R1.R2 


{ARE THEY EQUAL 




5806 


056662 


001406 




BEQ 


751 


tBR. IF OK 




5807 


056664 


005237 


002212' 


INC 


FATFLG 


iBUMP COUNT 




S811 


056670 






ERRHRO 


ERRNO.URTERR.PKTSSR 


xTSSR INCORRECT AFTER WRITE DATA 




056670 


104456 






TRAP 


CJERHRD 




056672 


001147 








.WORD 


615 




056674 


C0510S' 








.WORD 


WRTERR 




056676 


011746' 








.WORD 


PKTSSR 


5812 


056700 




75»: 


CKLOOP 




iLOOP IF SELECTED 






056700 


104406 








TRAP 


C»CLP1 


5815 


056702 


005723 




TST 


(R3)» 


sBUMP RECORD SIZE 




5814 


056704 


022703 


000414 


CMP 


•268.. R3 


tEND OF RECORD YET 




5815 


056710 


001346 




BNE 


65» 


lOR. IF MORE RECORDS TO WRITE 




5816 


056712 




80»: 


CKLOOP 




iLOOP IF SELECTED 





G16 



[SV7 HAROUARE TESTS 1-0 
^EST 6: REREADS 



5617 
5818 
5819 
5820 
5821 
5822 
582S 
5824 
5825 
5826 
5827 
5828 
5829 
5830 
5834 



5835 

5836 
5837 
5838 
5839 
5840 
5841 
5842 
5843 
5844 
5645 
5646 
5647 
5848 
5852 



5653 

5654 

5655 
5856 
5857 
5656 
5659 
5660 
5661 
5862 
5663 
5664 
5665 
5666 
5667 
5666 



056712 
0S67I4 



056714 
056720 
056722 
056726 
056732 
056734 
056740 
056740 
056742 
056744 
056746 
056750 
056750 



056752 
056756 
056760 
056764 
056766 
056770 
056774 
056774 
056776 
057000 
057002 
057004 
057004 
057006 



057014 
057020 
057024 
057026 
057032 
057036 



104406 



NACRO mil3 01 FEB -84 17:54 



1201: 



SEQ 201 



TRAP 



CtCLPl 



ISSUE REWIND COHHAND TO SELECTED TAPE DRIVE 



004737 010714* 
103413 

016501 000002 

012702 000200 
010004 

005237 002212' 

104456 

001150 

073364' 

011746' 

104406 



130»: 



JSR 
BCS 
NOV 

nov 

MOV 
INC 

ERRHRD 



CKLOOP 



PC. REWIND 
130t 

TSSR(R5).R1 
«SSR.R2 
R0.R4 
FATFLG 

ERRNO. T26RWN.PKTSSR 



I CALL TAPE REWIND COMHAND 
I BR. IF NO PROBLEN 

iGET TSSR 

I SET UP EXPECTED TSSR 
tPACKET ADDRESS SET UP 
I BUMP COUNT 
I REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

<L00P IF SELECTED 

TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 071730' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 

001151 

073075' 

015374' 

104406 

012737 000400 072062' 



140»: 



MOV T266FR*6.R1 

MOV R1.R2 

BIS «6IT1.R2 

cm R1.R2 

BEQ 140t 

IMC FATFLG 

ERRHRD ERRNO. T2680T.EXPREC 



CKLOOP 

MOV «256..T26RSZ 



iPICK UP XSTO 

I SET UP EXPECTED 

tSET SOT BIT IN EXPECTED 

tOOES EXP - REC'D 

;BR. IF EQUAL (OK) 

:BUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

)LOOP IF SELECTED 

TRAP 

i SET UP RECORD SIZE 



ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - 0-FORWARD 1-REVERSE 



012703 000001 

004737 010366' 
103412 

016501 000002 

012702 000200 

005237 002212' 



1451: 



MOV 
JSR 
BCS 
MOV 
MOV 
INC 



•1.R3 
PC. SPACE 
1501 

TSSR(R5).R1 

«SSR.R2 

FATFLG 



OERHRD 
616 

T26RWN 
PKTSSR 

C»CLP1 



C»ERHRD 
617 
T2680T 
EXPREC 

C»CLP1 



i SPACE ONE RECORD PARAMETER 
jCALL SPACE ROUTINE 

iBR, IF NO PROBLEM WITH SPACE COMMAND 
iGET TSSR 

i SET UP EXPECTED TSSR 
iBUMP COUNT 



TSV7 
TEST 



HARDWARE TESTS 1 6 
6: REREADS 



Hib 



MACRO Mills 01 -FEB 84 17:54 



SEQ 202 



5672 



5873 

5874 
5875 
5876 
5877 
5878 
5879 
5880 
5881 
5882 
5883 
5884 
5885 
5866 
5887 
5888 
5889 
5890 
5891 
5892 
5896 



5897 

5898 
5899 
5900 
5901 
5902 
5903 
5904 
5905 
5906 
5910 



5911 

5912 
5913 
5914 
5915 
5916 
5917 
5918 
5919 



057042 
057042 
057044 
057046 

057050 
057052 
057052 
057054 
057060 



057066 
057074 
057100 
057104 
057110 
057114 
057120 
057124 
057126 
057130 
057134 
057134 
057136 
057140 
057142 
057144 
057144 
057146 
057152 
057154 
057160 
057162 
057164 
057166 
057170 
057172 
057176 
057176 
057200 
057202 
057204 
0572U6 
057206 
057210 
057212 
057214 
057216 
057220 
057222 
057226 
057232 



104456 

001152 

072477' 

015374' 

104406 

013703 072062' 

013737 003114* 072032' 



ERRHRD ERRNO . T26SC . EXPREC 



iSOt : CKLOOP 

MOV 
MOV 



iPOSITION (3PACE RECORDS) FAILED 

TRAP C«ERHRD 
.WORD 618 
.WORD T26SC 
.WORD EXPREC 



T26RSZ.R3 
FREE.T26RB 



TRAP 

I RECORD SIZE 

{STARTING READ BUFFER ADDRESS 



C»CLP1 



! REREAD DATA.CVC'l.ACK.SWB COMMAND 
I 



012737 151001 072030' 

012704 072030' 

010337 072036' 

010465 000000 

004737 016150* 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 

001153 

073720' 

011746' 



16St: 



104406 

013702 
010304 
162704 
060204 
021403 
001410 
011401 
010302 
005237 

104456 
001154 
073142' 
015374' 

104406 
005724 
160204 
020403 
001360 
005723 
010337 
022703 
001270 



003114' 
000400 



002212' 



i70t: 



17St: 



MOV 


«151001.)26PK3 


tREREAO DATA. CVC-l.ACK. SUB COMMAND 


MOV 


•T26PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 


MOV 


R3.T26SZ 


iSET UP RECORD SIZE IN PACKET 


MOV 


R4.TS06(RS) 


(ISSUE COrtlAND 


JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 


MOV 


•SSR.R2 


iSET UP EXPECTED 


CMP 


R1.R2 


lARE THEY EQUAL 


BEQ 


170* 


tBR. IF OK 


INC 


FATFLG 


iBUr^ COUNT 


errhrd 


ERRNO . T26U0C , PK T SSR 


iTSSR INCORRECT AFTER REREAD DATA 



TRAP 

.WORD 
.WORD 
.WORD 



CKLOOP 




{LOOP IF SELECTED 






TRAP 


MOV 


FREE.R2 


(CURRENT BUFFER ADDRESS TO R2 


MOV 


R3.R4 


(CURRENT RECORD SIZE 


SUB 


«2S6..M 


(FIRST LOCATION IN BUFFER 


ADO 


R2.R4 


(SET UP POINTER 


CMP 


(R4).RS 


(CHECK OAfA READ (R3-DATA ALSO) 


BEQ 


180 f 


(BR. IF ALL IS WELL 


MOV 


(R4).R1 


(RECO DATA 


MOV 


RS.R2 


(EXPECTED DATA 


INC 


FATFLG 


(BUMP COUNT 


ERRHRD 


ERRNO. T26DT A. EXPREC 


(DATA READ NOT - WRITTEN 



C*ERHRO 
619 
T26WDC 
PKTSSR 

C$CLP1 



072062' 
000412 



180* : CKLOOP 

TST 
SUB 
CMP 
BNE 
TST 
MOV 
CMP 
BNE 



(R4)» 

R2.R4 

R4.R3 

175* 

(R3)» 

R^.T2SRSZ 

«266..RS 

1451 



TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 

(BUMP TO NEXT LOCATION 

(CORRECT RECORDS SIZE VALUE 

(END OF RECORD YET 

(BR. IF NOT AT END OF RECORD 

iBUMP RECORD SIZE 

(STORE RECORD SIZE 

(END OF RECORD YET 

(BR. IF MORE RECORDS TO READ 



C .cRHRD 
620 
T260TA 
EXPREC 

C»CLP1 



116 



TSV7 HAROUAR& TESTS 1 8 
TEST 6: REREADS 



MACRO mil5 Ol-FEB-84 17:54 



SEQ 203 



5920 
5921 



5922 
5923 
5924 
5925 
5926 
5927 
5928 
5929 
5930 
5931 
5932 
5933 
5954 
5935 
5936 
5937 
5938 
5939 
5940 
5941 
5942 
5943 
5944 
5945 
5946 
5947 
3948 
5949 
5950 
5951 
5952 
5953 
5954 
5955 
5956 
5957 
5958 
5959 
5960 



5961 
5962 
5963 
5964 
5965 
5966 
5967 
5968 
5969 
5970 
5971 



057234 
057254 
057256 
057256 
057256 
057240 
057246 
057250 
057254 



104406 



104403 

023727 002212' 000017 
103402 

004737 017104* 



190ti 



9991; 



CKLOOP 
ENOSUB 



CMP 
BLG 
JSR 



FATFLC.nS. 
9991 

PC.CKOROP 



iLOOP IF SELECTED 

TRAP CtCLPl 
!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10104; 

TRAP CtESUB 
lis ERROR COUNT AT 25 
I BR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



TEST 6. SUBTEST 3 

VERIFIES THAT THE REREAD PREVIOUS COMHANO UITH OPP-1 
(READ REVERSE. SPACE FORWARD) AND SUB-0 OPERATES 
PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN 
WITH A SERIES OP TEST RECORDS VARYING IN LENGTH AND 
DATA CONTENT I THE FIRST FOUR BYTES OF EACH RECORD 
CONTAIN ITS RECORD NUMBER (INDICATING POSITION ON 
TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH 
TEST RECORD. THE FOLLOWING SEQUENCE IS EXECUTED. 

1. THE REREAD PREVIOUS COMMAND WITH OPP-l IS ISSUED 
AND THE RESULTS CHECKED 

2. A READ FORWARD COMMAND IS THEN ISSUED AND THE 
DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 
POSITIONED PROPERLY AFTER THE REREAD PREVIOUS 
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
POSITIONED AT THE START OF THE TEST RECORD). THE 
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
PROPERLY AT THE START OF THE NEXT TEST RECORD. 

THE BYTE COUNT ON EACH REREAD PREVIOUS COMMAND IS SET 
TO THE LENGTH OF THE EXPECTED RECORD. SO NO 
EXCEPTIONAL CONDITIONS SHOULD OCCUR. 



057254 
057254 
057254 
057256 
057262 
057266 
057272 



104402 

004737 074620' 

005037 072056' 

004737 074712' 

004737 074754' 



BGNSUB 



JSR 
CLR 
JSR 
JSR 



PC.T26REST 
T26CNT 
PC.T26RT2 
PC.T26RT3 



!>>>>>>>>>>>'> BEGIN SUBTEST >>>>>>>>>>>> 
T6.3: 

TRAP CIBSUB 

J SET COMMAND PACKET 
i CLEAR TAPE RECORD COUNTER 
I SET UP OTHER COMMAND PACKET 
tSET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE • CARRY BIT CLEAR IF ERROR 



J16 



TSV7 HARDWARE TESTS 1-8 
TEST 6: REREADS 



MACRO Mills Ol-FEB-84 17:54 



SEQ 204 



5972 
5975 
5974 
5978 
5979 



5980 
5981 
5982 
5983 
5964 
5965 
5966 
5967 
5966 
5969 
5990 
5991 
5992 
5996 
5997 



5996 

5999 
6000 
6001 
6002 
6003 
6004 
6005 
6006 
6007 
6006 
6009 
6010 
6011 
6015 



6016 

6017 
6018 
6019 
6020 
6021 
6022 
6023 



057276 004737 015674- 

057302 103407 

057304 005237 002212' 

057310 010001 
057312 

057312 104455 

057314 001155 

057316 003642' 

057320 011734' 

057322 013737 002172' 071720' 201: 



057330 012704 071700' 



JSR PC.SOFINIT 

BCS 20 f 

INC FATFLG 

MOV RO.Rl 

ERRDF ERRNO . SF lERR . SF IMSG 



MOV UNITN.T260SU 
MOV •T26PACKET.R4 



I 00 INITIALIZE ON CONTROLLER 
I BR IF INIT WAS OK 
J BUMP COUNT 

(CONTENTS OF TSSR REGISTER 

{FATAL ERROR TSSR WAS NOT OK 

TRAP C*EROF 
.WORD 6?1 
.WORD SFIERR 
.UORO SFIMSG 

iSET UP UNIT NUMBER 

t SUBROUTINE NEEDS PACKET ADDRESS 



057334 
057340 
057342 
057346 
057350 
057350 
057352 
057354 
057356 
057360 
057360 



057362 
057366 
057370 
057374 
057400 
057402 
057406 
057406 
057410 
057412 
057414 
057416 
057416 



URITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 
001156 
005046' 
011734' 

104406 



26»: 



JSR 
BCS 
INC 
MOV 

ERRHRO 



CKLOOP 



PC. URTCHR 
261 

FATFLG 
RO.Rl 

ERRNO . URTMSG. SFIMSG 



I ISSUE URITE CHARACTERISTICS 
tBR. IF COMMAND ISSUED OK 
I BUMP COUNT 

tSAVE CONTENTS OF TSSR 
t URITE CHARACTERISTISC FAILED 

TRAP 
.UORO 
.UORO 
.UORO 

(LOOP IF SELECTED 

TRAP 



C»ERHRD 
622 

URTMSG 
SFIMSG 

CICLPl 



ISSUE REWIND COftMND TO SELECTED TAPE DRIVE 



004737 010714* 
103413 

016501 000002 

012702 000200 
010004 

005237 002212' 

104456 
001157 
073364' 
011746' 

104406 



301: 



JSR 
BCS 
MOV 
MOV 
MOV 
INC 

ERRHRD 



CKLOOP 



PC. REWIND 

sot 

TSSR(R5>,R1 
♦SSR.R2 
R0,R4 
FATFLG 

ERRNO . T26RWN . PK TSSR 



iCALL TAPE REWIND COMMAND 
;BR. IF NO PROBLEM 
(GET TSSR 

t SET UP EXPECTED TSSR 
t PACKET ADDRESS SET UP 
iBUMP COUNT 
iREUINO NOT ACCEPTED 

TRAP 
.UORO 
.WORD 
.UORO 

I LOOP IF SELECTED 

TRAP 



CtERHRO 
623 
T26RUN 
PKTSSR 

CICLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



TSV7 • HAROUARE TESTS 1-8 
TEST 6: REREADS 



I<i6 



MACRO M1113 01 FEB -84 17:54 



SEQ 205 



6024 
6025 
6026 
6027 
6026 
6029 
6033 



6034 

6035 
6036 
6037 
6038 
6039 
6040 
6041 
6042 
6043 
6044 
6045 
6046 
6047 
6046 
6049 
6050 
6051 
6052 
6053 
6054 
6055 
6056 
6057 
6056 
6062 



6063 

6064 
6065 
6066 
6067 
6066 
6069 
6070 
6071 
6072 
6073 
6074 
6075 
6076 



057420 
057424 
057426 
057432 
057434 
057436 
057442 
057442 
057444 
057446 
057450 
057452 
057452 
057454 
057460 



057466 
057474 
057500 
057500 
057502 
057506 
057512 
057520 
057526 
057532 
057536 
057542 
057546 
057550 
057552 
057556 
057556 
057560 
057562 
057564 
057566 
057566 
057570 
057572 
057576 
057600 
057602 
057602 



013701 071730* 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 

001160 

073075' 

015374' 

104406 

012703 000400 

013737 003114* 072032' 



401: 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 



T26BFR*6.R1 

R1,R2 

«6IT1.R2 

R1.R2 

40) 

FATFLG 

ERRN0.T26B0T.EXPREC 



MOV 
MOV 



«256. .R3 
FREE.T26RB 



iPICK UP XSTO 

I SET UP EXPECTED 

(SET BOT BIT IN EXPECTED 

(DOES EXP - REC'D 

iBR. IF EQUAL (OK) 

I BUMP COUNT 

{TAPE NOT AT BOT AFTER REMIND 

TRAP 
.WORD 
.UORO 
.WORD 

iLOOP IF SELECTED 

TRAP 

iRECORD SIZE 

•STARTING WRITE BUFFER ADDRESS 



CtERMRO 
624 
T26eOT 
EXPREC 

OCLPl 



URITE OATA.CVC-l.ACK COMMAND 



012737 
012704 

010300 
004737 
010337 
013777 
062737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001161 
005103' 
011746' 



104406 

005723 

022703 000414 

001401 

000737 

005037 072056' 



140005 072030' 
072030' 



017324' 

072036' 

072056* 123374 

000001 072056' 

000000 

016150' 

000002 

000200 



002212' 



65$: 



MOV 


•140005. T26PK3 


t URITE DATA. CVC- LACK COTVIAND 


nov 


•T26PK3.R4 


tSET UP R4 WITH PACKET ADDRESS 


MOV 


R3.R0 


iSET PATTERN IN CORRECT REGISTER 


JSR 


PC.FILLMEM 


J FILL MEMORY WITH RECORD SIZE 


MOV 


R3.T26SZ 


J SET UP RECORD SIZE IN PACKET 


MOV 


T26CNT.SFREE 


iMOVE TAPE RECORD NUMBER TO BUFFER 


ADD 


«1 . T26CNT 


1 NUMBER READY FOR NEXT RECORD 


MOV 


R4.TS0e(R5) 


s ISSUE COMMAND 


JSR 


PC.MAITF 


sWAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


{GET TSSR CONTENTS 


nov 


#SSR.R2 


J SET UP EXPECTED 


CMP 


R1.R2 


lARE THEY EQUAL 


BEQ 


75) 


jBR. IF OK 


INC 


FATFLG 


tBUMP COUNT 


ERRHRO 


ERRNO , URTERR , PK TSSR 


iTSSR INCORRECT AFTER WRITE DATA 



75«: 



1201 i 



CKLOOP 

TST 
CMP 
BEQ 
BR 

CLR 



(R5)* 
«268..R3 
120t 
65 « 

T26CNT 



TRAP C»ERHRD 
.WORD 625 
.WORD WRTERR 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP CICLPl 

iBUMP THE RECORD SIZE 
{MAXIMUM SIZE YET 
tBR. IF AT END OF WRITE SEQUENCE 
i WRITE MORE RECORDS 

I SET RECORD COUNTER BACK TO ZERO 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



Lib 



TSV7 
TEST 



HARDWARE TESTS 
6: REREADS 



I 6 



MACRO MlllS 01 -FEB 84 17:54 



SEQ 206 



6077 
6076 
6079 
6060 
6061 
6082 
6066 



6067 

6068 
6089 
6090 
6091 
6092 
6093 
6094 



057606 
057612 
057614 
057620 
057624 
057626 
0576S2 
057632 
057634 
057636 
057640 
057642 
057642 



004737 010714' 
103413 

016501 000002 

012702 000200 
010004 

005237 002212' 

104456 

001162 

073364* 

011746' 

104406 



JSR 
BCS 
MOV 
MOV 
MOV 
INC 

ERRHRD 



1301: CKLOOP 



PC. REWIND 
1301 

TSSR(R5),R1 
4>SSR.R2 
R0.R4 
TATFLG 

ERRNO. T26RWN.PKTSSR 



I CALL TAPE REWIND COMMAND 
I BR. IF NO PROBLEM 
I GET TSSR 

I SET UP EXPECTED ^SSR 
J PACKET ADDRESS SET UP 
iBUMP COUNT 
(REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



6095 


057644 


013701 


071730* 


6096 


057650 


010102 




6097 


057652 


052702 


000002 


6096 


057656 


020102 




6099 


057660 


001406 




6100 


057662 


0CS237 


002212' 


6104 


057666 
057666 
057670 
057672 
057674 


104456 

001163 

073075' 

015374' 




6105 


057676 
057676 


104406 




6106 








6107 








6108 








6109 








6110 








6111 








6112 








6113 








6114 


057700 


012703 


000001 


6115 


057704 


004737 


010366' 


6116 


057710 


012703 


000400 


6117 


057714 


013737 


003114' 


6116 








6119 








6120 








6121 








6122 








6123 








6124 








6125 


057722 


012737 


161001 


6126 


057730 


012704 


072030' 


6127 


057734 


010337 


072036' 


6128 


057740 


010465 


000000 


6129 


057744 


004737 


016150' 



MOV 

nov 

BIS 
CMP 
BEQ 
INC 

ERRHRD 



140$ : CKLOOP 



T26BrR»6.Rl 

R1.R2 

«6IT1.R2 

R1.R2 

140$ 

FATFLG 

ERRN0.T26B0T.EXPREC 



jOICK UP XSTO 

I SET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

tDOES EXP - REC'D 

:BR. If EQUAL (OK) 

J BUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 



(ISSUE SPACE RECORDS COMMAND - VALUE 
iBIT IS SETS DIRECTION • O-FORUARO 



IN R3 SETS NUMBER OF RECORDS 
1 -REVERSE 



072032' 1501; 



MOV 
JSR 
MOV 
MOV 



♦I.R3 

PC, SPACE 
«256. .R3 
FREE.T2£->9 



; SPACE 1 RECORD FORUARD 
; SPACE CALL 
{RECORD SIZE 

: STARTING READ BUFFER ADDRESS 



C*ERHRD 
626 
T26RUN 
PKTSSR 

CICLPI 



C«ERHRD 
627 
T26B0T 
EXPREC 

CICLPl 



; REREAD DATA.CVC-l.ACK. OPP COMMAND 



MOV «161001.T26PKS 

1651: MOV «T26PK3.R4 

MOV R3.T26SZ 

MOV R4.TSDB(RS) 

JSR PC.WAITF 



{REREAD DATA.CVC-l.ACK. OPP COMMAND 
I SET UP R4 UITH PACKET ADDRESS 
{SET UP RECORD SIZE IN PACKET 
(ISSUE COMMAND 
{WAIT FOR SSR TO SET 



TSV7 
TEST 



6: 



M16 



hardware tests 1-6 
rerea6<; 



MACRO nn 13 01 -FEB -64 17:54 



SEQ 207 



6130 
6131 
6132 
6133 
6134 
6138 



6139 

6140 
6141 
6142 
6143 
6144 
6145 
6146 
6147 
6148 
6149 
6150 
6151 
6152 
6153 
6154 
6155 
6156 
6157 
8161 



6162 

6163 
6164 
6165 
6166 
6167 
6171 



6172 

6173 
6174 
6175 
6176 
6177 



6178 



057750 
057754 
057760 
057762 
057764 
057770 
057770 
057772 
057774 
057776 
060000 
060000 
060002 
060004 



060012 
060020 
060024 
060030 
060034 
060040 
060044 
060046 
060050 
060054 
060054 
060056 
060060 
060062 
060064 
060064 
060066 
060072 
060076 
060100 
060102 
060106 
060106 
060110 
060112 
060114 
060116 
060116 
060120 
060124 
060126 
060130 
060130 
060130 
060130 
060132 



016501 000002 
012702 000200 
020102 
001406 

005237 002212' 

104456 

001164 

072402' 

011746' 

104406 

005723 

062737 000001 072056' 



170>: 



MOV 
MOV 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 

TST 
ADD 



TSSR(R5).R1 

«SSR.R2 

R1.R2 

170» 

FATFLG 

ERRNO . T26RRG . PKTSSR 



(R3)* 
•1.T26CNT 



tGET TSSR CONTENTS 
I SET UP EXPECTED 
I ARE THEY EQUAL 
iBR, IF OK 
I BUMP COUNT 

I TSSR INCORRECT AFTER REREAD DATA 

TRAP C$ERHRD 
.WORD 626 
.WORD T26RRG 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP OCLPl 

{BUMP RECORD SIZE 

I BUMP TAPE RECORD COUNTER 



i ****************************************************************** 

I READ DATA. CVC-1. ACK COMMAND 
I 

t ****************************************************************** 



012737 140001 072030' 

010337 072036' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 

001165 

005176' 

011746' 

104406 

017701 123022 
013702 072056' 
020102 
001406 

005237 002212' 

1044S6 
001166 
072066' 
015374' 

104406 

022703 000412 

001401 

000672 



104403 

023727 002212' 000017 



195>: 



MOV 


«140001.T26PK3 


tREAD DATA. CVC-1. ACK COMMAND 




MOV 


R3.T26SZ 


tSET SIZE INTO PACKET 




MOV 


R4.TS0B(R5) 


t ISSUE READ DATA COMMAND 




JSR 


PC.UAITF 


tUAIT FOR SSR 




MOV 


TSSR(R5).R1 


tPICK UP THE TSSR 




MOV 


#SSR.R2 


iSET UP EXPECTED 




CMP 


R1.R2 


tIS THE TSSR OK 




BEQ 


1951 


tBR. IF TSSR OK CSOOD) 




INC 


FATFLG 


tBUMP COUNT 




ERRHRD 


ERRNO . ROERR . PKTSSR 


sREAD DATA COMMAND FAILED 








TRAP 


OERHRD 






.UORD 


629 






.UORD 


RDERR 






.UORD 


PKTSSR 


CKLOOP 




iLOOP IF SELECTED 








TRAP 


CICLPl 



MOV 
MOV 
CMP 
BEQ 
INC 

ERRHRD 



197$: CKLOOP 



8FREE.R1 
T26CNT.R2 
R1.R2 
1971 
FATFLG 

ERRNO . T26UNG . EXPREC 



200t: 



CMP 
BEQ 
BR 

EN0SU6 



CMP 



«266..R3 

2001 

150t 



FATFLG. ♦15. 



I FIRST WORD FROM READ BUFFER 
t SET UP EXPECTED 
ilS TAPE POSITION CORRECT 
{KEEP GOING POSITION OK 
tBUMP COUNT 

jTAPE POSITION INCORRECT 

TRAP 
.UORD 
.UORD 
.UORD 

TRAP 

I AT MAX SIZE YET 

iBR. IF AT END OF THE SUBTEST 

tKEEP GOING MORE RECORDS 



OERHRD 
630 
T26UNG 
EXPREC 

CtCLPl 



]>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10105: 

TRAP C$ESUB 
ilS ERROR COUNT AT 25 



TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 



HACRO MII15 01 -FEB 64 17:54 



Bi 



S£Q 206 



6179 
6160 
6161 
6182 
6163 
61C4 
6165 
6166 
6167 
6166 
6189 
t>190 
6191 
6192 
6193 
6194 
6195 
6196 
6197 
6196 



6199 
6200 
6201 
6202 
6203 
6204 
6205 
6206 
6207 
6206 
6209 
6210 
6211 
6212 
6216 
6217 



060140 
060142 
060146 



060146 
060146 
060146 
060150 
060154 
060160 
060164 



6218 
6219 
6220 
6221 
6222 
6223 
6224 
6225 
6226 
6227 
6228 
6229 
6230 
6234 
6235 



060170 
060174 
060176 
060202 
060204 
060204 
060206 
060210 
060212 
060214 



103402 

004737 017104' 



104402 

004737 074620* 

005037 072056' 

004737 074712* 

004737 074754* 



9991: 



BLO 
JSR 



9991 

PC.CKOROP 



iBR. ir LESS THAN 25 
I TRY TO DROP THE UNIT 



TEST 6. SUBTEST 4 

VERIFIES THAT THE REREAD PREVIOUS COMTIANO WITH OPP-1 
AND SUB-1 OPERATES PROPERLY. THE TEST SEQUENCE IS 
THE SAME THAT IS USED IN SUBTEST S. BUT IT IS 
VERIFIED THAT DATA STORED BY THE COmAND CONTAINS 
SWAPPED BYTES. 



BGNSUB 



JSR 
CLR 
JSR 
JSR 



PC.T26REST 
T26CNT 
PC.T26RT2 
PC.T26RT3 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T6.4; 

TRAP CtBSUB 

tSET COMMAND PACKET 
t CLEAR TAPE RECORD COUNTER 
I SET UP OTHER COMHAND PACKET 
I SET UP OTHER COmAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 015674' 
103407 

005237 002212' 
010001 

104455 

001167 

003642' 

011734* 

01S7S7 002172' 071720' 20<t 



060222 012704 071700' 



JSR PC.SOFINIT 

BCS 201 

INC FATFLG 

NOV RO.Rl 

ERROF ERRNO.SFIERR.SFINSG 



NOV UNITN.T260SU 
NOV •T26PRCKET.IM 



iDO INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
iBUNP COUNT 

TSSR REGISTER 
TSSR WAS NOT OK 
TRAP 
.MORO 
.WORD 
.WORD 

tSET UP UNIT NUr«ER 



{CONTENTS OF 
t FATAL ERROR 



CIEROF 
631 

SFIERR 
SFIMSG 



I SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS C0rtM»O (CALL TO URTCHR) 



060226 
060232 
060234 
060240 
060242 



004737 010562' 
103407 

005237 002212' 
010001 



JSR PC. URTCHR 

BCS 26 • 

INC FATFLG 

nov RO.Rl 

ERRHRO ERRNO . URTNSG . CF IHSG 



I ISSUE WRITE CHARACTERISTICS 
iBR. IF COHHAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 



CI 



TSV7 
TEST 



6: 



HACRO milS 01 FEB M 17:54 



SEQ 209 



6256 

6237 
62S8 
6259 
6240 
6241 
6242 
6245 
6244 
6245 
6246 
6247 
6248 
6249 
6255 



6254 

6255 
6256 
6257 
6258 
6259 
6260 
6261 
6262 
6265 
6264 
6265 
6266 
6267 
6271 



6272 

6275 
6274 
6275 
6276 
6277 
6278 
6279 
6280 
6281 
6282 
6283 



060242 
060244 

060246 

060250 
060252 
060252 



060254 
060260 
060262 
060266 
060272 
060274 
060300 
060300 
060302 
060304 
060306 
060310 
060310 



060512 
060516 
060320 
060324 
060326 
060330 
060354 
060554 
060536 
060340 
060542 
060544 
060544 
060546 
060552 



060360 
060566 



104456 

001170 
005046 
0117S4- 

104406 



261 i 



CKLOOP 



iLOOP IF SELECTED 



TRAP 
.UORD 
.UQRO 
.MORO 

TRAP 



ISSUE REWIND COMTIAND TO SELECTED TAPE DRIVE 



004 757 010714' 
105415 

016501 000002 

012702 000200 
010004 

005257 002212' 

104456 

001171 

075564' 

011746' 

104406 



301: 



JSR 

ecs 

MOV 
MOV 

nov 

INC 

ERRHRD 



CKLOOP 



PC.REUIND 
SOI 

TSSR(R5).R1 
•SSR.R2 
R0.R4 
FATFLG 

ERRNO. T26RUN.PKTSSR 



I CALL TAPE REMIND COWAND 
iBR. IF NO PROBLEN 

iGET TSSR 

I SET UP EXPECTED TSSR 
{PACKET ADDRESS SET UP 
ieu»«> COUNT 
IREUIND NOT ACCEPTED 

TRAP 
.UORO 
.UORD 
.WORD 

iLOOP IF SELECTED 

TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 071730' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 

001172 

073075' 

015374' 

104406 

012705 000400 

015757 005114* 072052' 



401: 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 



T26BFR»6.R1 

RI.R2 

•6IT1.R2 

R1.R2 

40* 

FATFLG 

ERRNO. T26B0T .EXPREC 



MOV 
MOV 



•256., R5 
FREE.T26RB 



CIERHRD 
652 
URTMSG 
SFIMSG 

CKLPl 



CIER»«D 
655 
T26RUN 
PKTSSR 

CICLPl 



iPICK UP XSTO 

I SET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

:BR. IF EQUAL (OK) 

iBUr«> COUNT 

I TAPE NOT AT BOT AFTER REUIND 

TRAP 
.UORO 
.WORD 
WORD 

tLOOP IF SELECTED 

TRAP 

{RECORD SIZE 

{STARTING WRITE BUFFER ADDRESS 



CIER»«D 
654 

T2680T 
EXPREC 

C»CLPl 



WRITE DATA.CVC*1.ACK COMMAND 



012757 140005 072050' 
012704 072050' 



MOV #140005. T26PK5 
MOV •r26PK5,R4 



I WRITE OATA.CVC-l.ACK COMMAND 
I SET UP R4 WITH PACKET ADDRESS 



Di 



1 8 



6^64 
6265 
6286 
6287 
6268 
6269 
6290 
6291 
6292 
6293 
6294 
6295 
6296 
6300 



6301 

6302 
6303 
6304 
6305 
6306 
6307 
6306 
6309 
6310 
6311 
6312 
6313 
6314 
6315 
6316 
6317 
6316 
6319 
6320 
6324 



6325 

6326 
6327 
6326 
6329 
6330 
6331 
6332 
6333 
6334 
6335 
6336 



060372 
060372 
060374 
060400 
060404 
060412 
060420 
060424 
060430 
060434 
060440 
060442 
060444 
060450 
060450 
060452 
0604S4 
060456 
060460 
060460 
060462 
060464 
060470 
060472 
060474 
060474 



060500 
060504 
060506 
060512 
060516 
060520 
060524 
060524 
060526 
060530 
060532 
060534 
060534 



06C556 
060542 
060544 
060550 



6Sf : 



010300 
004737 
010337 
013777 
062737 
010465 
004737 
016501 
012702 
0c0102 
001406 
005237 

104456 

001173 

005103' 

011746- 



104406 

005723 

022703 000412 
001401 

000737 

005037 072056' 



017324- 
072036* 

072056' 122502 

000001 U72056 

000000 

016150' 

000002 

000200 



002212' 



FEB 64 


17:54 




HOV 


R3.R0 


iSET PATTERN IN CORRECT REGISTER 


JSR 


PC.FILLMEM 


iFILL MEMORY WITH RECORD SIZE 


MOV 


R5.T26S2 


1 SET UP RECORD SIZE xN ©ACKET 


MOV 


T^^CNT.BTREE 


iMOVE TAPE RECORD NUMBER TO BUFFER 


ADO 


♦I , T26CNT 


iNUMBER READY FOR NEXT RECORD 


MOV 


R4»TS0B(RS) 


iISS^JE COMMAND 


JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 


HOV 


TSSR(R5).Rl 


iGET TSSR CONTENTS 


MOV 


#SSR,R2 


1 SET UP EXPECTED 


CMP 


Rl 9R2 


I ARE THEY EQUML 


BEG 


75$ 


iBR. IF OK 


INC 


FATFLG 


iBUMP COUNT 


ERRHRO 


ERRNO . UR TERR • PK TSSR 


iTSSR INCORRECT AFTER REREAD DATA 



SEQ 210 



75* : 



1201: 



CKLOOP 

TST 
CMP 
BEQ 
BR 

CLR 



(R3>* 
•266.. R3 
120$ 
65 » 

T26CNT 



TRAP CIERHRO 
.WORD 635 
.UORO URTERR 
.UORO PKTSSR 

I LOOP IF SELECTED 

TRAP CICLPI 

I BUMP THE RECORD SIZE 
iMAXiMUM SIZE YET 
I BR. IF AT END OF URITE SEQUENCE 
lURITE MORE RECORDS 

I SET RECORD COUNTER BACK TO ZERO 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



004737 010714' 
103413 

016501 000002 

012702 000200 
010004 

005237 002212* 

104456 

001174 

073364' 

011746' 

104406 



J5R 
BCS 
MOV 
MOV 
MOV 
INC 

ERRHRD 



ISOI: CKLOOP 



PC.REUIND 
130$ 

TSSR(R5).R1 

#SSR.R2 

R0.R4 

FATFLG 

ERRNO . T26RUN , PK T SSR 



iCALL TAPE REWIND COMMAND 
iBR. IF NO PROBLEM 
iGET TSSR 

t SET UP EXPECTED TSSR 
{PACKET ADDRESS SET UP 
I BUMP COUNT 
I REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

tLOOP IF SELECTED 

TRAP 



C$ERHRD 
636 
T26RJN 
PKTSSR 

C$CLP1 



iREAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



015701 071730' 
010102 

052702 000002 
020102 



MOV 
NOV 
BIS 
CMP 



T26BFR»6.R1 
R1.R2 
«BIT1.R2 
R1,R2 



iPICK UP XSTO 

I SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

iDOES EXP • REC'D 



El 



TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 



MACRO nillS 01 FEB 64 17:54 



SEQ 211 



6557 
6556 
6542 



6545 

6544 

6545 
6546 
6547 
6548 
6549 
6550 
6551 
6552 
6555 
6554 
6555 
6556 
6557 
6558 
6559 
6560 
6561 
6562 
6565 
6564 
6365 
6566 
6367 
6368 
6569 
6570 
6571 
6372 
6376 



6377 

6378 
6379 
6380 
6381 
6382 
6383 
6387 



6588 



060552 
060554 
060560 
060560 
060562 
060564 
060566 
060570 
060570 



060572 
060576 
060602 
060606 



060614 
060622 
060626 
060652 
060656 
060642 
060646 
060652 
060654 
060656 
060662 
060662 
060664 
060666 
060670 
060672 
060672 
060674 
060700 
060704 
060706 
060710 
060712 
060716 
060716 
060720 
060722 
060724 
060726 



001406 

005257 002212' 

104456 

001175 

073075' 

015374* 

104406 



140$: 



BEQ 140 t 

INC FATFLG 

ERRHRD ERRNO . T26B0T . EXPREC 



CKLOOP 



iBR. IF EQUAL (OK) 
I BUMP COUNT 

I TAPE NOT AT 80* AFTER REUINO 

TRAP 
.WORD 
.WORD 
UORD 

J LOOP IF SELECTED 

TRAP 



C»ERMRn 
637 
T26B0T 
EXPREC 

CICLPI 



(ISSUE SPACE RECORDS COmAND - VALUE IN R3 SETS NUMBER OF RECORDS 
(BIT 15 SETS DIRECTION - 0-FORUARD 1-REVERSE 



012705 000001 

004757 010366' 

012703 000400 

013737 003114' 072032' 150* : 



012737 171001 072030' 

012704 072030' 

010337 072036' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 

001176 

072305' 

011746' 

104406 

017701 122214 
013702 072056' 
000302 
020102 
001406 

005237 002212' 

104456 

001177 

072066' 

015374' 



165 1: 



MOV 


«1.R5 


iSET UP SPACE FORWARD 1 


JSR 


PC. SPACE 


{ISSUE SPACE COMMAND 


MOV 


♦256..R3 


t RECORD SIZE 


MOV 


FREE.T26RB 


1 STARTING READ BUFFER ADDRESS 


0ATA.CVC>1.ACK. OPP COMMAND 




MOV 


•171001. T26PK3 


{REREAD DATA.CVC-l.ACK. OPP COttlAND 


MOV 


♦T26PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 


MOV 


R5.T26SZ 


tSET UP RECORD SIZE IN PACKET 


MOV 


R4.TS08(R5^ 


t ISSUE COMMAND 


JSR 


PC.WAITF 


(WAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 


MOV 


#SSR.R2 


iSET UP EXPECTED 


CMP 


R1.R2 


lARE THEY EQUAL 


BEQ 


170* 


,BR. IF OK 


INC 


FATFLG 


iBUMP COUNT 


ERRHRO 


ERRNO, T26RRF .PKTSSR 


iTSSR INCORRECT AFTER REREAD DATA 



170* : 



TRAP 
.WORD 
.WORD 
.WORD 



CKLOOP 




J LOOP IF SELECTED 






TRAP 


MOV 


aFREE.Rl 


(FIRST WORD FROM READ BUFFER 


MOV 


T26CNT.R2 


(SET UP EXPECTED 


SWAB 


R2 


iSWAP BYTES IN EXPECTED 


CMP 


R1.R2 


lis TAPE POSITION CORRECT 


BEQ 


190 » 


(KEEP GOING POSITION OK 


INC 


FATFLG 


J BUMP COUNT 


ERRHRD 


ERRNO. T26WNG. EXPREC 


iTAPE POSITION INCORRECT 



CtERHRO 
658 
T26RRF 
PKTSSR 

CfCLPl 



190ft CKLOOP 



TRAP 
.WORD 
.WORD 
.WORD 



CtERHRD 

659 

T26UNG 

EXPREC 



TSV7 HAROUARE TESTS IS 
TEST 6: REREADS 



MACRO M1113 01-rEB 84 17:54 



Fi 



SEQ 212 



6389 
6590 
6391 
6392 
6393 
6394 
6395 
6396 
6397 
6398 
6399 
6400 
6401 
6402 
6403 
6404 
6405 
6406 
6410 



6411 

6412 
6413 
6414 
6415 
6416 
6420 



6421 

6422 
6423 
6424 
6425 
6426 



6427 
6428 
6429 
6430 
6431 
6432 
6433 
6434 
6435 
6436 
6437 
6438 



060726 
060730 
060732 



060740 
060746 
060752 
060756 
060762 
060766 
060772 
060774 
060776 
061002 
061002 
061004 
061006 
061010 
061012 
061012 
061014 
061020 
061024 
061026 
061030 
061034 
061034 
061036 
061040 
061042 
061044 
061044 
061046 
061052 
061054 
061056 
061056 
061056 
061056 
061060 
061066 
061070 
061074 



104406 

005723 

062737 000001 072056' 



TST 
ADO 



(R3). 
•l.r26CNT 



TRAP 

I NEXT RECORD SIZE 

iBUMP TAPE RECORD COUNTER 



C»CLP1 



READ DATA, CVC>1. ACK COTtlAND 



012737 140001 072030' 

010337 072036' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

10<456 
001200 
072236' 
011746' 

104406 

017701 122074 
013702 072056' 
020102 
001406 

005237 002212' 

104456 

001201 

072066' 

015374- 

104406 

022703 000410 

001401 

000654 



104403 

023727 002212' 000017 
103402 

004737 017104' 



215t: 



2171: 



220<: 



nov 


•140001, T26PK 3 


iREAD DATA, CVC-1. ACK COTilANO 


nov 


R3.T26SZ 


iSET SIZE INTO PACKET 


nov 


R4.TS0B(R5) 


(ISSUE READ DATA COTtlANO 


JSR 


P«:,UAITF 


tUAIT FOR SSR 


NOV 


USR(R5).R1 


iPICK UP THE TSSR 


nov 


•SSR.R2 


iSET UP EXPECTED 


cnp 


R1.R2 


lis THE TSSR OK 


BEO 


215 1 


i8R. IF TSSR OK (GOOD) 


INC 


FATFLG 


iBUMP COUNT 


ERRHRD 


ERRNO . T26R0f . TSSR 


(READ DATA COTtlANO FAILED 






TRAP 






.WORD 






.WORD 






.WORD 


CKLOOP 




(LOOP IF SELECTED 






TRAP 



NOV 
NOV 

cnp 

BEQ 
INC 

errhro 



CKLOOP 

CMP 
BEO 
BR 

ENOSUB 



8FREE.R1 

T26CNT.R2 

R1.R2 

217» 

FATFLG 

ERRNO . T26MNG . EXPREC 



#264.. R3 

220t 
150t 



iFIRST UORD FROM READ BUFFER 
i SET UP EXPECTED 
lis TAPE POSITION CORRECT 
iKEEP GOING POSITION OK 
iBUMP COUNT 

{TAPE POSITION INCORRECT 

TRAP 
.WORD 
.UORD 
.UORD 

TRAP 

lAT MAX SIZE YET 

I BR. IF AT END OF THE SUBTEST 

I KEEP GOING MORE RECORDS 



CIERHRO 
640 
T26R0F 
PKTSSR 

CICLPl 



CIERHRD 
641 
T26UNG 
EXPREC 

C»CLP1 



CMP FATFLG. 415. 
BLO 9991 
JSR PC.CKOROP 



999»: 
t ♦ 

{test 6. SUBTEST 5 

{verifies that a REREAD PREVIOUS COMMAND READING A 
{RECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 
I TAPE STATUS ALERT TERHINATIOT: WITH THE RECORD LENGTH 



{>>>>>>>>>>>> ENC SUBTEST >>>>>>>>>>>> 
L 10106: 

TRAP CtESUB 
tIS ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



Gl 



TSV7 
TEST 



HAROUARF TESTS 1-6 
6: REREADS 



HACRO H1115 01 -FEB 84 17:54 



SEQ 213 



6459 
6440 
6441 
6442 
6443 
6444 
6445 
6446 
6447 



6446 
6449 
6450 
6451 
6452 
6453 
6454 
6455 
6456 
6457 
6458 
6459 
6460 
6464 
6465 



6466 
6467 
6466 
6469 
6470 
6471 
6472 
6473 
6474 
6475 
6476 
6477 
6476 
6462 
6463 



061074 
061074 
061074 
061076 
061102 
061106 



061112 
061116 
061120 
061124 
061126 
061126 
061130 
061132 
061134 
061136 



6464 

6465 
6466 
6467 
6466 
6469 
6490 



061150 
061154 
061156 
061162 
061164 
061164 
061166 
061170 
061172 
061174 
061174 



LONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH 
STATES OF OPP (0 AND I). 



104402 

004757 074620' 

004737 074712' 

004757 074754' 



BGNSUB 



JSR PC.T26REST 
JSR PC.T26RT2 
JSR PC.T26RT5 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T6.5: 

TRAP CtBSUB 

J SET COrtlANO PACKET 

i SET UP OTHER COMnAND PACKET 

»SET UP OTHER COMHANO PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 015674* 
103407 

005257 002212' 
010001 

104455 

001202 

003642' 

011734' 

013737 002172' 071720* 20t: 



061144 012704 071700' 



JSR PC.SOFINIT 

BCS 20t 

INC FATFLG 

MOV RO.Rl 

ERROF ERRNO.SFIERR.SFIHSG 



MOV UNITN.T260SU 
NOV *T26PACKET.R4 



iOO INITIALIZE ON CONTROLLER 
(BR IF INIT WAS OK 
I BUMP COUNT 

» CONTENTS OF TSSR REGISTER 
(FATAL ERROR TSSR WAS NOT OK 

TRAP 
.UORO 
.UORO 
.WORD 

:SET UP UNIT NUMBER 



CIEROF 
642 
SFIERR 
SFIMSG 



{SUBROUTINE NEEDS PACKET ADDRESS 



URITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



004737 010S62* 
103407 

005237 002212' 
010001 

104456 

001205 

005046' 

011734' 

104406 



26<: 



JSR 
BCS 
INC 
MOV 

ERRMK) 



CKLOOP 



PC. URTCHR 
26« 

FATFLG 
RO.Rl 

ERRNO . URTMSG . SF IHSG 



J ISSUE WRITE CHARACTERISTICS 
;BR. IF COMMAND ISSUED OK 
8 BUMP COUNT 

tSAVE CONTENTS OF TSSR 
tWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.UORO 
.WORD 



tLOOP IF SELECTED 



TRAP 



CtERHRD 
643 

URTMSG 
SFIMSG 

C»CLP1 



ISSUE REWIND COHNAND TO SELECTED TAPE DRIVE 



TSV7 HAROUARE TESTS 1-8 
TEST 6: REREADS 



MACRO MlllS 01 FEB 84 17:54 



Hi 



SEQ ^14 



6491 




















061176 


004 ■'J? 


010714' 


JSR 


PC. REWIND 


tCALL TAPE REWIND CO^tlAND 




6493 


061202 


1034 IS 




BCS 


301 








6494 


061204 


016501 


000002 


HOV 


TSSR(R5).R1 


•HPT TQQD 






6495 


061210 


012702 


000200 


HOV 


4>SSR.R2 








6496 


061214 

W Aw A~ 


010004 




nov 


R0.R4 


1 PACKET AuORESS SET UP 






6497 


061^16 


005237 


002212' 


INC 


FATFLG 


iBUriP COUNT 






6501 


061222 






ERRHRD 


ERRNO • T26RUN . PK T SSR 


s REWIND NOT ACCEPTED 








061222 


104456 










TRAP 


CIERHRD 




061224 


001204 










.WORD 


644 




061226 


073364' 










• WORD 


^26RUN 




061230 


011746* 










.WORD 


PKTSSR 


6502 


061252 






301: CKLOOP 




iLOOP IF SELECTED 








061232 


1C';406 










TRAP 


CICLPl 



6503 
6S04 
6505 
6506 
6507 
6508 
6509 
6510 
6511 
6512 
6513 
6514 
6515 
6519 



6520 

6521 
6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 
6532 
6533 
6534 
6535 
6536 
6537 
6538 
6539 
6540 
6544 



061234 
061240 
061242 
061246 
061250 
061252 
061256 
061256 
061260 
061262 
061264 
061266 
061266 
061270 
061274 



061302 
061310 
061314 
061314 
061320 
061324 
061330 
061334 
061340 
061342 
061344 
0613S0 
061350 
061352 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 



013701 071730' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 

001205 

073075' 

015374' 

104406 

012703 OOlOOO 

013737 003114' 072032' 



40t! 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 



T268FR»6.R1 

R1.R2 

•6IT1.R2 

R1.R2 

40* 

FATFLG 

ERRNO. T2680T .EXPREC 



MOV 
MOV 



♦512. .R3 
FREE,T26RB 



jPICK UP XSTO 

J SET UP EXPECTED 

»SET BOT BIT IN EXPECTED 

tDOES EXP - REC'D 

>BR. IF EQUAL (OK) 

tBUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.UORD 
.UORD 
UORD 

iLOOP IF SELECTED 

TRAP 

; RECORD SIZE 

{STARTING WRITE BUFFER ADDRESS 



C>ER»«D 
645 
T26B0T 
EXPREC 

CICLPl 



WRITE OATA.CVC-l.ACK COMMAND 



012737 140005 072030' 

012704 072030' 

010337 072036' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 

001206 



65$: 



MOV 


«140005.T26PK3 


lURITE DATA.CVC-l.ACK COMMAND 


MOV 


•T26PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 


MOV 


R3.T26SZ 


J SET UP RECORD SIZE IN PACKET 


MOV 


R4.TSDBCR5) 


i ISSUE COMMAND 


JSR 


PC.UAITF 


;WAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


;GET TSSR CONTENTS 


MOV 


#SSR.R2 


1 SET UP EXPECTED 


CMP 


R1.R2 


(ARE THEY EQUAL 


BEQ 


75$ 


tBR. IF OK 


INC 


FATFLG 


(BUMP COUNT 


ERRHRD 


ERRNO , WRTERR . PK TSSR 


sTSSR INCORRECT AFTER WRITE DATA 



TRAP 
.WORD 



CSERHRD 
646 



11 



rSV7 HAROUARE TESTS 1-8 
TEST 6: REREADS 



MACRO HI lis 01 -FEB 84 17:54 



SEQ 215 



6545 

6546 
6547 
6546 
6549 
6550 
6551 
6552 
6553 
6554 
6555 
6556 
6557 
6558 
6559 
6560 
6561 
6562 
6563 
6564 
6566 



6569 

6570 
6571 
6572 
6573 
6574 
6575 
6576 
6577 
6576 
6579 
6580 
6581 
6582 
6586 



6587 

6588 
6589 

6590 
6591 
6592 
6593 
6594 



061354 
061356 
061360 
061360 
061362 
061364 



061372 
061400 
061404 
061410 
061414 
061420 
061424 
061430 
061432 
061434 
061440 
061440 
061442 
061444 
061446 
061450 
061450 



061452 
061456 
061460 
061464 
061466 
061470 
061474 
061474 
061476 
061500 
061502 
061504 
061504 
061506 
061512 



005103' 
011"'46' 

104406 

005303 

013737 003114* 072032' 



75$: 



CKLOOP 

DEC 
MOV 



URTERR 
PKTSSR 



R3 

FREE.T26RB 



.UORO 
WORD 

I LOOP IF SELECTED 

TRAP C«CLP1 

I SET RECORD SIZE TO 511. 
{STARTING READ BUFFER ADDRESS 



REREAD DATA.CVC-1.ACK,0PP-1 COMMAND 



012737 161001 072030* 

012704 072030' 

010337 072036' 

010465 000000 

004737 016150' 

016501 000002 

012702 100204 
020102 
001406 

005237 002212' 

104456 

001207 

074442' 

011746' 

104406 



165$! 



MOV 


•161001. T26PK3 


{REREAD DATA.CVC-l.ACK.OPP-1 COMMAND 


MOV 


«T26PK3.R4 


tSET UP R4 WITH PACKET ADDRESS 


MOV 


R3.T26SZ 


tSET UP RECORD SIZE IN PACKET 


MOV 


R4.TS08(R5) 


t ISSUE COMMAND 


JSR 


PC.WAITF 


tUAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


tGET TSSR CONTENTS 


MOV 


•SSR!SC!BIT2.R2 


iSET UP EXPECTED 


CMP 


R1.R2 


{ARE THEY EQUAL 


BEQ 


170$ 


tBR. IF OK 


INC 


FATFLC 


{BUMP COUNT 


ERRHRD 


ERRN0.T26TRL. PKTSSR 


iTSSR INCORRECT AFTER REREAD DATA 



170$: 



CKLOOP 



iLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.UORD 

TRAP 



C$ERHRD 
647 
T26TRL 
PKTSSR 

C$CLP1 



tREAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 


071730' 


MOV 


T26BFR»6.R1 


(GET MESSAGE BUFFER 




010102 




MOV 


R1.R2 


{SET UP EXPECTED 




052702 


010000 


BIS 


«eiT12.R2 


tSET THE RLL BIT IN EXPECTED 




020102 




CMP 


R1.R2 


{ARE THEY EQUAL 




001406 




BEQ 


180$ 


{BR. IF EQUAL (ALL IS WELL) 




005237 


002212' 


INC 


FATFLG 


sBUMP COWT 








ERRHRO 


ERRNO. T26L0N.EXPREC 


{THE RLL BIT WAS NOT SET IN XSTO 


104456 








TRAP 


C$ERHRD 


001210 








.WORD 


648 


074210' 








.UORD 


T26L0N 


015374' 


160$: 


CKLOOP 




.UORD 

(LOOP IF SELECTED 


EXPREC 


104406 








TRAP 


C$CLP1 


012703 


000777 


MOV 


«511. .R3 


iSET RECORD SIZE 




013737 


003114' 072032' 


MOV 


FREE,T26RB 


{STARTING READ BUFFER ADDRESS 





; REREAD DATA.CVC-1. ACK COMMAND 



TSV7 HARDWARE TESTS 1-8 
TEST 6: REREADS 



Ji 



6595 
6596 
6597 
6596 
6599 
f 00 
6601 
6602 
6603 
6604 
6605 
6606 
6610 



6611 

6612 
6613 
6614 
6615 
6616 
6617 
6618 
6619 
6620 
6621 
6622 
6623 
6624 
6628 



6629 
6630 



6631 
6632 
6633 
6634 
6635 
6636 
6637 
6638 
6639 
6640 
6641 
6642 
6643 
6644 
6645 



061520 
061526 
061532 
061536 
061542 
061546 
061552 
061556 
061560 
061562 
061566 
061566 
061570 
061572 
061574 
061576 
061576 



061600 
061604 
061606 
061612 
061614 
061616 
061622 
061622 
061624 
061626 
061630 
061632 
061632 
061634 
061634 
061634 
061636 
061644 
061646 
061652 



012737 141001 072030- 

012704 072030' 365*: 

010337 072036' 

010465 000000 

004737 016150' 

016501 000002 

012702 100204 

020102 

001406 

005237 002212' 

104456 

001211 
074442' 
011746' 



FEB -84 


17:54 




MOV 


•141001. T26PK5 


1 REREAD DATA CVC«1 ACK COMHAND 


MOV 


«T26PK3,R4 


tSET UP R4 UITH PACKET ADDRF^<k 


hOV 


R3.T26SZ 


iSET UP RECORD ^IZE IN PACKET 


MOV 


R4.TSDB(R5) 


1 ISSUE COMMAND 


JSR 


PC.WAITF 


lUAIT FOR SSR TO SET 


nov 


TSSR(R5).R1 


iGET TSSR CONTENTS 


nov 


#SSR!SC!BIT2.R2 


iSET UP EXPECTED 


CMP 


R1.R2 


lARE THEY EQUAL 


BEQ 


3701 


iBR. IF OK 


INC 


FATFLG 


iBUMP COUNT 


ERRHRO 


ERRNO. T26TRL .PKTSSR 


iTSSR INCORRECT AFTER REREAD DATA 



SEO 216 



104406 



370* : 



CKLOOP 



I LOOP IF SELECTED 



TRAP 
.UORD 
.WORD 
.UORD 

TRAP 



CIERHRO 
649 
T26TRL 
PKTSSR 

C»CLP1 



READ MESSAGE BUFFER "EXTENDED STATUS REGISTER ZERO CXSTO) 



013701 071730' 
010102 

052702 010000 

020102 

001406 

005237 002212' 

104456 

001212 

074210' 

015374' 

104406 



104403 

023727 002212' 000017 
103402 

004737 017104' 



S80«i 



NOV 

BIS 
CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 
ENOSUB 



T26BFR»6.R1 
R1.R2 
46IT12.R2 
R1.R2 

saot 

FATFLG 

ERRNO. T26L0N.EXPREC 



CMP 
BLO 
JSR 



FATFLC.415. 
999« 

PC.CKDROP 



999* j 
!♦ 

ilEST 6. SUBTEST 6 

t VERIFIES THAT A REREAD PREVIOUS COTtlAND READING A 
tRECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES 
{TAPE STATUS ALERT TERMINATION UITH THE RECORD LENGTH 
{SHORT (RLS) BIT SET. IT IS VERIFIED THAT THE 
(RESIDUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER 
{CONTAINS THE PROPER NONZERO VALUE (E.G.. THE 



:GET MESSAGE BUFFER 

I SET UP EXPECTED 

iSET THE RLL BIT IN EXPECTED 

(ARE THEY EQUAL 

tSR. IF EQUAL (ALL IS UELL) 

:BUMP COUNT 

:THE RLL BIT UAS NOT SET IN XSTO 

TRAP CtERt«0 
.UORD 650 
.UORD T26L0N 
.UORD EXPREC 

TRAP OCLPl 
;>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10107: 

TRAP CtESUB 
sis ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
{TRY TO DROP THE UNIT 



TSV7 
TEST 



HARDWARE TESTS 1-8 
6: REREADS 



MACRO M1113 01 -FEB -84 17:54 



SEQ 217 



6646 
6647 
6646 
6649 
6650 
6651 
6652 
6653 



6654 
6655 
6656 
6657 
6656 
6659 
6660 
6661 
6662 
6663 
6664 
6665 
6666 
6670 
6671 



6672 
6673 
6674 
6675 
6676 
6677 
6678 
6679 
6680 
6681 
6682 
6683 
6664 
6686 
6689 



6690 

6691 
6692 
6693 
6694 
6695 
6696 
6697 



tOIFFERENCE BETUEEN THE ORIGINAL BYTE COUNT AND THE 
{ACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH 
tSTATES OF OPP (0 AND I), 
t 



061652 
061652 
061652 
061654 
061660 
061664 



104402 

004737 074620' 

004737 074712' 

004737 074754' 



061670 
061674 
061676 
061702 
061704 
061704 
061706 
061710 
061712 
061714 



004737 
103407 
05237 
010001 

104455 

001213 

003642' 

011734' 

013737 



061722 012704 



061726 
061732 
061734 
061740 
061742 
061742 
061744 
061746 
061750 
061752 
061752 



BGNSU8 



JSR 
JSR 
JSR 



PC.T26REST 

PC.T26RT2 

PC.T26RT3 



;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T6.6: 

TRAP CIBSUB 

I SET COrtlAND PACKET 

tSET UP OTHER COMMAND PACKET 

t SET UP OTHER COMHAND PACKET 



(ISSUE CONTROLLER 
t 

1****************4 



"SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



015674' 
002212' 



002172* 
071700' 



071720* 201: 



JSR PC.SOFINIT 

BCS 201 

INC FATFLG 

nOV RO.Rl 

ERROF ERRNO.SFIERR.SFinSG 



NOV UNITN,T26DSU 
NOV #T26PACKET.R4 



tOO INITIALIZE ON CONTROLLER 
tBR IF INIT UAS OK 
tBUMP COUNT 

(CONTENTS OF TSSR REGISTER 
{FATAL ERROR TSSR UAS NOT OK 

TRAP 
.UORD 
.UORD 
.UORO 

tSET UP UNIT NUMBER 



CtEROF 
651 
SFIERR 
SFIMSG 



{SUBROUTINE NEEDS PACKET ADDRESS 



URITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



004737 010562* 
103407 

005237 002212' 
010001 

104456 
001214 
005046' 
011734' 

104406 



26*: 



JSR 
BCS 
INC 
MOV 

errhro 



CKLOOP 



PC. URTCHR 
26* 

FATFLG 
RO.Rl 

ERRNO . URTMSG . SF IMSG 



: ISSUE URITE CHARACTERISTICS 
:BR. IF COMMAND ISSUED OK 
;BUMP COUNT 

(SAVE CONTENTS OF TSSR 
{URITE CHARACTERISTISC FAILED 

TRAP 
.UORD 
.UORD 
.UORD 

{LOOP IF SELECTED 

TRAP 



CIERHRD 
652 

URTMSG 
SFIMSG 

OCLPl 



{**«****************************************4 

I ISSUE REUIND COMMAND TO SELECTED TAPE DRIVE 



Li 



TSV7 ■ HAROUARE TESTS 1-8 
TEST 6: REREADS 



MACRO Mills 01 -FEB 84 17-54 



SEC 218 



6696 
6699 
6700 
6701 
6702 
6703 
6707 



6708 

6709 
6710 
6711 
6712 
6715 
6714 
6715 
6716 
6717 
6718 
6719 
6720 
6721 
6725 



061754 
061760 
061762 
061766 
061 '72 
061774 
062000 
062000 
062002 
062004 
062006 
062010 
062010 



062012 
062016 
062020 
062024 
062026 
062030 
062034 
062034 
062036 
062040 
062042 
062044 
062044 

6727 062046 

6728 062052 
6729 

6730 
6731 
6732 
6733 
6734 
6735 



6726 



004737 010714' 
103413 

016501 000002 

012702 000200 
010004 

005237 002212' 

104456 
001215 
073364* 
011746' 

104406 



30$: 



JSR 
BCS 
hOV 

nov 

HOV 
INC 

ERRHRD 



CKLOOP 



PC. REWIND 
30 « 

TSSR(R5).R1 
•SSR.R2 
R0.R4 
TATFLG 

ERRNO. T26RUN.PKTSSR 



(CALL TAPE REWIND COTtlAND 
I BR. IF NO PROBLEM 
(GET TSSR 

»SET UP EXPECTED TSSR 
I PACKET ADDRESS SET UP 
(BUMP COUNT 
iREUiNO NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 



C»ERHRD 
653 
T26RUN 
PKTSSR 

C»CLP1 



sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 071730' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001216 
073075' 
015374' 

104406 

012703 000400 

013737 003114' 072032' 



MOV 


T26BFR*6.R1 


iPICK UP XSTO 




MOV 


R1.R2 


t SET UP EXPECTED 




BIS 


«6IT1.R2 


iSET BOT BIT IN EXPECTED 




CMP 


R1.R2 


:OOES EXP - REC'O 




BEQ 


40* 


iBR. IF EQUAL (OK) 




INC 


FATFLG 


iBUMP COUNT 




ERRHRD 


ERRNO . T26B0T . EXPREC 


:TAPE NOT AT BOT AFTER REWIND 








TRAP 


CtERHRD 






.WORD 


654 






.WORD 


T26B0T 






.WORD 


EXPREC 


I0« : CKLOOP 




J LOOP IF SELECTED 








TRAP 


C«CLPl 


MOV 


«256..R3 


: RECORD SIZE 




MOV 


FREE.T26RB 


{STARTING WRITE BUFFER ADDRESS 




i WRITE DATA.CVC 

1 


■l.ACK COMMAND 







6736 


062060 


012737 


140005 072030' 


MOV 


«140005.T26PK3 


{WRITE DATA.CVC -LACK COMMAND 




6737 


062066 


012704 


072030' 


MOV 


*T26PK3.R4 


tSET UP R4 WITH PACKET ADDRESS 




6738 


062072 




65$: 






6739 


062072 


010337 


072036' 


MOV 


R3,T26SZ 


J SET UP RECORD SIZE IN PACKET 




6740 


062076 


010465 


000000 


MOV 


R4.TSDB(R5) 


: ISSUE COMMAND 




6741 


062102 


004737 


016150' 


JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 




6742 


062106 


016501 


000002 


MOV 


TSSR(R5).Rl 


jGET TSSR CONTENTS 




6743 


062112 


012702 


000200 


MOV 


«SSR.R2 


J SET UP EXPECTED 




6744 


062116 


020102 




CMP 


R1.R2 


(ARE THEY EQUAL 




6745 


062120 


001406 




BEQ 


75$ 


:8R. IF OK 




6746 


062122 


005237 


002212' 


INC 


FATFLG 


(BUMP COUNT 




6750 062126 






ERRHRD 


ERRNO . WR TERR . PK TSSR 


(TSSR INCORRECT AFTER WRITE DATA 




062126 


104456 






TRAP 


CIERHRD 




062130 


001217 








.WORD 


655 




062132 


005103' 








.WORD 


WRTERR 



Mi 
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062134 


011746' 










.WORD 


PKTSSR 


6751 


062136 








75$: CKLOOP 




iLOOP IF SELECTED 






062136 


104406 










TRAP 


CICLPl 


6752 


062140 


012703 


001000 




MOV 


4^512.. RS 


1 RECORD SIZE 




675S 


062144 


013737 


003114' 


072032' 


MOV 


FREE.T26RB 


1 STARTING READ BUFFER ADDRESS 




6754 


















6755 


















6756 


















6757 










sREREAD PREVIOUS. ACK.CVC-l.OPP-1 






6758 










s 








6759 


















6760 


















6761 


062152 


012737 


161001 


072030' 


nov 


^161001 • T26PK3 


; REREAD PREVIOUS. ACK.CVC-l.OPP" 


1 


6762 


062160 


012704 


072030' 




165$: MOV 


♦T26PK3,R4 


J SET UP R4 UITH PACKET ADDRESS 




6763 


062164 


010337 


072036' 




MOV 


k3 • T26SZ 


sSET UP RECORD SIZE IN PACKET 




6764 


062170 


010465 


000000 




MOV 


R4,TS0B(R5) 


; ISSUE COMMAND 




6765 


062174 


004737 


016150' 




JSR 


PC.WAITF 


;UAIT FOR SSR TO SET 




6766 


^^^^^^^^ 

062200 


016501 


000002 




MOV 


TSSR(R5).Rl 


J GET TSSR CONTENTS 




6767 


062204 


012702 


100204 




MOV 


«SSR!SC!BIT2.R2 


;SET UP EXPECTED 




6768 


062210 


020102 






CMP 


R1.R2 


J ARE THEY EQUAL 




6769 


062212 


001406 






BEQ 


170$ 


jBR. IF OK 




6770 


062214 


005237 


002212' 




INC 


FATFLG 


;BUMP COUNT 




6774 


062220 








ERRHRO 


ERRNO. T26TRL .PKTSSR 


;TSSR INCORRECT AFTER READ DATA 






062220 


104456 










TRAP 


CiERHRD 




062222 


001220 










.WORD 


656 




062224 


074442' 










.UORD 


T26TRL 




062226 


011746' 










.WORD 


PKTSSR 


6775 


062230 








170t : CKLOOP 




5 LOOP IF SELECTED 






062230 


104406 










TRAP 


CSCLPl 


677b 




































6778 


















6779 










sREAO MESSAGE BUFFER EXTENDED STATUS 


REGISTER ZERO (XSTO) 




6780 


















6761 


















6782 


















6783 


062232 


013701 


071730' 




MOV 


T26BFR»6.R1 


;GET MESSAGE BUFFER 




6784 


062236 


010102 






MOV 


R1.R2 


;SET UP EXPECTED 




6785 


062240 


052702 


040000 




BIS 


«BIT14.R2 


5 SET THE RLS BIT IN EXPECTED 




£^ ^a^ 

6786 


062244 


020102 






CMP 


R1.R2 


;ARE THEY EQUAL 




^ ^a ^ 

6787 


062246 


001406 






BEQ 


180$ 


;BR. IF EQUAL (ALL IS WELL) 




6788 


062250 


005237 


002212' 




INC 


FATFLG 


2 BUMP COUNT 




6792 


062254 








ERRHRD 


ERRNO . T26L0P . EXPREC 


sTHE RLL BIT WAS NOT SET IN XSTO 




062254 


104456 










TRAP 


CIERHRD 




062256 


001221 










.WORD 


657 




062260 












.UORD 


T26L0P 




062262 


015374' 










.WORD 


EXPREC 


6793 


062264 








180$: CKLOOP 










062264 


104406 










TRAP 


CSCLPl 


6794 


062266 


013701 


071726* 




MOV 


T26BFR»4,R1 


;PICK UP RESIDUAL BYTE COUNTER 








t\\ 07A0 


U0U40U 




MOV 


«256..R2 


J THIS SHOULD BE THE DIFFERENCE 




6796 


062276 


020102 






CMP 


R1.R2 


;IS THE DIFFERENCE CORRECT 




6797 


062300 


001406 






BEQ 


190$ 


;BR. IF CORRECT 




6798 


062302 


005237 


002212' 




INC 


FATFLG 


;BUMP COUNT 




6802 


062306 








ERRHRD 


ERRNO . T26PBP . EXPREC 


;»<BPCR NOT CORRECT 






062306 


104456 








TRAP 


CSERHRD 




062310 


001222 










.UORD 


658 
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062312 


074554' 














.WORD 


T26PBP 




062314 


015374- 














.UORO 


EXPREC 


6603 


062316 








1901: 


CKLOOP 




iLOOP IF SELECTED 






062316 


104406 














TRAP 


C$CLP1 


6804 


062320 


012703 


001000 








MOV 


P512..R5 


^RECORD SIZE 




6805 


062324 


013737 


005114' 


072C52' 






MOV 


FREE.T26RB 


{STARTING READ BUFFER ADDRESS 




6P'^ 






















6807 






















6808 






















6809 












REREAD PREVIOUS. ACK,CVC-1.0PP-0 






6810 






















6811 






















6812 






















6813 


062332 


012737 


141001 


072050' 






MOV 


0141001. T26PK5 


; REREAD PREVIOUS. ACK.CVC-l.OPP-O 


6814 


062340 


012704 


072050* 








MOV 


♦T26PK5.R4 


J SET UP R4 WITH PACKCT ADDRESS 




6815 


062344 


010337 


072056' 








MOV 


R5.T26SZ 


;SET UP RECORD SIZE IN PACKET 




6816 


062350 


010465 


000000 








MOV 


R4.TSDB(R5) 


i ISSUE COMMAND 




6817 


062354 


004737 


016150' 








JSR 


PC.WAITF 


8 WAIT FOR SSR TO SET 




6818 


062360 


016501 


000002 








MOV 


TSSR(R5).R1 


;GET TSSR CONTENTS 




6819 


062364 


012702 


100204 








MOV 


«SSR!SC!BIT2.R2 


; SET UP EXPECTED 




6820 


062370 


020102 










CMP 


R1.R2 


;ARE THEY EQUAL 




6821 


062372 


001406 










BEQ 


270$ 


;BR. IF OK 




6822 


062374 


005237 


002212' 








INC 


FATFLG 


;BUMP COUNT 




6826 


062400 












ERRHRD 


ERRNO • T26TRL .PKTSSR 


:TSSR INCORRECT AFTER READ DATA 






062400 


104456 














TRAP 


C$ERHRO 




062402 


001223 














.WORD 


659 




062404 


074442' 














.WORD 


T26TRL 




062406 


011746' 














.WORD 


PKTSSR 


6827 


062410 








270$: 


CKLOOP 




;LOOP IF SELECTED 






062410 


104406 














TRAP 


C$CLP1 


6828 






















6829 






















6830 






















6831 












sREAO MESSAGE BUFFER EXTENDED STATUS 


REGISTER ZERO CXSTO) 




6832 






















6833 






















6834 






















6835 


062412 


013701 


071750' 








MOV 


T26BFR*6.R1 


;GET MESSAGE BUFFER 




6836 


062416 


010102 










MOV 


R1.R2 


;SET UP EXPECTED 




6837 


062420 


052702 


040000 








BIS 


06IT14.R2 


sSET THE RLS BIT IN EXPECTED 




6838 


062424 


020102 










CMP 


R1.R2 


8 ARE THEY EQUAL 




6839 


062426 


001406 










BEQ 


280$ 


sBR. IF EQUAL CALL IS UELL) 




6840 


062430 


005257 


002212' 








INC 


FATFLG 


;BUMP COUNT 




6844 


062434 












ERRHRD 


ERRNO • T26L0P . EXPREC 


2 THE RLL BIT WAS NOT SET IN XSTO 




062434 


104456 












TRAP 


C$ERHRD 




062436 


001224 














.WORD 


660 




062440 


074272' 














.WORD 


T26L0P 




062442 


015374' 














.WORD 


EXPREC 


68^5 


062444 








280$: 


CKLOOP 










062444 


104406 














TRAP 


C$CLP1 


6846 


062446 


013701 


071726' 








MOV 


T26BFR*4,R1 


;PICK UP RESIDUAL BYTE COUNTER 




6847 


062452 


012702 


000400 








MOV 


0256.. R2 


sTHIS SHOULD BE THE DIFFERENCE 




6848 


062456 


020102 










CMP 


R1.R2 


;IS THE DIFFERENCE CORRECT 




6849 


062460 


001405 










BEQ 


290$ 


:BR. IF CORRECT 




6853 


062464 












ERRHRD 


ERRNO . T26PBP . EXPREC 


:RBPCR NOT CORRECT 






062464 


104456 












TRAP 


C$ERHR0 




062466 


001224 














.WORD 


660 



B2 



TSV7 
TEST 



HARDUARE TESTS 1-8 
6: REREADS 



MACRO Mills 01 -FEB 04 17:54 



SEO 2c I 



6654 

6855 



6856 
6857 
6858 
6859 
6860 
6861 
^862 
6863 
6864 
6865 

6867 
6868 
6869 
6870 
6871 
6872 
6875 
6874 
6875 
6876 
6877 
6876 
6879 
6880 
6881 



6882 
6883 
6884 
6885 
6886 
6867 
6688 
6869 
6890 
6891 
6692 
6693 
6694 
6696 
6699 



6900 
6901 
6902 



062470 
062472 
062474 
062474 

062476 
062476 
062476 
062500 
062506 
062510 
062514 



074354' 
015574* 

104406 



104405 

023727 002212' 000017 
103402 

004737 017104' 



062514 
062514 
062514 
062516 
062522 
062526 



104402 

004757 074620' 

004737 074712' 

004737 074754' 



062532 
062536 
062540 
062544 
062546 
062546 
062550 
062552 
062554 
062556 



2901: 



9991; 



I ♦ 



CKLOOP 
ENOSUB 



CMP FATFLG.flS. 

BLO 9991 

JSR PC.CKOROP 



.WORD T26P6P 
.UORO EXPREC 

I LOOP IF SELECTED 

TRAP CICLPI 
!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
LlOllO: 

TRAP CIESUB 
lis ERROR COUNT AT 25 
iBR. If LESS THAN 25 
I TRY TO DROP THE UNIT 



I TEST 6. SUBTEST 7 
t 

IvERIFIES THAT THE REREAD NEXT COMMAND UITH 0PP*O 
tANO SUB-0 OPERATES PROPERLY. THE TAPE IS FIRST 
tREUOUND AND THEN IT^TTEN UITH A SERIES OF TEST 
iRECOROS VARYING IN LENCTH AND DATA CONTENT. THE TAPE 
tIS THEN REUOUND AGAIN. FOR EACH TEST RECORD. THE 
{TAPE IS SPACED FORWARD ONE RECORD AND A REREAD 
{NEXT C0»t1AND ISSUED. RESULTS (STATUS. DATA. 
tETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD 
•NEXT COmANO IS SET TO THE LENGTH OF THE EXPECTED 
iRECORD. SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 
I 
I 

I - 



BGNSUB 



JSR 
JSR 
JSR 



PC.T26REST 

PC.T26RT2 

PC.T26RT3 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T6.7: 

TRAP CIBSUB 

iSET COmANO PACKET 

I SET UP OTHER COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 015674' 
103407 

005237 002212' 
010001 

104455 
001225 
003642' 
011734' 

013737 002172' 071720' 201: 



062564 012704 071700' 



JSR PC.SOFINIT 

BCS 201 

INC FATFLG 

MOV RO.Rl 

ERROF ERRNO.SFIERR.SFIMSC 



MOV UNITN.T26DSU 
MOV «T26PACKET,R4 



I 00 INITIALIZE ON CONTROLLER 
tBR IF INIT MAS OK 
I BUMP COUNT 

{CONTENTS OF TSSR REGISTER 
I FATAL ERROR TSSR WAS NOT OK 

TRAP 
.UORO 
.UORO 
.UORO 

iSET UP UNIT NUMBER 



C*EROF 
661 

SFIERR 
SFIMSG 



I SUBROUTINE NEEDS PACKET ADDRESS 



TSV7 



C2 



ST 6: 



MACRO nillS 01-FE8 84 17:54 



SEO 222 



690S 
6904 

6905 
6906 
6907 
690d 
6909 
6910 

fni 

6912 
6916 
6917 



6916 

6919 
6920 
6921 
6922 
6925 
6924 
6925 
6926 
6927 
6926 
6929 
6930 
6931 
6935 



6936 

6957 
6938 
6939 
6940 
6941 
6942 
6943 
6944 
6945 
6946 
6947 
6948 
6949 
6953 



6954 



062570 
062574 
062576 
062602 
062604 
062604 
062606 
062610 
062612 
062614 
062614 



062616 
062622 
062624 
062630 
062634 
062636 
062642 
062642 
062644 
062646 
062650 
062652 
062652 



062654 
062660 
062662 
062666 
062670 
062672 
062676 
062676 
062700 
062702 
062704 
062706 



t WRITE CHARACTERISTICS CdtlANO (CALL TO URTCHR) 



004757 010562' 
103407 

005237 002212- 
010001 

104456 

001226 

005046' 

011734- 

104406 



261: 



JSR 
BCS 
INC 
MOV 

ERRHRO 



CKLOOP 



PC. URTCHR 
26 1 

FATFLC 
RO.Rl 

ERRNO . URTMSG . Sf IMSG 



I ISSUE WRITE CHARACTERISTICS 
iBR. IF COmAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
tWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 



I ISSUE REMIND COmAND TO SELECTED TAPE DRIVE 



004737 010714' 
103413 

016501 000002 

012702 000200 
010004 

005237 002212' 

104456 

001227 
C 73364 • 
011746' 

104406 



301: 



JSR 
BCS 
MOV 
MOV 
MOV 
INC^ 



CKLOOP 



PC.REHIM) 
SOI 

TSSR(RS).R1 
•SSR.R2 
R0.R4 
FATFLG 

ERRNO. T26RUN.PKrsSR 



I CALL TAPE REWIND COmAND 
I BR. IF NO PROBLEM 
iGET TSSR 

I SET UP EXPECTED TSSR 
I PACKET ADDRESS SET UP 
iBUMP COUNT 
iREWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 071730' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 

001230 

073075' 

015374' 



40t: 



nov 

MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 



T26VR*6.R1 

R1.R2 

4BIT1.R2 

R1.R2 

40 1 

FATFLG 

ERRNO. T26B0T .EXPREC 



iPICK UP XSTO 

I SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

iDOES EXP • REC'O 

iBR. IF EQUAL (OK) 

I BUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 



CIERHRD 
662 
WRTMSG 
SFIMSG 

CtCLPl 



CIERI«0 
663 
T26RWN 
PKTSSR 

CtCLPl 



CtER^ 
664 

T26B0T 
EXPREC 



D2 



I 8 



MACRO HI I 15 01 FEB 64 17:54 



SEQ ?2l 



6955 
6956 
6957 
6956 
6959 
6960 
6961 
6962 
6963 
6964 
6965 
6966 
6967 
6966 
6969 
6970 
6971 
6972 
6973 
6974 
6975 
6976 
6960 



696\ 

6962 
6963 
6984 
6965 

6966 
6967 
6966 
6969 
• >90 
a991 
6992 
6993 
6994 
6995 
6996 
6997 
6996 
6999 
7003 



7004 
7005 



062706 
062710 
062714 



062722 
062730 
062734 
062734 
062736 
062742 
062746 
062752 
062756 
062762 
062766 
062770 
062772 
062776 
062776 
063000 
063002 
063004 
063006 
063006 
063010 
063012 
063016 
063020 
063020 
063022 



063022 
063026 
063030 
063034 
063040 
063042 
063046 
063046 
063050 
063052 
063054 
063056 
063056 



104406 

012703 000400 

013737 003114- 072032* 



MOV 
MOV 



#256. ,R3 
FREE.T26PB 



TRAP 

iRECORO SIZE 

iSTARTZNG WRITE BUTFER ADDRESS 



CICLPI 



WRITE OATA.CVC-l.ACK COMMAND 



012737 140005 072030* 
012704 072030* 

010300 

004737 017324' 

010337 072036* 

010465 000000 

004737 016150* 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 

001231 

005103' 

011746* 

104406 

005723 

022703 000414 
001346 

104406 



004737 010714' 
103413 

016501 000002 

012702 000200 
010004 

005237 002212' 

104456 

001232 

073364' 

011746' 

104406 



651: 



nov 


«14000S,T26PKS 


lURITE OATA.CVC-l.ACK COnMAND 


nov 


«T26PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 


nov 


R3.R0 


tSET PATTERN IN CORRECT REGISTER 


JSR 


PC.FILLMEM 


iflLL MEHORY WITH RECORD SIZE 


nov 


R3.T26SZ 


iSET UP RECORD SIZE IN PACKET 


nov 


R4.TS0e(R5) 


1 ISSUE COMMAND 


JSR 


PC.UAITP 


tUAIT rOR SSR TO SET 


nov 


TSSR(RS).R1 


iGET TSSR CONTENTS 


nov 


♦SSR.R2 


1 SET UP EXPECTED 


CMP 


R1.R2 


tARE THEY EQUAL 


BEQ 


75$ 


iBR. IF OK 


INC 


fATFLG 


iBUMP COUNT 


ERRMRO 


ERRNO . UR TERR . PK T SSR 


iTSSR INCORRECT AFTER URITE DATA 



75fi 

80*: 
120*: 



CKLOOP 
TST 

cnp 

BNE 

CKLOOP 



(R3)* 
#266. .R3 
65t 



TRAP 
.UORD 
.WORD 
.UORD 

iLOOP IF SELECTED 

TRAP 

I BUMP RECORD SIZE 

lENO OF RECORD YET 

iBR. IF nORE RECORDS TO URITE 

iLOOP IF SELECTED 

TRAP 



OERHRO 
665 
URTERR 
PKTSSR 

CICLPI 



C»CLPl 



(ISSUE REUIND COnNAND TO SELECTED TAPE DRIVE 



JSR 
8CS 

nov 

NOV 

nov 

INC 

ERRHRO 



ISO*: CKLOOP 



PC. REUIND 
ISO* 

TSSR(R5}.R1 

•SSR.R2 

R0.R4 

FATFLG 

ERRNO. T26RUN.PKTSSR 



tCALL TAPE REUIND COnnAND 
tBR, IF NO PROBLEn 
iGET TSSR 

I SET UP EXPECTED TSSR 
I PACKET ADDRESS SET UP 
J BUMP COUNT 
iREUIND NOT ACCEPTED 

TRAP 
.UORD 
.WORD 
UORD 

iLOOP IF SELECTED 

TRAP 



CSERHRO 
666 
T26RWN 
PKTSSR 

C$CLP1 



rSV7 HAROUARE TESTS l-d 
TEST 6: REREADS 



7006 
700» 
7006 
7009 
7010 
7011 
7012 
7015 
7014 
7015 
7016 
7017 
7021 



MACRO mil5 01 -FEB -64 17:54 



E2 



SEQ 224 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



7022 

7025 
7024 
7025 
7026 
7027 
7028 
7029 
7050 
7051 
7052 
7055 
7054 
7055 
7056 
7037 
7058 
7059 
7043 



7044 

7045 
7046 

7047 
7048 
7049 
7050 
7051 
7052 
7055 
7054 
7055 
7056 
7057 
7058 



065060 
065064 
065066 
065072 
065074 
065076 
065102 
065102 
065104 
063106 
065110 
065112 
065112 
063114 
063122 



013701 071730* 
010102 

052702 000002 

020102 

001406 

005237 002212* 

104456 

001255 

073075' 

015374' 

104406 

012737 000400 072062' 
000420 



140»: 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 



T26BFR»6.R1 

R1.R2 

«6IT1.R2 

R1.R2 

140 » 

FATFLG 

ERRNO . T26B0T , EXPREC 



MOV 
BR 



•2S6..T26RSZ 
ISOt 



•PICK UP XSTO 

I SET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

iDOES EXP - REC'O 

iBR. IF EQUAL (OK) 

I BUMP COUNT 

(TAPE NOT AT BOT AFTER REUIND 

TRAP 
.WORD 
.UORO 
.UORD 

iLOOP IF SELECTED 

TRAP 

I STORE START RECORD SIZE 
iSKIP THE SAPCE THIS TIME 



C«ERHRO 
667 
T26B0T 
EXPREC 

C«Cl«»l 



ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - O-FQRUARD 1-REVERSE 



063124 


012705 


000001 


145»: 


MOV 


*1.R3 


065150 


004757 


010366' 




JSR 


PC. SPACE 


065154 


105413 






BCS 


150* 


065156 


016501 


000002 




MOV 


TSSR(R5).R1 


065142 


012702 


000200 




MOV 


♦SSR.R2 


065146 


010004 






MOV 


R0.R4 


065150 


005257 


002212' 




INC 


FATFLG 


065154 








ERRHRO 


ERRNO. T26SC.EXPREC 


065154 


104456 










065156 


001234 










065160 


072477' 










065162 


015374* 










065164 






ISOt: 


CKLOOP 




065164 


104406 










063166 


013703 


072062' 




MOV 


T26RSZ.R3 


063172 


013737 


003114' 072032' 




MOV 


FREE.T26R6 



t SPACE ONE RECORD PARAMETER 
tCALL SPACE ROUTINE 

I BR. IF NO PROBLEM WITH SPACE COMMAND 
iGET TSSR 

t SET UP EXPECTED TSSR 
{PACKET ADDRESS SET UP 
I BUMP COUNT 

{POSITION (SPACE RECORDS) FAILED 

TRAP CtERMtD 
.WORD 668 
.UORD T26SC 
.UORD EXPREC 



TRAP 

{RECORD SIZE 

{STARTING READ BUFFER ADDRESS 



CtCLPl 



REREREAD DATA.CVC-l.ACK COMMAND 



063200 
065206 
065212 
063216 
063222 



012737 141401 072030' MOV 

012704 072030' 165»: MOV 

010357 072056' MOV 

010465 000000 MOV 

004737 016150' JSR 



«141401.T26PK3 

•T26PK3,R4 

R5.T26SZ 

R4.TSDB(R5) 

PC.UAITF 



{REREREAD DATA.CVC-l.ACK COMMAND 
(SET UP R4 UITH PACKET ADDRESS 
I SET UP RECORD SIZE IN PACKET 
(ISSUE COMMAND 
(UAIT FOR SSR TO SET 



F2 

TSV7 - HARDWARE TESTS 1-8 MACRO Ml 115 01 -FEB -64 17:54 SEQ 225 

TE3T 6; REREADS 



7059 063226 


016501 


000002 


MOV 


TSSR(R5),R1 




iGET TSSP CONTENTS 




7060 063232 


012702 


000200 


MOV 


«SSR.R2 




iSET UP EXPECTED 




7061 063236 


020102 




CMP 


R1.R2 




lARE They equal 




7062 063240 


001406 




6EQ 


1701 




iBR, IF OK 




7063 063242 


005237 


002212' 


INC 


FATFLG 




iBUMP COUNT 




7067 063246 






ERRHRD 


ERRN0,T26WDC,PKTSSR 


iTSSR INCORRECT AFTER REREAO DA 


A 


063246 


104456 










TRAP 


CIERHRD 


063250 


001235 










.WORD 


669 


063252 


073720* 










.WORD 


T26UDC 


063254 


011746* 










.WORD 


PKTSSR 


7068 0632S6 




1701: 


CKLOOP 






iLOOP IF SELECTED 




063256 


104406 










TRAP 


CICLPI 


7069 063260 


013702 


003114' 


MOV 


FREE.R2 


1 CURRENT 


BIFFER ADDRESS TO R2 


7070 063264 


010304 




MOV 


R3.R4 




1 CURRENT RECORD SIZE 




7071 063266 


162704 


000400 


SUB 


♦256., R4 




iFIRST LOCATION IN BUFFER 




7072 063272 


060204 


1731: 


ADD 


R2.«^ 




iSET UP POINTER 




7073 063274 


021403 




CMP 


(R4),R3 




I CHECK DATA READ (R3-DATA ALSO) 




7074 063276 


001410 




BEQ 


1801 




0%0>i! V 0^ A ■ 

tBR, IF ALL IS WELL 




7075 063300 


011401 




MOV 


(R4).R1 




{RECD DATA 




7076 063302 


010302 




MOV 


R3.R2 




lEXPECTED DATA 




7077 063304 


005237 


002212' 


INC 


FATFLG 




J BUMP COlMT 




7081 063310 






ERRHRD 


ERRNO . T26DT A , EXPREC 


(DATA READ NOT - WRITTEN 




063310 


104456 










TRAP 


CIERHRD 


063312 


001236 










• UORD 


670 


063314 


073142' 










• WORD 


T26DTA 


063316 


015374* 










.WORD 


EXPREC 


7082 063320 




1801: 


CKLOOP 






{LOOP IF SELECTED 




063320 


104406 










TRAP 


CSCLPl 


7083 063322 


005724 




TST 


(R4)* 




;BUMP TO NEXT LOCATION 




7084 063324 


160204 




SUB 


R2.R4 




J CORRECT RECORDS SIZE VALUE 




7085 063326 


020403 




CMP 


R4.R3 




lEND OF RECORD YET 




7086 063^30 


001360 




BNE 


173t 




8 BR. IF NOT AT END OF RECORD 




7087 063332 


005723 




TST 


(R3)«^ 




jeUMP RECORD SIZE 




7088 063334 


010337 


072062' 


MOV 


R3.T26RSZ 




•.STORE PRESENT RECORD SIZE 




7089 063340 


022703 


000410 


CMP 


♦264., R3 




jEND OF RECORD YET 




7090 063344 


001267 




BNE 


1451 




iBRt IF MORE RECORDS TO READ 




709x 063346 




190»: 


CKLOOP 






8 LOOP IF SELECTED 




063346 


104406 










TRAP 


CSCLPl 














;>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


063350 












LlOlll: 




063350 


104403 










TRAP 


CiESUB 


7093 063352 


023727 


002212' 000017 


CMP 


FATFLG. 015 • 




;IS ERROR COUNT AT 25 




7094 063360 


103402 




BLO 


999* 




J BR. IF LESS THAN 25 




7095 063362 


004737 


017104' 


JSR 


PC.CKDROP 




5 TRY TO DROP THE UNIT 




7096 063366 




999»: 











097 

096 t* 

'099 , 

100 tlEST 6. SUBTEST 6 

101 , 

102 tVERIFIES THAT THE REREAD NEXT COMMAND UITH OPP-0 
lOS I AND SUB-1 OPERATES PROPERLY. THE TEST SEQUENCE IS 

104 ,THE SAME AS THAT USED IN SUBTEST 1. BUT IT IS 

105 I VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 

106 I SWAPPED BYTES. 

107 , 
106 t 



G2 



TSV7 • HAkOUARE TESTS 1-8 
TEST 6. 'REREADS 



MACRO MlllS 01-FEB 84 17:54 



SEQ 226 



7109 
7110 
7111 



7112 
7113 
7114 
7115 
7116 
7117 
7118 
7119 
7120 
7121 
7122 
7123 
7124 
7128 
7129 



7130 
7131 
7132 
7133 
7134 
7135 
7136 
7137 
7138 
7139 
7140 
7141 
7142 
7146 
7147 



7148 

7149 
7150 
7151 
7152 
7153 
7154 
7155 
7156 
7157 
7158 
7159 
7160 



063366 
063366 
063366 
063370 
063374 
063400 



063404 
063410 
063412 
063416 
063420 
063420 
063422 
063424 
063426 
063430 



063442 
063446 
0634S0 
063454 
063456 
063456 
063460 
063462 
063464 
063466 
063466 



063470 
063474 
063476 
063502 
063506 



104402 

004737 074620' 

004737 074712' 

004737 074754' 



BGNSUB 



JSR 
JSR 
JSR 



PC,T26REST 

PC.T26RT2 

PC.T26RT3 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T6.8: 

TRAP C»BSUB 

J SET COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 

» SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 015674' 
103407 

005237 002212* 
010001 

104455 

001237 

003642' 

011734* 

013757 002172* 071720* 20t: 



063436 012704 071700' 



JSR PC.SOFINIT 

BCS 20* 

INC FATFLG 

MOV RO.Rl 

ERRDF ERRNO.SFIERR.SFIMSG 



MOV UNITN.T26DSU 
NOV •T26PACKET.R4 



iOO INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
I BUMP COUNT 

I CONTENTS OF TSSR REGISTER 
t FATAL ERROR TSSR WAS NOT OK 

TRAP 
.UORO 
.UORO 
.UORO 

I SET UP UNIT NUMBER 



C»EROF 
671 

SFIERR 
SFIMSG 



I SUBROUTINE NEEDS PACKET ADDRESS 



URITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



004737 010S62' 
103407 

005237 002212' 
010001 

104456 
001240 
005046' 
011734' 

104406 



26t: 



JSR 
BCS 
INC 
MOV 

ERRHRO 



CKLOOP 



PC. URTCHR 
26* 

FATFLG 
RO.Rl 

ERRNO . UR TMSG. SF IMSG 



i ISSUE URITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
I BUMP COUNT 

(SAVE CONTENTS OF TSSR 
tURITE CHARACTERISTISC FAILED 

TRAP 
.UORO 
UORO 
.UORD 



iLOOP IF SELECTED 



TRAP 



CiERHRO 

672 

URTMSG 
SFIMSG 

C»CLP1 



ISSUE REUINO COMMAND TO SELECTED TAPE DRIVE 



004737 010714' 
103413 

016501 000002 
012702 000200 
010004 



JSR 
BCS 
MOV 
MOV 
MOV 



PC.REUIND 
30$ 

TSSRCR5).R1 

«SSR.R2 

R0.R4 



tCALL TAPE REUINO COMMAND 
I BR. IF NO PROBLEM 
iGET TSSR 

I SET UP EXPECTED TSSR 
•PACKET ADDRESS SET UP 



TSV7 
TEST 



HARDWARE TESTS 
6: REREADS 



H2 



1 6 



MACRO milS Ol-FEe-84 17:54 



SEQ 227 



7161 
7165 



7166 

7167 
7168 
7169 
7170 
7171 
7172 
7173 
7174 
7175 
7176 
7177 
7178 
7179 
7183 



7184 

7185 
7186 
7187 
7188 
7189 
7190 
7191 
7192 
7193 
7194 
7195 
7196 
7197 
7198 
7199 
7200 
7201 
7202 
7203 
7204 
7205 
7206 
7210 



063510 
063514 
063514 
063516 
063520 
063522 
063524 
063524 



063526 
063532 
063534 
063540 
063542 
063544 
063550 
063550 
063552 
063554 
063556 
063560 
063560 
063562 
063566 



7211 



063574 
063602 
063606 

063610 
063614 
063620 
063624 
063630 
063634 
063640 
063642 
063644 
063650 
063650 
063652 
063654 
063656 
063660 
063660 



005237 002212' 

104456 
001241 
073564' 
011746' 

104406 



30>: 



INC FATFLG 

ERRHRD ERRI40.T26RUN.PKTSSR 



CKLOOP 



iBUMP COUNT 

I REWIND NOT ACCEPTED 



I LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CIERHRO 
673 
T26RWN 
PKTSSR 

CICLPI 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 071730' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 

001242 

073075' 

015374' 

104406 

012703 000400 

013737 003114' 072032' 



40»: 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 



T266FR«6,R1 

R1.R2 

•BIT1,R2 

R1,R2 

40) 

FATFLG 

ERRNO . T26B0T . EXPREC 



MOV 
MOV 



«256..R3 
FREE.T26RB 



iPICK UP XSTO 

iSET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

I DOES EXP - REC'D 

iBR. IF EQUAL (OK) 

jBUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 

I RECORD SIZE 

{STARTING WRITE BUFFER ADDRESS 



OERHRD 
674 
I2680T 
EXPREC 

C«CLP1 



WRITE DATA.CVC-l.ACK.SWB COMMAND 



012737 150005 072030' 
012704 072030' 

010300 

004737 017324' 

010337 072036' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 
001243 
005103' 
011746' 

104406 



65<: 



MOV 


«1S0005.T26PK3 


; WRITE DATA.CVC-l.ACK.SWB COMMAND 


nov 


♦T26PK3.R4 


tSET UP R4 WITH PACKET AtXMESS 


MOV 


R3.R0 


tSET PATTERN IN CORRECT REGISTER 


JSR 


PC.FILLMEM 


jFILL MEMORY WITH RECORD SIZE 


MOV 


R3.T26SZ 


sSET UP RECORD SIZE IN PACKET 


MOV 


R4.TSDa(R5) 


> ISSUE COMMAND 


JSR 


PC.WAITF 


J WAIT FOR SSR TO SET 


MOV 


TSSRCR5),R1 


J GET TSSR CONTENTS 


MOV 


«SSR.R2 


5 SET UP EXPECTED 


CMP 


R1.R2 


lARE THEY EQUAL 


BEQ 


75$ 


jBR, IF OK 


INC 


FATFLG 


iBUMP COUNT 


ERRHRD 


ERRNO . URTERR . PKTSSR 


tTSSR INCORRECT AFTER WRITE DATA 



75$ 1 



CKLOOP 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRO 
675 

WRTERR 
PKTSSR 

C$CLPl 



I 



2 



TSV7 
TEST 



HARDWARE TESTS 1-8 
6: REREADS 



MACRO Ml 113 01 -FEB -64 17:54 



SEQ 228 



7212 
7215 
7214 

7215 

7216 
7217 
7218 
7219 
7220 
7221 
7222 
7225 
7224 
7225 
7226 
7227 
7228 
7229 
7233 



7234 

7235 
7236 
7237 
7238 
7259 
7240 
7241 
7242 
7245 
7244 
7245 
7246 
7247 
7251 



72S2 

7255 
7254 
7255 
7256 
7257 
7258 
7259 
7260 
7261 
7262 
7263 



063662 
063664 
063670 
063672 
063672 
063674 



063674 
063700 
065702 
065706 
065712 
065714 
065720 
065720 
065722 
065724 
065726 
065730 
063750 



065752 
065756 
065740 
065744 
065746 
063750 
065754 
065754 
065756 
065760 
065762 
065764 
065764 
065766 
065774 



005725 

022705 000414 
001546 

104406 



004757 010714' 
105,15 

016301 000002 

012702 000200 
010004 

005237 002212' 

104456 
001244 

075564- 
011746* 

104406 



60t: 
120$: 



TST (R3)* 

CMP «266.,R3 

BNE 65 t 
CKLOOP 



I BUMP RECORD SIZE 

I END OF RECORD YET 

iBR. IF MORE RECORDS TO WRITE 

ILOOP IF SELECTED 

TRAP 



CICLPI 



t ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



JSR 
BCS 
MOV 
MOV 
MOV 
INC 

ERRHRO 



150* : CKLOOP 



PC. REWIND 
1501 

TSSRCR5).R1 
«SSR,R2 
R0.R4 
FATFLG 

ERRNO. T26RWN.^>KTSSR 



(CALL TAPE REWIND COMMAND 
tBR. IF NO PROBLEM 
I GET TSSR 

I SET UP EXPECTED TSSR 
tPACKET ADDRESS SET UP 
»BUMP COUNT 
{REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 



(READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



015701 071750' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001245 

073075' 
015374' 

104406 

012757 000400 072062' 
000420 



140»: 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 



T26eFR*6.Rl 

R1.R2 

•6IT1.R2 

R1.R2 

140$ 

FATFLG 

ERRNO . T26B0T . EXPREC 



MOV 
BR 



«256..T26RSZ 
150 » 



iPICK UP XSTO 

5 SET UP EXPECTED 

(SET BOT BIT IN EXPECTED 

sDOES EXP - REC'O 

iBR. IF EQUAL (OK) 

;BUMP COUNT 

(TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

sLOOP IF SELECTED 

TRAP 

! START RECORD SIZE 
J SKIP SAPCE THIS TIME 



ISSUE SPACE RECORDS COMMAND • VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION • 0-FORWARO 1 -REVERSE 



CtERHRD 
676 

T26RWN 
PKTSSR 

C»CLP1 



CtERHRD 

677 

T26B0T 

EXPREC 

CICLPl 



063776 012703 000001 



145 MOV 



«1.R3 



{SPACE ONE RECORD PARAMETER 



J2 



TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 



HACRO H1113 01 -FEB -84 17:54 



SEQ 229 



7264 

7265 
7266 
7267 
7268 
7269 
7273 



7274 

7275 
7276 
7277 
7278 
7279 
7280 
7281 
7282 
7285 
7284 
7285 
7286 
7287 
7288 
7289 
7290 
7291 
7292 
7295 
7297 



7298 

7299 
7500 
7301 
7502 
7505 
7504 
7305 
7306 
7307 
7311 



7512 

7515 
7514 



064002 
064006 
064010 
064014 
064020 
064022 
064026 
064026 
064050 
064052 
064054 
064056 
064056 
064040 
064044 



064052 
064060 
064064 
064070 
064074 
064100 
064104 
064110 
064112 
064114 
064120 
064120 
064122 
064124 
064126 
064150 
064150 
064152 
064136 
064140 
064144 
064146 
064150 
064152 
064 154 
064156 
064162 
064162 
064164 
064166 
064170 
064172 
064172 
064174 
064176 



004757 010566' 
105415 

016501 000002 

012702 000200 
010004 

005257 002212' 

104456 

001246 

072477* 

015574' 

104406 

015705 072062' 

015737 005114* 072032' 



1501: 



JSR 
BCS 
MOV 
MOV 
MOV 
INC 

ERRHRD 



CKLOOP 



PC. SPACE 
150 » 

TSSR(R5),R1 
«SSR.R2 
R0.R4 
FATFLG 

ERRN0,T26SC.EXPREC 



I CALL SPACE ROUTINE 

I BR. IF NO PROBLEM UITH SPACE COMMAND 
I GET TSSR 

J SET UP EXPECTED TSSR 
, PACKET ADDRESS SET OP 
iBUMP COUNT 

•POSITION CSPACE RECORDS) FAILED 

TRAP CIERHRD 
.WORD 678 
.WORD T26SC 
.WORD EXPREC 



MOV 
MOV 



T26RSZ.R5 
FREE.T26RB 



TRAP 

(RECORD SIZE 

{STARTING READ BUFFER ADDRESS 



CtCLPl 



REREAD DATA. ACK.CVC-1. SUB COMMAND 



012757 151401 072030* 

012704 072050' 

010557 072056' 

010465 000000 

004757 016150' 

016501 000002 

012702 000200 
020102 
001406 

005257 002212' 

104456 
001247 
075720- 
011746* 

104406 

015702 005114* 
010304 

162704 000400 

060204 

021405 

001410 

011401 

010502 

OOS257 002212* 

104456 
001250 
075142' 
015574* 

104406 

005724 
160204 



165*: 



MOV 


♦151401. T26PK5 


(REREAD DATA. ACK.CVC-1. SUB COMMAND 


MOV 


♦T26PK5,R4 


(SET UP R4 UITH PACKET ADDRESS 


MOV 


R5.T26SZ 


(SET UP RECORD SIZE IN PACKET 


MOV 


R4.TSDB(R5) 


(ISSUE COMMAND 


JSR 


PC.UAITF 


(UAIT FOR SSR TO SET 


MOV 


TSSR(R5),Rl 


(GET TSSR CONTENTS 


MOV 


•SSR.R2 


(SET UP EXPECTED 


CMP 


R1.R2 


(ARE THEY EQUAL 


BEQ 


170* 


sBR. IF OK 


INC 


FATFLG 


(BUMP COUNT 


ERRHRO 


ERRNO. T26UDC.PKTSSR 


(TSSR INCORRECT AFTER REREAD DATA 



170*: 



175* : 



CKLOOP 

MOV 
MOV 
SUB 
ADO 
CMP 
BEQ 
MOV 
MOV 
INC 

ERRHRD 



180*: CKLOOP 

TST 
SUB 



(LOOP IF SELECTED 



FREE,R2 
R5.R4 
•256. .R4 
R2.R4 
(R4).R5 
180* 
(R4).Rl 
R5.R2 
FATFLG 

ERRNO . T26DTA . EXPREC 



TRAP 
.UORO 
.UORD 
.UORD 

TRAP 



(R4)» 
R2.R4 



(CURRENT BUFFER ADDRESS TO R2 
(CURRENT RECORD SIZE 
(FIRST LOCATION IN BUFFER 
(SET UP POINTER 

(CHECK DATA READ (R5-DATA ALSO) 
:BR. IF ALL IS UELL 
(RECO DATA 
(EXPECTED DATA 
(BUMP COUNT 

(DATA READ NOT - URITTEN 

TRAP 
.UORD 
.UORD 
.UORD 

(LOOP IF SELECTED 

TRAP 

(BUMP TO NEXT LOCATION 
(CORRECT RECORDS SIZE VALl€ 



C*ERHRO 
679 
T26UDC 
PKTSSR 

C»CLPl 



C*ERHRD 
680 
T260TA 
EXPREC 

CtaPl 



<2 



TSV7 - HAHOUARE TESTS 1 8 
TEST 6: REREADS 



MACRO mi 13 01 FEB 84 17:54 



SEQ 230 



7315 


064200 


020403 




CMP 


R4 ,R3 


7316 


064202 


001360 




BNE 


173$ 


7317 


064204 


0057P3 




TST 




7318 


064206 


010337 


O 72062' 


tlOV 


R3 T26R^2 


7319 


064212 


022703 


000410 


CMP 


<^264 .RS 


7320 


064216 


001267 




BNE 


145$ 


7321 


064220 




190$ : 


CKLOOP 






064220 


104406 








7322 


064222 






ENDSUB 






064222 












064222 


104403 








7323 


064224 


02Z121 


002212* 000017 


CMP 


FATFLG,<M5. 


7324 


064232 


103402 




BLO 


999$ 


7325 


064234 


004737 


017104' 


JSR 


PC.CKDROP 


7326 


064240 




9991: 





7327 
7328 
7329 
7330 
7331 
7332 
7333 
7334 
7335 
7336 
7337 
7338 
7339 
7340 
7341 
7342 
7343 
7344 
7345 
7346 
7347 
7348 
7349 
7350 
7351 
7352 
7353 
7354 
7355 
7356 
7357 
7358 
7359 
7360 

7361 064240 
064240 
064240 

7362 064242 

7363 064246 

7364 064252 

7365 064256 
7366 



J END OF RECORD YET 

I BR. IF NOT AT END OF RECORD 

iBUHP RECORD SIZE 

I STORE RECORD SIZE 

I END OF RECORD YET 

I BR. IF MORE RECORDS TO URITE 

I LOOP IF SELECTED 

TRAP CICLPl 
!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
LI0112: 

TRAP CIESUB 
;IS ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
;TRY TO DROP THE UNIT 



104402 

004737 074620' 

005037 072056* 

004737 074712' 

004737 074754* 



TEST 6. SUBTEST 9 

VERIFIES THAT THE REREAD NEXT OMHANO WITH OPP-1 
CREAO FORUARO. SPACE REVERSE) AND SUB-0 OPERATES 
PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN 
WITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND 
DATA CONTENTS THE FIRST FOUR BYTES OF EACH RECORD 
CONTAIN ITS RECORD NUMBER (INDICATING POSITION ON 
TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH 
TEST RECORD. THE FOLLOWING SEQUENCE IS EXECUTED. 

1. THE REREAD NEXT COHHAND WITH OPP-1 IS ISSUED 
AND THE RESULTS CHECKED 

2. A READ FORWMtD COMNAND IS THEN ISSUED AND THE 
DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 
POSITIONED PROPERLY AFTER THE REREAD NEXT 
COHHAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
POSITIONED AT THE START OF THE TEST RECORD). THE 
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
PROPERLY AT THE START OF THE NEXT TEST RECORD. 

THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET 
TO THE LENGTH OF THE EXPECTED RECORD. SO NO 
EXCEPTIONAL CONDITIONS SHOULD OCCUR. 



BGNSUB 



JSR 
CLR 

JSR 
JSR 



PC . T26REST 
T26CNT 
PC.T26RT2 
PC,T26RT3 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T6.9: 

TRAP C*BSUB 

;SET COMMAND PACKET 
{CLEAR TAPE RECORD COUNTER 
sSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 



L2 



TSV7 - HARDWARE TESTS 
TEST 6: REREADS 



7367 
7366 
7369 
7370 
7371 
7372 
7373 
7374 
7375 
7379 
7380 



1 8 



MACRO Ml 113 01 FEB -84 17:54 



SEQ 231 



; ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



7381 
7i82 
7383 
7384 
7385 
7386 
7387 
7388 
7389 
7390 
7391 
7392 
7393 
7397 
7398 



7399 

7400 
7401 
7402 
7403 
7404 
7405 
7406 
7407 
7408 
7409 
7410 
7411 
7412 
7416 



7417 
7416 



064262 
064266 
064270 
064274 
064276 
064276 
064300 
064302 
064304 
064306 



064320 
064324 
064326 
064332 
064334 
064334 
064336 
064340 
064342 
064344 
064344 



064346 
064352 
064354 
064360 
064364 
064366 
064372 
064372 
064374 
064376 
064400 
064402 
064402 



004737 015674' 
103407 

005237 002212' 
010001 

104455 
001251 
003642' 
011734- 

013737 002172' 



071720' 20$: 



064314 012704 071700' 



JSR PC.SOFINIT 

BCS 201 

INC FATFLG 

MOV RO.Rl 

ERRDF ERRNO.SFIERR.SFIMSG 



MOV UNITN.T26DSU 
MOV ♦T26PACKET.R4 



tOO INITIALIZE ON CONTROLLER 
iBR IF INIT MAS OK 
I BUMP COUNT 

{CONTENTS OF TSSR REGISTER 
{FATAL ERROR TSSR WAS NOT OK 

TRAP 
.UORO 
.UORO 
.UORO 

(SET UP UNIT NUMBER 



CIEROF 
661 
SFIERR 
SFIMSG 



{SUBROUTINE NEEDS PACKET ADDRESS 



{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
i 



004737 010562' 
103407 

005237 002212' 
010001 

104456 
001252 
005046' 
011734' 

104406 



26<: 



JSR PC. WRTCHR 

BCS 26 « 

INC FATFLG 

MOV RO.Rl 

ERRHRD ERRNO.WRTMSG. SFIMSG 



CKLOOP 



{ISSUE WRITE CHARACTERISTICS 
(BR. IF COMMAND ISSUED OK 
{BUMP COUNT 

{SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
WORD 

{LOOP IF SELECTED 

TRAP 



CtERHRD 
682 
WRTMSG 
SFIMSG 

CICLPl 



I ****************************************************************** 

! ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
( 

I****************************************************************** 



004737 010714' 
103413 

016501 000002 

012702 000200 
010004 

005237 002212' 

104456 
001253 
073364' 
011746' 

104406 



JSR 
BCS 
MOV 
MOV 
MOV 
INC 



PC. REWIND 
30 > 

TSSR(R5).Rl 
«SSR.R2 
R0.R4 
FATFLG 



30»: 



ERRHRD ERRNO . T26RWN , PKTSSR 



CKLOOP 



(CALL TAPE REWIND COMMAND 
(BR. IF NO PROBLEM 
(GET TSSR 

(SET UP EXPECTED TSSR 
(PACKET ADDRESS SET UP 
(BUMP COUNT 
{REWIND NOT ACCEPTED 



(LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CIERHRD 
683 
T26RWN 
PKTSSR 

CiCLPl 



TSV7 
TEST 



M2 



HAROUARE TESTS 1 8 
6: REREADS 



MACRO M1115 01 FEB 84 17:54 



SEQ 232 



7419 
7420 
7421 
7422 
7423 
7424 
7425 
7426 
7427 
7428 
7429 
7430 
7434 



7435 

7436 
7437 
7438 
7439 
7440 
7441 
7442 
7443 
7444 
7445 
7446 
7447 
7448 
7449 
7450 
7451 
7452 
7453 
7454 
7455 
7456 
7457 
7461 



7462 

7463 
7464 
7465 
7466 
7467 
7468 
7469 
7470 
7471 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



064404 
064410 
064412 
064416 
064420 
064422 
064426 
064426 
064430 
064432 
064434 
064436 
064436 
064440 
064444 



013701 071730' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001254 
073075' 
015374* 

104406 

012703 000400 

013737 003114* 072032' 



401; 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 



T26BFR*6.R1 

R1.R2 

«6IT1.R2 

R1.R2 

40< 

FATFLG 

ERRNO . T26B0T . EXPREC 



MOV 
MOV 



«256. .R3 
FREE.T26ftB 



I PICK UP XSTO 

J SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

(DOES EXP - REC'D 

I BR, IF EQUAL (OK) 

tSUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP CIERMRO 
.WORD 684 
.WORD T26B0T 
.UORO EXPREC 

sLOOP IF SELECTED 

TRAP CICLPl 

; RECORD SIZE 

{STARTING URITE BUFFER ADDRESS 



URITE DATA.CVC-l.ACK COMMAND 



064452 


012737 


140005 


0720S0' 


MOV 


«140005.T26PK3 


064460 


012704 


072030' 




MOV 


«T26PK3.R4 


064464 






651: 




064464 


010337 


072036' 




MOV 


R3.T26SZ 


064470 


0137"'7 


072056' 


116416 


MOV 


T26CNT.BFREE 


064476 


062737 


000001 


0720S6' 


ADD 


♦1 . T26CNT 


064504 


010465 


000000 




MOV 


R4.TSDBCR5) 


064510 


004737 


016150' 




JSR 


PC.UAITF 


064514 


016501 


000002 




MOV 


TSSRCR5>.R1 


064520 


012702 


000200 




MOV 


4SSR.R2 


064524 


020102 






CMP 


R1.R2 


064526 


001406 






BEQ 


75 » 


064530 


005237 


002212' 




INC 


FATFLG 


064534 








ERRHRO 


ERRNO . URTERR .PK TSSR 


064534 


104456 








064536 


001255 










064540 


005103' 










064542 


011746' 










064544 






75$: 


CKLOOP 




064544 


104406 










064546 


005723 






TST 


(R3)* 


064550 


022703 


000414 




CMP 


«266. ,R3 


064554 


001401 






BEQ 


120 « 


064556 


000742 






BR 


65 > 


064560 






1201: 






064560 


005037 


072056' 




CLR 


T26CNT 



s URITE OATA.CVC-I.ACK COTtlAND 
sSET UP P4 WITH PACKET AODPESS 

;SET UP RECORD SIZE IN PACKET 

;riOVE TAPE RECORD NUr«ER TO BUFFER 

; NUMBER READY FOR NEXT RECORD 

; ISSUE COMMAND 

;UAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

I SET UP EXPECTED 

sARE THEY EQUAL 

jBR. IF OK 

;BUMP COUNT 

sTSSR INCORRECT AFTER REREAD DATA 



;LOOP IF SELECIEO 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



;BUMP THE RECORD SIZE 
I MAXIMUM SIZE YET 
sBR. IF AT END OF URITE SEQUENCE 
t URITE MORE RECORDS 

I SET RECORD COUNTER BACK TO ZERO 



CSERHRD 
685 
URTERR 
PKTSSR 

C$CLPI 



N2 



TSV7 HARDWARE TESTS 1-d 
TEST 6: REREADS 



7472 
7473 
7474 
7475 
7476 
7477 
7478 
7479 
7480 
7484 



MACRO Mills Ol-FEB-84 17:54 



SEQ 233 



(ISSUE REUIhO COMMAND TO SELECTED TAPE DRIVE 

i 



7485 

7486 
7487 
7488 
7«89 
7490 
7491 
7492 
7«93 
7«94 
7«95 
7496 
7497 
7498 
7502 



064564 
064570 
064572 
064576 
064600 
064604 
064604 
064606 
064610 
064612 
064614 
064614 



004737 010714' 
103411 

016501 000002 
010004 

005237 002212' 

104456 
001256 
073364' 
011746' 

104406 



JSR 
BCS 
MOV 
MOV 
INC 

ERRHRD 



130«: CKLOOP 



PC. REWIND 
130$ 

TSSR(R5).R1 
R0.R4 

FATFLG 

ERRNO . T26RWN , PKTSSR 



tCALL TAPE REWIND COMMAND 
I BR. IF W PROBLEM 
tGET TSSR 

t PACKET ADDRESS SET UP 

tBUMP COUNT 

I REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 



C*ERHRD 

686 

T26RWN 

PKTSSR 

C»CLP1 



;*********************************************************«******** 

IrEAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
i 

I ***************************************************************< ** 



064616 
064622 
064624 
064630 
064632 
064634 
064640 
064640 
064642 
064644 
064646 
064650 
064650 

7504 064652 

7505 064660 
7506 

7507 
7508 
7509 
7510 
7511 
7512 
7513 



7503 



013701 071730' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 

001257 

073075' 

015374' 

104406 

012737 000400 072062' 
000420 



135* ! 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 



T266FR»6.R1 

R1.R2 

«6IT1.R2 

R1.R2 

135$ 

FATFLG 

LRRNO . T26B0T . EXPREC 



MOV 
BR 



*256..T26RSZ 
140$ 



I PICK UP XSTO 

I SET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

J DOES EXP - REC'D 

;BR. IF EQUAL (OK) 

I BUMP COUNT 

tTAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
WORD 

J LOOP IF SELECTED 

TRAP 

: STARTING RECORD SIZE 

sSKIP OVER THE SAPCE THIS TIME 



C$ERHRD 
687 

T2660T 
EXPREC 

C$CLP1 



7514 


064662 


012703 


000001 


1321 : MOV 


«000001.R3 


7515 


064666 


004737 


010366' 


JSR 


PC. SPACE 


7516 


064672 


103413 




BCS 


140$ 


7517 


064674 


016501 


000002 


MOV 


TSSR(R5).R1 


7518 


064700 


012702 


000200 


MOV 


»SSR.R2 


7519 


064704 


010004 




MOV 


R0.R4 


7520 


064706 


005237 


002212' 


INC 


FATFLG 


7524 


064712 






ERRHRD 


ERRNO. T26SC. PKTSSR 




064712 


104456 










064714 


001260 










064716 


072477' 









1 ISSUE SPACE RECORDS COTtlAND - VALUE IN R3 SETS NUMBER OF RECORDS 
sBIT IS SETS DIRECTION - 0-FORUARD 1-REVERSE 

8 

sSET UP SPACE COmAND (1 FORUARD) 
;CALL SPACE ROUTINE 
iBR. IF NO TROUBLE 

5 GET TSSR 

J SET UP EXPECTED TSSR 
; PACKET ADDRESS SET UP 
5 BUMP COUNT 

{SPACE (FOriUARD) FAILED 

TRAP CIERHRD 
.UORD 688 
.WORD T26SC 



B5 



rsV7 HARDWARE TESTS 1 8 
TEST 6: REREADS 



HACRO nill3 01 FEB 04 17:54 



SEO 254 



7525 

7526 
7527 
7528 
7529 
7530 
7531 
7552 
7555 
7554 
7535 
7556 
7557 
7558 
7559 
7540 
7541 
7542 
7545 
7544 
7546 



7549 

7550 
7551 
7552 
7553 
7554 
7558 



7559 

7560 
7561 
7562 
7563 
7564 
7565 
7566 
7567 



7568 
7569 
7570 
7571 
7572 
7573 



064720 
064722 
064722 
064724 
064730 



064736 
064744 
064750 
064754 
064760 
064764 
064770 
064774 
064776 
065000 
065004 
065004 
065006 
065010 
065012 
065014 
065014 
065016 
065022 
065026 
065030 
065032 
065036 
065036 
065040 
065042 
065044 
065046 
065046 
065050 
065056 
065060 
065064 
065070 
065072 
065076 
065076 
065076 
065076 
065100 
065106 
065110 
065114 



011746' 

1401 : CKLOOP 

104406 

013705 072062' HOV 
013737 003114* 072032' 1501: MOV 



iLOOP If SELECTED 



T26RSZ.R5 
PREE.T26RB 



.UORO 
TRAP 



•RECORD SIZE 
I STARTING READ BUFFER ADDRESS 



PKTSSR 
CICLPI 



REREAD DATA.CVC-l.ACK. OPP COMnAND 



012737 161401 072030' 

012704 072030' 1651: 

010357 072056' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 

020102 

001406 

005257 002212' 

104456 

001261 
072305* 
011746' 



104406 

017701 116072 
013702 072056' 
020102 
001406 

005237 002212* 

104456 

001262 

072066' 

015374* 

104406 

062737 000001 072056* 
005723 

010337 072062' 
022703 000412 
001402 

000137 064662' 



104403 

023727 002212' 000017 
103402 

004757 017104* 



1701 i 



2001: 



HOV 
HOV 
HOV 
HOV 
JSR 
HOV 
HOV 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 

MOV 
MOV 
CMP 
BEQ 

I NC ^ 



1901: CKLOOP 

ADO 

TST 
MOV 
CMP 
BEQ 
JMP 



999»: 



I * 



ENOSUe 



CMP 
BLO 
JSR 



•161401. T26PK5 
•T26PK5.R4 

R5.T26SZ 

R4,TS0B(R5) 

PC.WAITF 

TSSR(n5),Rl 

•SSR,R2 

R1.R2 

1701 

FATFLG 

ERRNO. T26RRF .PKTSSR 



SFREE.Rl 

T26CNT.R2 

R1.R2 

190t 

FATFLG 

EftRNO . T26UNG . EXPREC 



♦1,T26CNT 

(RS)* 

R3.r26RSZ 

•266.. RS 

2001 

1321 



FATFLG. •IS. 
9991 

PC.CKOROP 



I REREAD DATA.CVC-l.ACK. OPP COMMAND 

I SET UP R4 UITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

I WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

I SET UP EXPECTED 

I ARE THEY EQUAL 

iBR. IF OK 

I BUMP COUNT 

I TSSR INCORRECT AFTER REREAD DATA 

TRAP CtER»«D 
.WORD 689 
.WORD T26RRF 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP C»CLPl 
iFIRST WORD FROM READ BUFFER 
I SET UP EXPECTED 
lis TAPE POSITION CORRECT 
iKEEP GOING POSITION OK 
tBUMP COUNT 

iTAPE POSITION INCORRECT 

TRAP C»ER»«C 
.WORD 690 
.WORD T26WNG 
.WORD EXPREC 

TRAP CtCLPl 
I BUMP TAPE RECORD COUNTER 
(NEXT RECORD SIZE 
I STORE RECORD SIZE 
lAT MAX SIZE YET 
iBR. IF AT END OF THE SUBTEST 
{KEEP GOING MORE RECORDS 

!»»>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 101 13: 

TRAP C IE SUB 
tIS ERROR COUNT AT 25 
I BR. IF LESS THAN 25 
iTRt to DROP THE iMU 



C3 



TSV7 
TEST 



6: 



MACRO nillS Ol-FLB-64 17:54 



SEQ 235 



7574 
7575 
7576 
7577 
7578 
7579 
7560 
7581 
7582 
7583 
7584 
7585 
7586 
7587 
7588 



7589 
7590 
7591 
7592 
7593 
7594 
7595 
7596 
7597 
7598 
7599 
7600 
7601 
7602 
7606 
7607 



7608 
7609 
7610 
7611 
7612 
7613 
7614 
7615 
7616 
7617 
7618 
7619 
7620 
7624 
7625 



7626 



065114 
065114 
065114 
065116 
065122 
065126 
065132 



104402 

004737 074620' 

005037 072056 

004737 074712' 

004737 074754' 



065136 
065142 
065144 
065150 
065152 
065152 
065154 
065156 
065160 
065162 



004737 
103407 
005237 
010001 

104455 

001263 

005642* 

011734' 

013737 



015674' 
002212' 



TEST 6, SUBTEST 10 

VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP-1 
AND SUB- I OPERATES PROPERLY. THE TEST SEQUENCE IS 
THE SAME THAT IS USED IN SUBTEST 3. BUT IT IS 
VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 
SWAPPED BYTES. 



BGNSUB 



JSR 
CLR 
JSR 
JSR 



PC.T26RCST 
T26CNT 
PC.T26RT2 
PC.T26I>TS 



!>»>>>>>>>>>» BEGIN SUBTEST >>>>>>>>>>>> 
T6.10: 

TRAP C«6SUB 

I SET COMMAND PACKET 
1 CLEAR TAPE RECORD COUNTER 
I SET UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER -SOTT" INITIALIZE • CARRY BIT CLEAR IF ERROR 



065170 012704 



002172' 
071700* 



071720* 201: 



JSR PC.SOFINIT 

BCS 20« 

INC FATFLC 

NOV RO.Ri 

ERROP EIMNO.SFIERR.SFIMSG 



MOV UNITN.T260SU 
MOV •r26PACKET.R4 



iDO INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
I BUMP COUNT 

{CONTENTS OF TSSR REGISTER 
iFATAL ERROR TSSR MAS NOT OK 

TRAP 
.UORO 
.WORD 
.WORD 

iSET UP UNIT NUMBER 



CSEROF 
6*>l 

SFIERR 
SFIMSG 



{SUBROUTINE NEEDS PACKET ADDRESS 



URITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



065174 
065200 
065202 
065206 
065210 
065210 
065212 
065214 
065216 
065220 



004737 010562* 
103407 

005237 002212* 
010001 

104456 
001264 
005046' 
011734' 



261: 



JSR 
BCS 
INC 
MOV 
ERRHRD 



CKLOOP 



PC. URTCHR 
26t 

FATFLG 
RO.RI 

ERRNO . URTMSG . SF IMSG 



i ISSUE URITE CHARACTERISTICS 
tBR. IF COrtlAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
tURITE CHARACTERISTISC FAILED 

TRAP 
.UORO 
.UORO 
.UORO 

I LOOP IF SELECTED 



CSERHRO 

692 

URTMSG 
SFIMSG 



D3 



TSV7 
TEST 



TESTS 1 8 



HACRO nillS Ol-FEB 84 17:54 



SEQ 236 



7627 
76:?8 
7629 
7630 
7631 
7632 
7633 
7t»S4 
7635 
7636 
7637 
7638 
7639 
7643 



7644 

7645 
7646 
7647 
7648 
7649 
7650 
7651 
7652 
7653 
7654 
7655 
7656 
7657 
7661 



7662 

7663 
7664 
7665 
7666 
7667 
7668 
7669 
7670 
7671 
7672 
7673 
7674 
7675 
7676 
7677 
7678 



065220 104406 



065222 
065226 
065232 
065236 
065240 
065242 
065246 
065246 
065250 
065252 
065254 
065256 
065256 



065260 
065264 
065266 
065272 
065274 
065276 
065302 
065302 
065304 
065306 
065310 
065312 
065312 
065314 
065320 



065326 
065334 
065340 
065340 
065344 
065352 
06SS60 



ISSUE REUIND COHNAW) TO SELECTED TAPE DRIVE 



004737 010714- 

016501 000002 

012702 000200 
103407 
010004 

005237 002212' 

104456 

001265 

073364' 

011746' 

104406 



30*: 



JSR 

nov 
nov 

BCS 
NOV 
INC 

ERRHRO 



CKLOOP 



PC. REWIND 

TSSR(R5>.R1 

#SSR.R2 

301 

R0.R4 

FATFLG 

ERRNO . T26RUN . PK TSSR 



tCALL TAPE REUIND COmAND 

I GET TSSR 

I SET UP EXPECTED TSSR 
I BR. If NO PROBLEM 
•PACKET ADDRESS SET UP 
iBUNP COUNT 
•REMIND NDT ACCEPTED 

TRAP 
.UORO 
.WORD 
.UORO 

iLOOP If SELECTED 

TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 071750* 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 

001266 

073075' 

0153'4' 

104406 

012703 000400 

013737 003114* 072032' 



409 ! 



NOV 
NOV 
BIS 
CNP 
BEQ 
INC 

ERRHRO 



CKLOOP 



T266FR*6.R1 

R1.R2 

«6IT1.R2 

R1.R2 

401 

FATFLG 

ERRNO . T26B0T , EXPREC 



NOV 
NOV 



«256. .R3 
rREE,T26RB 



CfCLPl 



CtERHRO 
693 

T26RUN 
PKTSSR 

CICLPI 



tPICK UP XSTO 

I SET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

iBR. IF EQUAL (OK) 

iBUNP COUNT 

I TAPE NOT AT BOT AFTER REUIND 

TRAP 
.UORO 
.UORC 
.UORO 

I LOOP IF SELECTED 

TRAP 

t RECORD SIZE 

I STARTING URITE BUFFER ADDRESS 



OERHRO 
694 
T26B0T 
EXPREC 

CICLPI 



URITE DATA. CVC- LACK CONMAND 



012737 140005 072030' 

012704 072030' 

010337 072036' 

013777 072056' 115542 

062737 000001 072056' 

010465 000000 



65*: 



MOV ♦140005. T26PK3 

MOV «T26PK3.H4 

MOV R3.T26SZ 

MOV T26CNT.aFREE 

ADD •1.T26CNT 

MOV R4.TS0B(R5) 



lURITE DATA.CVC-l.ACK COMMAND 
I SET UP R4 UITM PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 
I MOVE TAPE RECORD NUMBER TO BUFFER 
I NUMBER READY FOR NEXT RECORD 
I ISSUE COMMAND 



TSV7 HARDWARE TESTS 1-8 
TEST *>: REREADS 



MACRO nillS 01 -FEB 84 17:54 



E3 



SEQ 237 



7679 
7680 
7681 
7682 
7683 
7684 
7688 



7689 

7690 
7691 
7692 
7693 
7694 
7695 
7696 
7697 
7698 
7699 
7700 
7701 
7702 
7 705 
7704 
7705 
7706 
7707 
7711 



7712 

7715 
7714 
7715 
7716 
7717 
7718 
7719 
7720 
7721 
7722 
7725 
7724 
7725 
7729 



065564 
065370 
065574 
065400 
065402 
065404 
065410 
065410 
065412 
065414 
065416 
065420 
065420 
065422 
065424 
065450 
065452 
065454 
06S4S4 



065440 
065444 
065446 
065452 
065454 
065460 
065460 
065462 
065464 
065466 
065470 
065470 



7750 



065472 
065476 
065500 
065504 
065506 
065510 
065514 
065514 
065516 
065520 
065522 
065524 



004737 

016501 
012702 
020102 
001406 
005257 

104456 

001267 

005103' 

011746' 

104406 

005725 
022705 
001401 
000742 



016150' 

000002 

000200 



002212' 



000414 



005037 072056* 



751: 



1^01: 



JSR 
MOV 

nov 

CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 

TST 
CMP 
BEQ 
BR 



PC.ilAITF 

TSSR(RS).R1 

♦SSR.R2 

R1,R2 
751 

FATFLG 

ERRNO . URTERR . PKTSSR 



CLR 



(R3)» 
*268. .R3 
1201 
651 

T26CNT 



I WAIT FOR SSR TO SE^ 
I GET TSSR CONTENTS 
t SET UP EXPECTED 
I ARE THEY EQUAL 
iBR. IF OK 
I BUMP COUNT 

I TSSR INCORRECT AFTER WRITE DATA 

TRAP CIERHRO 
.WORD 695 
.WORD WRTERR 
.WORD PKTSSR 

J LOOP IF SELECTED 

TRAP CICLPl 

tBUMP THE RECORD SIZE 
iMAXIMUM SIZE YET 
iBR. IF AT END OF WRITE SEQUENCE 
lURITE nORE RECORDS 

I SET RECORD COUNTER BACK TO ZERO 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



004757 010714* 
105411 

016501 000002 
010004 

005237 002212* 

104456 

001270 

075564' 

011746' 

104406 



JSR 
BCS 
MOV 
MOV 
INC 

ERRHRD 



ISOt: CKLOOP 



PC. RE WIND 
150 » 

TSSR(RS).R1 
R0.R4 

FATFLG 

ERRNO . T26RWN . PK T SSR 



(CALL TAPE REWIND COTtlAND 
I BR. IF NO PROBLEM 
iGET TSSR 

I PACKET ADDRESS SET UP 

I BUMP COUNT 

iREWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

tLOOP IF SELECTED 

TRAP 



CSER»«D 
696 

T26RWN 
PKTSSR 

OCLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



015701 071750' 
010102 

052702 000002 

020102 

001406 

005237 002212* 

104456 

001271 

075075' 

015574' 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRD 



1351: CKLOOP 



r26BFR*6.Rl 

R1.R2 

«6IT1.R2 

R1.R2 

1351 

FATFLG 

ERRNO. T26B0T .EXPREC 



J PICK UP XSTO 

jSET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

lOOES EXP - REC'D 

iBR. IF EQUAL (OK) 

I BUMP COUNT 

{TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
I LOOP IF SELECTED 



CIERHRO 

697 

T26B0T 

EXPREC 



F3 

TSV7 HARDWARE TESTS 1-8 HACRO M1113 01 FEB-84 17:54 

TEST 6: REREADS 







1 AA4n^ 










TRAP CICLPl 


77T1 




ftl 07T7 
Ulc for 






MOV 


«256..T26RSZ 




f ( 










BR 


140) 


. CVTD AUCD CDAf*C 

UVcK bPAcc 


( ( 5o 

1 ( 
















77X^ 








1 








77XA 








f Xd^UC 


SPACE RECORDS COMMAND - VALUE 


Tkl OX CrTC AC DCPAOAC 
Xrt HO oz, 1 9 NUnc.H Ur NcLUHUb 


77X7 








•RTT IS 
1 DX 1 X3 


SETS DIRECTION - O-FORUARD 


1 aDPliPDCP 


77XA 








• 








77XQ 
















77AA 














77A1 


nA55XA 




VWWX 


XdO * : 


HOW 


40AAAA1 
WWWX t ^o 


1 T 1 1> QPArP PA^MAI^ ^ 1 r ADUADA \ 
1 1 \Jr ^fnwc LwirnHPIU I X r UHWnNU / 


774P 


M554P 


004757 


A1AX66' 
vXV^Tvw 








iTAll <;PArP DAtlTTI^ 


7745 


0^5546 










14Ai 


tRQ TP Kin TPntAl P 


7744 










nuv 


1 QdHV NO ^ •NX 


1 f 1 


7745 


M5554 










ACCD DP 


i<;PT IJP PlCPPTTPn T^<;p 


7746 




010004 






MOV 


R0.R4 




7747 




005P57 


OOPP1P' 
wcc xc 




INC 


FATFLG 




7751 










ERRHRD 


ERRN0.T26SC.PKTSSR 








104456 










TPAP rtPDfrAA 




065570 


















A7P477 • 










UADA Toiler 






M 1 746' 










UADA Dl/TCCD 


775P 








14Ai • 

X^W ; 


CKLOOP 




• 1 AAD TP QPI PPTPA 




m;557A 












TOAD rtri D1 


77^X 






A7DAIIO* 




HOV 


T26RSZ.R3 


.OC/^AOA CT7C 
}Nci.UNU bX^C 


7754 






AAXI 14* 


072032' 1501: 


nov 


FREE.T26RB 


• CTADTTIhtf!! OPAA Pi CPPD AAADPCC 


7755 
















7756 
















7757 
















775« 








s REREAD DATA.CVC-l.ACK. OPP COHMAND 




775^ 
















7760 
















7761 
















7762 






1614A1 
XvX^VX 


072030- 


MOV 


«161401.T26PK3 


tOFPFAn DATA PVPal APlT APP TAMtAUn 


7763 




01P704 




1651: 


MOV 


•T26PK3.R4 


■ QFT lt> P4 UTTH PArKPT AAADPQC 


7764 










MOV 


R3.T26SZ 


i Z>C 1 \Jr rfCCl^H^ bX&C XN fH^KC i 


7765 






AAMM 




MOV 


R4.TSDB(R5) 


• TQ^IJP PAMiAM^ 


7766 


0656 34 


004757 


01615A* 

VXOX3V 




JSR 


PC.WAITF 


lUATT PnP QQP TO CPT 
1 w^x 1 r wfi Dorv 1 \J 9C 1 


7767 




wX03VX 


AAAAAP 




MOV 


TSSR(R5).R1 


•HPT TCCP PAUTPMTQ 


7768 


065644 


OtP7AP 






MOV 


♦SSR.R2 


tQFT lO PYPPrTpn 

1 dC 1 C AF^CW 1 Cl# 


7769 


065650 








CMP 


R1.R2 


• APP THPy PAllAI 


7770 


06565P 








BEQ 


170$ 


• PP TP AK 

• ON t X*^ U^^ 


7771 


065654 


005P57 


MPP1P' 




INC 


FATFLG 




7775 


065660 








ERRHRD 


ERRNO. T26RRF .PKTSSR 


f TQQP TMTOPPPrT APTPP PPPPAA AATA 

i 1 39N Xn^UNnCU ' Nr | CN FtCNCnv W i " 




065660 


104456 










TPAP riPRt-AD 




06566P 


OOiP73 














065664 


07P305' 










ynpn tpappf 




065666 


oil 746' 

VX X ' 










unpn pkt<;<;p 


7776 


065670 






1701: 


CKLOOP 




ti nnp TP <;pi prTPn 




065670 


104406 










TRAP C*CLPl 


7777 


065672 


0177CI 


115216 




MOV 


SFREE.Rl 


iFIRST UORO FROM READ BUFFER 


7778 


065676 


01S702 


072056' 




MOV 


T26CNT,R2 


iSET UP EXPECTED 


7779 


065702 


020102 






CMP 


R1.R2 


tIS TAPE POSITION CORRECT 


7780 


065704 


001406 






BEQ 


190t 


(KEEP GOING POSITION OK 


7781 


065706 


005237 


002212' 




INC 


FATFLG 


iBUMP COUNT 


7785 


065712 








ERRHRD 


ERRNO . T 26WNG . E XPREC 


J TAPE POSITION INCORRECT 



TSV7 - HARDWARE lESTS 18 
TEST 6: REREADS 



G3 



MACRO M1113 01 -FEB 64 17:54 



SEQ 239 



7786 

7787 
7788 
7789 
7790 
7791 
7792 
7795 
7794 



7795 
7796 
7797 
7798 
7799 
7800 
7801 
7802 
7805 
7804 
7805 
7806 
7807 
7808 
7809 
7810 
7811 
7812 
7815 
7814 
7015 



7816 
7817 
7818 
7819 
7820 
7821 
7822 
7825 
7824 
7825 
7826 
7827 
7828 
7852 
7855 



065712 
065714 
065716 
065720 
065722 
065722 
065724 
065752 
065754 
065740 
065744 
065746 
065752 
065752 
065752 
065752 
065754 
065762 
065764 
065770 



065770 
065770 
065770 
065772 
065776 
066002 



066006 
066012 
066014 
066020 
066022 
066022 
066024 
066026 



104456 

001274 

072066- 

015574' 

104406 

062757 OOOOOl 072056' 
005725 

010557 072062' 
022705 000412 
001402 

000157 065556' 



104405 

025727 002212' 000017 
105402 

004757 017104* 



190$ : CKLOOP 

ADD 
TST 
MOV 
CMP 
BEQ 
JMP 



TRAP CtERHRO 

.WORD 700 

.WORD T26UNC 

.UORO EXPREC 



2201: 



999»: 



I ♦ 



ENDSUB 



CMP 
BLO 
JSR 



♦1.T26CNT 

(R5)» 

R5.T26RSZ 

•266. .R5 

2201 

156> 



FATFLG.^IS. 
999$ 

PC.CKOROP 



TRAP 

I BUMP TAPE RECORD COUNTER 

iNEXT RECORD SIZE 

I STORE RECORD SIZE 

I AT MAX SIZE YET 

iBR, IF AT END OF THE SUBTEST 

{KEEP GOING MORE RECORDS 



C$CLP1 



I >>>>>>>>>>>> 



END SUBTEST 
L 101 14: 

TRAP 

tIS ERROR COUNT AT 25 
;BR. IF LESS TMAN 25 
I TRY TO DROP TME UNIT 



>>>>>>>>>>>> 



C$ESUB 



J TEST 6. SUBTEST 11 

ivERIFIES THAT A REREAD NEXT COMMAND READING A 

I RECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 

{TAPE STATUS ALERT TERMINATION UITH THE RECORD LENGTH 

tLONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH 

;STATES OF OPP (0 AND 1). 

I 

t 

t 

t - 



104402 

004757 074620' 

004757 074712* 

004757 074754* 



BGNSUe 



JSR 
JSR 
JSR 



PC.T26REST 

PC.T26RT2 

PC.T26RT5 



:>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T6.11: 

TRAP CtBSUB 

tSET COMMAND PACKET 

tSET UP OTHER COMMAND PACKET 

t SET UP OTHER COMMAND PACKET 



ISSUE CONTRXLER "SOFT" INITIALIZE • CARRY BIT CLEAR IF ERROR 



004757 015674' 
105407 

005257 002212' 
010001 

104455 
001275 
003642' 



JSR PC.SOFINIT 

BCS 20$ 

INC FATFLG 

MOV RO.Rl 

ERRDF ERRNO.SFIERR.SFIMSG 



tDO INITIALIZE ON CONTRXLER 
iBR IF INIT UAS OK 
I BUMP COUNT 

I CONTENTS OF TSSR REGISTER 
I FATAL ERROR TSSR UAS NOT OK 

TRAP 
.WORD 
.WORD 



C$EROF 
701 

SFIERR 



H5 



TSV7 
TEST 



HARDWARE TESTS 1 8 
6: REREADS 



MACRO M1113 Ol-FEB-84 17:54 



SEQ 240 



7854 
7855 
7856 
7857 
7858 
7859 
7840 
7841 
7842 
7843 
7644 
7845 
7846 
7850 
7851 



7852 

7855 
7854 
7855 
7856 
7857 
7856 
7659 
7660 
7661 
7662 
7663 
7864 
7665 
7869 



7870 

7871 
7872 
7875 
7874 
7875 
7676 
7677 
7676 
7879 
7860 
7661 
7662 
7663 
7667 



066050 011754' 

066052 015757 002172' 071720' 20$ j 



066040 012704 071700' 



HOV UNITN.T26DSW 
MOV •T26PACKET.R4 



.UURO SFIMSG 



iSET UP UNIT NUMBER 
•SUBROUTINE NEEDS PACKET AOORtSS 



066044 

066050 
066052 
066056 
066060 
066060 
066062 
066064 

066070 
066070 



066072 
066076 
066102 
066106 
066110 
066112 
066116 
066116 
066120 
066122 
066124 
066126 
066126 



066130 
066134 
066136 
066142 
066144 
066146 
066152 
066152 



URITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 

001276 

005046' 

011734' 

104406 



26* : 



JSR 
BCS 
INC 

nov 

ERRHRD 



CKLOOP 



PC. URTCHR 
261 

FATFLG 
RO.Rl 

ERRNO . UR TMSG , SF IMSG 



I ISSUE URITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
lURITE CHARACTERISTISC FAILED 

TRAP 
.UORO 
.UORD 
.UORD 

I LOOP IF SELECTED 

TRAP 



ISSUE REUIND COMMAND TO SELECTED TAPE DRIVE 



004737 010714' 

016S01 000002 

012702 000200 
103407 
010004 

005237 002212' 

104456 

001277 

073364' 

011746' 

104406 



30»: 



JSR 
MOV 
MOV 
BCS 
MOV 
INC 

EfWHRO 



CKLOOP 



PC. REWIND 

TSSR(R5).R1 

#SSR.R2 

30< 

R0.R4 

FATFLG 

ERRNO. T26RUN.PKTSSR 



tCALL TAPE REWIND COMMAND 
iGET TSSR 

t SET UP EXPECTED TSSR 
tBR. IF NO PROBLEM 
•PACKET ADDRESS SET UP 
tBUMP COUNT 
{REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
WORD 

I LOOP IF SELECTED 

TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 071730' 
010102 

0S2702 000002 

020102 

001406 

005237 002212' 
104456 



MOV T268FR»6.R1 

MOV R1.R2 

BIS «BIT1.R2 

CMP R1,R2 

BEQ 40» 

INC FATFLG 

ERRHRD ERRNO , T26B0 T . EXPREC 



I PICK UP XSTO 

I SET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

I DOES EXP - REC'D 

iBR. IF EQUAL (OK) 

tBUMP COUNT 

{TAPE NOT AT BOT AFTER REWIND 

TRAP 



C«ERHRD 

702 

WRTHSG 
SFIMSG 

C»CLP1 



OERHRD 
705 

T26RWN 
PKTSSR 

C$CLP1 



C»ERHRO 



TSV7 HARDWARE TESTS 1-8 
TEST 6: REREADS 



13 



MACRO M1113 Ol-FEB-84 17:54 



SEQ 241 





066154 


001300 










.WORD 


704 




066156 


073075* 










,UORO 


T2660T 




066160 


015374* 










.UORO 


EXPREC 


7886 


066162 






401: 


CKLOOP 




iLOOP IF SELECTED 






066162 


104406 










TRAP 


CICLPl 


7889 


066164 


012703 


001000 




MOV 


«512..R3 


{RECORD SIZE 




7890 


066170 


013737 


003114' 


072032' 


MOV 


FREE.T26RB 


{STARTING WRITE BUFFER ADDRESS 




7891 


















7892 


















7893 








s 










7894 








tURITE OATA.CVC-l.ACK COTtlAND 






7895 


















7896 


















7897 


















7896 


066176 


012737 


140005 


072030' 


MOV 


«140005.T26PKS 


tWRITE DATA.CVC-l.ACK COrtMND 




7699 


066204 


012704 


072030' 




nov 


•T26PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 




7900 


066210 






6S»: 










7901 


066210 


010337 


072036' 




nov 


R3,T26SZ 


tSET UP RECORD SIZE IN PACKET 




7902 


066214 


010465 


000000 




nov 


R4.TS0BCRS) 


{ISSUE connANO 




7903 


066220 


004737 


016150' 




JSR 


PC.UAZTF 


tWAIT FOR SSR TO SET 




7904 


066224 


016501 


000002 




nov 


TSSR(RS).R1 


{GET TSSR CONTENTS 




7905 


066230 


012702 


000200 




nov 


•SSR.R2 


t SET UP EXPECTED 




7906 


066234 


020102 






cnp 


R1.R2 


lARE THEY EOUAL 




7907 


066236 


001406 






BEQ 


751 


iBR. IF OK 




7906 


066240 


005237 


002212' 




INC 


FATFLC 


tSUMP COUNT 




7912 


066244 








ERRHRD 


ERRNO , URTERR .PKTSSR 


iTSSR INCORRECT AFTER WRITE DATA 




066244 


104456 










TRAP 


C9ERHR0 




066246 


001301 










.WORD 


705 




066250 


005103' 










.WORD 


WRTERR 




066252 


011746' 










.WORD 


PKTSSR 


7913 


066254 






751: 


CKLOOP 




{LOOP IF SELECTED 






066254 


104406 










TRAP 


CICLPl 



7914 

7915 
7916 
7917 
7916 
7919 
7920 
7921 
7922 
7923 
7924 
7925 
7926 
7930 



7931 

7932 
7933 
7934 
7935 
7936 



ISSUE REWIND COMHAND TO SELECTED TAPE DRIVE 



066256 
066262 
066266 
066272 
066274 
066276 
066302 
066302 
066304 
066306 
066310 
066312 
066312 



004737 010714* 

016501 000002 

012702 000200 
103407 
010004 

005237 002212' 

104456 

001302 

073364' 

011746' 

104406 



JSR 
NOV 
NOV 
BCS 

nov 

INC 

ERRHRD 



1301: CKLOOP 



PC. REWIND 

TSSR(R5).R1 

•SSR.R2 

1501 

R0.R4 

FATFLG 

ERRNO, T26RWN. PKTSSR 



tCALL TAPE REWIND COHMANO 
iCET TSSR 

tSET UP EXPECTED TSSR 
iBR. IF NO PROBLEn 
{PACKET ADDRESS SET UP 
{BUnP COUNT 
(REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
WORD 

{LOOP IF SELECTED 

TRAP 



CtERHRD 
706 

T26RWN 
PKTSSR 

CICLPl 



{•••••♦••••••••*•••••••••••••••••••••••••••••••••••••••••• 

IrEAD HESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 
( 



J3 



TSvr HAROUARC TESTS 1-8 
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MACRO mil3 Ol-FEB-84 17:54 



SEQ 242 



7957 
7938 
7939 
7940 
7941 
7942 
7943 
7944 
7948 



7949 

7950 
7951 
7952 
7953 
7954 
7955 
7956 
7957 
7958 
7959 
7960 
7961 
7962 
7963 
7964 
7965 
7966 
7967 
7966 
7972 



7973 

7974 
7975 
7976 
7977 
7978 
7979 
7960 
7961 
7982 
7983 
7984 
7985 
7986 
7990 



066S14 
066320 
066322 
066326 
066330 
066332 
066336 
066336 
066340 
066342 
066344 
066346 
066346 
066350 
066352 



066360 

066372 
066376 
066402 
066406 
066412 
066416 
066420 
066422 
066426 
066426 
066430 
066432 
066434 
066436 
066436 



066440 
066444 
066446 
066452 
066454 
066456 
066462 
066462 
066464 



013701 071730' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001303 
073075' 
015374' 

104406 

005303 

013737 003114' 072032' 



1401: 



MOV 
MOV 
BIS 
CMP 
BFQ 
INC 

ERRHI90 



CKLOOP 

DEC 
MOV 



T26BrR»6.Rl 

R1.R2 

4BIT1.R2 

R1.R2 

140< 

FATFLG 

ERRNO . T26B0T , EXPREC 



R3 

FREE.T26RB 



iPICK UP XSTO 

•SET UP EXPECTED 

(SET BOT BIT IN EXPECTED 

I DOES EXP ■ REC'D 

iBR. IF EQUAL (OK) 

I BUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP CtERHRD 
.UORD 707 
.UORD T2680T 
.WORD EXPREC 

I LOOP IF SELECTED 

TRAP CfCLPl 

tSET RECORD SIZE TO 511. 

t STARTING READ BUFFER AOOAESS 



REREAD DATA.CVC-l.ACK.OPP-1 COTtlAND 



012737 161401 072030' 

012704 072030' 1651: 

010337 072036' 

010465 000000 

004737 0161S0' 

016501 000002 

012702 100204 

020102 

001406 

005237 002212' 

104456 
001304 
074442' 
011746' 



nov 


♦161401. T26PK3 


(REREAD OATA.CVC-l.ACK.OPP-1 COMMAND 


MOV 


#T26PK3.R4 


tSET UP R4 WITH PACKET ADDRESS 


MOV 


R3.T26SZ 


tSET UP RECORD SIZE IN PACKET 


MOV 


R4.TS0B(R5) 


1 ISSUE COMMAND 


JSR 


PC.UAITF 


tUAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 


MOV 


•SSR!SC!BIT2.R2 


tSET UP EXPECTED 


CMP 


R1.R2 


(ARE THEY EQUAL 


BEQ 


1701 


iBR. IF OK 


INC 


FATFLG 


iBUHP COUNT 


ERRHRO 


ERRNO. T26TRL .PKTSSR 


tTSSR INCORRECT AFTER REREAD DATA 



104406 



1701: CKLOOP 



iLOOP IF SELECTED 



TRAP 
.WORD 
.UORD 
.UORD 

TRAP 



CtERMRD 
708 

T26TRL 
PKTSSR 

CICLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 071730' 
010102 

052702 010000 

020102 

001406 

005237 002212' 

104456 

001305 



MOV T26BFR»6.RI 

MOV R1.R2 

BIS «BIT12.R2 

CMP R1.R2 

BEQ IBOt 

INC FATFLG 

ERRMRD ERRNO . T26L0N .EXPREC 



tGET MESSAGE BUFFER 

tSET UP EXPECTED 

tSET TME RLL BIT IN EXPECTED 

tARE TMEY EQUAL 

iBR. IF EQUAL (ALL IS UELL) 

I BUMP COUNT 

(THE RLL BIT WAS NOT SET IN XSTO 

TRAP CSERHRO 
.WORD 709 



<3 

TSV7 - HARDWARE TESTS 1-8 MACRO M1113 01 FEB 84 17;54 SEQ 243 

TEST 6: REREADS 



066466 


074210' 












.WORD 


T26L0N 


066470 


015374* 












.UORO 


EXPREC 


7991 066472 








180$: 


CKLOOP 








066472 


104406 












TRAP 


C$CLP1 


7992 066474 


012703 


000777 






MOV 


«511..R3 


iSET UP SIZE OF RECORD 




7993 066500 


013737 


003114' 


072032' 




MOV 


rREE.T26RB 


t STARTING READ BUFFER ADDRESS 




7994 


















7995 


















7996 








1 










7997 








t REREAD DATA.CVC-l.ACK COMMAND 






7998 


















7999 


















8000 


















8001 066506 


012737 


141401 


072030' 




MOV 


«141401.T26PK3 


{REREAD DATA.CVC'l.ACK COMMAND 




8002 066514 


012704 


072030' 




365$: 


MOV 


♦T26PK3.R4 


tSET UP R4 WITH PACKET ADDRESS 




8003 066520 


010337 


072036' 






MOV 


RS.T26SZ 


»SET UP RECORD SIZE IN PACKET 




8004 066524 


010465 


000000 






MOV 


R4.TS0B(RS) 


1 ISSUE COMMAND 




8005 066530 


004737 


016150' 






JSR 


PC.UAITF 


lUAIT FOR SSR TO SET 




8006 066534 


016501 


000002 






MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 




8007 066540 


012702 


100204 






MOV 


«SSR!SC!BIT2.R2 


(SET UP EXPECTED 




8008 066544 


020102 








CMP 


R1.R2 


lARE THEY EQUAL 




8009 066546 


001406 








BEQ 


370$ 


iBR. IF OK 




8010 066550 


005237 


002212' 






INC 


FATFLG 


iBUMP COUNT 




8014 066554 










ERRHRD 


ERRNO. T26TRL.PKTSSR 


iTSSR INCORRECT AFTER REREAD DATA 


066554 


104456 












TRAP 


C$ERHRO 


066556 


001306 












.WORD 


710 


066560 


074442' 












.WORD 


T26TRL 


066562 


011746' 












.WORD 


PKTSSR 


8015 066564 








370t: 


CKLOOP 




tLOOP IF SELECTED 




066564 


104406 












TRAP 


C$CLP1 


8016 


















8017 


















8018 


















8019 








iREAO MESSAGE BUFFER EXTENDED STATUS 


REGISTER ZERO CXSTO) 




8020 


















8021 


















8022 


















8023 066566 


013701 


071730' 






nov 


T26BFR»6.R1 


iGET MESSAGE BUFFER 




8024 066572 


010102 








MOV 


R1.R2 


iSET UP EXPECTED 




8025 066574 


052702 


010000 






BIS 


«BIT12.R2 


tSET THE RLL BIT IN EXPECTED 




8026 066600 


020102 








CMP 


R1.R2 


;ARE THEY EQUAL 




8027 066602 


001406 








BEQ 


980$ 


iBR. IF EQUAL CALL IS UELL) 




8028 066604 


005237 


002212' 






INC 


FATFLG 


:BUMP COUNT 




8032 066610 










ERRHRD 


ERRNO. T26L0N.EXPREC 


(THE RLL BIT UAS NOT SET IN XSTO 


066610 


104456 










TRAP 


C«ERMIO 


066612 


001307 












.UORD 


711 


066614 


074210' 












.UORO 


T26L0N 


066616 


015374' 












.UORD 


EXPREC 


8033 066620 








380t: 


CKLOOP 








066620 


104406 












TRAP 


C$CLP1 


8034 066622 










ENDSUB 




{>>>>>>>»>>>> END SUBTEST >>>>>>>>>>>> 


066622 














LlOllS: 




066622 


104403 












TRAP 


C«ES(.e 


8035 066624 


023727 


002212' 


000017 




CMP 


FATFLG, #15. 


lis ERROR COUNT AT 25 




8036 066632 


103402 








BLO 


999$ 


iBR. IF LESS THAN 25 




3037 066634 


004737 


017104' 






JSR 


PC.CKOROP 


iTRY TO DROP THE UNIT 




8038 06664C 








9991: 









L3 



TSV7 HARDWARE TESTS 1-8 
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8039 
8040 
8041 
8042 
8045 
8044 
8045 
8046 
8047 
8048 
8049 
8050 
8051 
8052 
8053 
8054 
8055 
8056 
8057 



MACRO Mills Ol-rEB-84 17:54 



} ♦ 

I 



SEQ 244 



8058 
8059 
8060 
8061 
8062 
8063 
8064 
8065 
8066 
8067 
8068 
8069 
8070 
8074 
8075 



8076 
8077 
8078 
8079 
8080 
8081 
8082 
8083 
8084 
8085 
8086 
8067 
8088 
8092 
6093 



066640 
066640 
066640 
066642 
066646 
066652 



104402 

004737 074620' 

004737 074712' 

004737 074754' 



066656 
066662 
066664 
066670 
066672 
066672 
066674 
066676 
066700 
066702 



004737 
103407 
00S237 
010001 

104455 

001310 

003642' 

011734' 

013757 



015674' 
002212' 



066*«!0 012704 



002172* 071720' 
071700* 



066714 
066720 
066722 
066726 
066730 
066730 
066732 



004737 010562' 
103407 

005237 002212' 
010001 

104456 
001311 



(TEST 6. SUBTEST 12 

{VERIFIES THAT A REREAD NEXT COrtlANO READING A 

t RECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES 

;TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 

I SHORT (RLS) BIT SET. IT IS VERIFIED THAT THE 

t RESIDUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER 

{CONTAINS THE PROPER NONZERO VALUE (E.G.. THE 

(DIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE 

: ACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH 

{STATES OF OPP (0 AND 1). 

{ 

i 

{ 

( - 



BGNSUB 



JSR 
JSR 
JSR 



PC.T26REST 

PC.T26RT2 

PC.T26RT3 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T6.12: 

TRAP OBSUB 

{SET COMMAND PACKET 

{SET UP OTHER COMMAND PACKET 

{SET UP OTHER COMMAND PACKET 



(ISSUE CONTROLLER "SOFT" INITIALIZE 
I 



CARRY BIT CLEAR IF ERROR 



201 { 



JSR PC.SOFINIT 

BCS 20* 

iNC FATFLG 

MOV RO.Rl 

ERROF ERRNO.SFIERR.SFIMSG 



nOV UNITN.T260SU 
MOV •T26PACKET.R4 



{DO INITIALIZE ON CONTROLLER 
{BR IF INIT WAS OK 
{BUMP COUNT 

{CONTENTS OF TSSR REGISTER 
(FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 
(SET UP UNIT NUMBER 

(SUBROUTINE NEEDS PACKET ADDRESS 



OERDF 
712 

SFIERR 
SFIMSG 



WRITE CHARACTERISTICS COMMAND CCALL TO WRTCHR) 



JSR PC. WRTCHR 

BCS 26 > 

INC FATFLG 

MOV RO.Rl 

ERRHRO ERRNO.WRTMSG. SFIMSG 



(ISSUE WRITE CHARACTERISTICS 
(BR. IF COMMAND ISSUED OK 
(BUMP COUNT 

(SAVE CONTENTS OF TSSR 
(WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 



C»ERHRD 
713 



M3 



TSV7 
TEST 



HARDWARE TESTS 1 8 
6: REREADS 
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SEQ 245 



8094 

8095 
8096 
8097 
8098 
8099 
8100 
8101 
8102 
8103 
8104 
8105 
8106 
8107 
8111 



8112 

8113 
8114 
8115 
8116 
8117 
8118 
8119 
8120 
8121 
8122 
8123 
8124 
8125 
8129 



8130 

8131 
8132 
8133 
8134 
8135 
8136 
8137 
8138 
8139 
8140 
8141 
8142 
8143 



066734 
066736 
066 MO 
066740 



066742 
066746 
066752 
066756 
066760 
066762 
066766 
066766 
066770 
066772 
066774 
066776 
066776 



067000 
067004 
067006 
067012 
067014 
067016 
067022 
067022 
067024 
067026 
067030 
067032 
067032 
067034 
067040 



067046 
067054 
067060 
067060 



005046* 
011734' 

104406 



26»: 



CKLOOP 



jLOOP IF SELECTED 



.WORD 
.WORD 

TRAP 



; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



004737 010714' 

016501 000002 

012702 000200 
103407 
010004 

005237 002212' 

104456 

001312 

073364' 

011746* 

104406 



30$: 



JSR 
MOV 
MOV 
BCS 
MOV 
INC 

ERRHRD 



CKLOOP 



PC. REWIND 

TSSRCRS).R1 

•SSR.R2 

30 » 

R0.R4 

FATFLG 

ERRNO . T26RWN . PKTSSR 



(CALL TAPE REWIND COMMAND 
tGET TSSR 

»SET UP EXPECTED TSSR 
tBR. IF NO PROBLEM 
{PACKET ADDRESS SET UP 
iBUMP COUNT 
{REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 



REAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 071730' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 

001313 

073075' 

015374' 

104406 

012703 000400 

013737 003114' 072032* 



40$: 



MOV 
MOV 
BIS 
CHP 
BEQ 
INC 

ERRHRO 



CKLOOP 



T26BFR»6.R1 

R1.R2 

«6IT1.R2 

R1.R2 

40$ 

FATFLG 

ERRNO. T26B0T.EXPREC 



MOV 
MOV 



♦256..R3 
FREE.T26RB 



WRTMSG 
SFIMSG 

CICLPl 



CIERHRD 
714 

T26RWN 
PKTSSR 

CICLPl 



jPICK UP XSTO 

iSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 

tOOES EXP • REC'D 

;BR. IF EQUAL (OK) 

iBUMP COUNT 

{TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 

(RECORD SIZE 

t STARTING WRITE BUFFER ADDRESS 



C$ERHRO 

715 

T26B0T 
EXPREC 

CICLPl 



WRITE DATA.CVC-l.ACK COMMAND 



012737 140005 072030' 
012704 072030' 

010337 072036' 



651: 



MOV «140005.T26PK3 
MOV «T26PK3.R4 

MOV R3.T26SZ 



tWRITE DATA.CVC-l.ACK COMMAND 
tSET UP R4 WITH PACKET ADDRESS 

i SET UP RECORD SIZE IN PACKET 



N3 



TSV7 • HARDWARE TESTS IS 
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SEQ 246 



8144 
8145 
8146 
8147 
8148 
8149 
8150 
8154 



8155 

8156 
8157 
8158 
8159 
8160 
8161 
8162 
8163 
8164 
8165 
8166 
8167 
8168 
8169 
8173 



8174 

8175 
8176 
8177 
8178 
8179 
8180 
8181 
8182 
8183 
8184 
8185 
8186 
8187 
8191 



8192 

8193 
8194 



067064 
067070 
067074 
067100 
067104 
067106 
067110 
067114 
067114 
067116 
067120 
067122 
067124 
067124 
067126 



067126 
067132 
067136 
067142 
067144 
067146 
067152 
067152 
067154 
067156 
067160 
067162 
067162 



067164 
067170 
067172 
067176 
067200 
067202 
067206 
067206 
067210 
067212 
067214 
067216 
067216 
067220 
067224 



010465 000000 

004737 016150' 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 
001314 
005103' 
011746' 

104406 



004737 010714' 

016501 000002 

012702 000200 
103407 
010004 

005237 002212' 

104456 
001315 
073364' 
011746' 

104406 



751: 
1201: 



MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 

ERRHRO 



CKLOQP 



R4.TSDBCR5) 

PC.WAITF 

TSSR(R5).R1 

0SSR.R2 

R1.R2 

75$ 

FATFLG 

ERRNO . UR T ERR » PK T SSR 



I ISSUE COMMAND 
jWAIT FOR SSR TO SET 
I GET TSSR CONTENTS 
I SET UP EXPECTED 
tARE THEY EQUAL 
jBR. IF OK 
J BUMP COUNT 

sTSSR INCORRECT AFTER URITE DATA 

TRAP CIERHRD 
.WORD 716 
.WORD URTERR 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP CICLPI 



! ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

8 



130$: 



JSR 
MOV 
MOV 
BCS 
MOV 
INC 

ERRHRO 



CKLOOP 



PC. REWIND 

TSSRCR5).R1 

«SSR.R2 

130$ 

R0.R4 

FATFLG 

ERRNO . T26RUN , PK TSSR 



tCALL TAPE REMIND COMMAND 
:GET TSSR 

J SET UP EXPECTED TSSR 
I BR. IF NO PROBLEM 
(PACKET ADDRESS SET UP 
sBUMP COUNT 
t REMIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.UORD 

{LOOP IF SELECTED 

TRAP 



;**********•*********«****••**•*************************•********** 

!rEAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
; 



013701 071730' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001316 
073075' 
015374- 

104406 

012703 001000 

013737 003114' 072032' 



135>: 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 



T266FR»6.R1 

R1.R2 

«6IT1.R2 

R1.R2 

1351 

FATFLG 

ERRNO . T26B0T . EXPREC 



MOV 
MOV 



«512..R3 
FREE.T26RB 



PICK UP XSTO 

SET UP EXPECTED 

SET BOT BIT IN EXPECTED 

DOES EXP - REC'D 

BR. IF EQUAL COK) 

BUMP COUNT 

TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
;LOOP IF SELECTED 

TRAP 

i RECORD SIZE 

(STARTING READ BUFFER ADDRESS 



CIERHRD 
717 

T26RWN 
PKTSSR 

CICLPI 



CIERHRD 
718 

T26B0T 
EXPREC 

CSCLPl 



B4 



TSV7 HAROUARE 


TESTS 1 


0 


MACRO Ml 113 01 


•FEB -84 


I7t54 




SEO 


TEST 6: REREADS 












8195 
















8196 
















8197 
















8198 






iREREAD NEXT.ACK.CVC-l.OPP-1 






8199 
















8200 
















8201 
















8202 067252 


012737 


101401 




nov 


wlOl^Ult iCOKI^d 


iHbREAO NEXT • ACK«CVC*1 •OPP'l 




820S 067240 


012704 


072030 


103* S 


nuv 




|5t» KM' R4 MITM PACKET ADDRESS 




8204 067244 


010337 


072036 




MOW 

nuv 




iSET 1^ RECORD SIZE IN PACKET 




8205 067250 


010465 


QOOWQ 




nuv 




. TCCi K pfiiifci^irfi 
llSblx. LC^inWD 




8206 067254 


004737 


OlolM/ 






or uATTr 


iWAli b5R TO SET 




8207 067260 


016501 


0U0002 




MOW 
riUV 


1 99fVl HO / • 1 


lufel TSbH LONIENTb 




8208 067264 


012702 


10U204 




MOV 




|ScT EXrcCiED 




8209 067270 


020102 






CMP 


R1.R2 


|ARE TMEY EQUAt 




8210 067272 


001406 






BEQ 


1701 


$OH, IF OK 




8211 067274 


005237 


OOccl^ 




INC 


TATFLG 






8215 067300 








ERRHRO 


ERRN0.T26TRL.PKTSSR 






067300 


104456 










TBAO 


CtERHRD 


067302 


001317 










• WDHO 


719 


067304 


074442' 












T>#^TOl 


067306 


011746' 










.HORO 


PKTSSR 


8216 067310 






1701: 


CKLOOP 




iLOOP IF SELECTED 




067310 


104406 










TRAP 


C»CLP1 



8217 
8218 
8219 
8220 
8221 
8222 
8223 
8224 
8225 
8226 
8227 
8228 
8229 
8233 



8234 

8235 
8236 
8237 
8238 
8242 



8243 

8244 

8245 



READ MESSAGE BUFFER EXTE»CEO STATUS REGISTER ZERO CXSTO) 



067312 
067316 
067320 
067324 
067326 
067330 
067334 
067334 
067336 
067340 
067342 
067S44 
067344 
067346 
067352 
067356 
067360 
067364 
067364 
067366 
067370 
067372 
067374 
067374 
067376 
067402 



013701 071730' 
010102 

052702 040000 

020102 

001406 

005237 002212' 

104456 

001320 

074272' 

015374' 

104406 

013701 071726* 

012702 000400 
020102 
001405 

104456 

001320 

074354' 

015374' 

104406 

012703 001000 
013737 003114* 072032' 



MOV 

nov 

BIS 

or 

BEQ 

I NC ^ 

errhro 



IBOti CKLOOP 

NOV 
NOV 
CNP 
BEQ 

ERRHRO 



T26BFR*6.R1 

R1.R2 

4BIT14.R2 

Rl.ft2 

ISOt 

FATFLC 

ERRNO. T26L0P .EXPREC 



tGET MESSAGE BUFFER 

iSET UP EXPECTEO 

iSET THE RLS BIT IN EXPECTED 

I ARE THEY EQUAL 

iBR. IF EQUAL (ALL IS WELL) 

iBUNP COUNT 

I THE RLL BIT MAS NOT SET IH XSTO 

TRAP CtERHRD 
.yORO 720 
.WORD T26L0P 
.yORO EXPREC 



r26BFR*4.Ri 
•2S6..R2 
R1.R2 
1901 

ERRNO. T26PBP.EXPREC 



1901: 



CKLOOP 

MOV 
MOV 



•512. .R3 
FREE , T26RB 



TRAP 

I PICK UP RESIDUAL BYTE COUNTER 
I THIS SHOULD BE THE DIFFERENCE 
lis THE DIFFERENCE CORRECT 
iBR. IF CORRECT 
iRBPCR NOT CORRECT 

TRAP 
.UORO 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 

(RECORD SIZE 

•STARTING READ BUFFER ADDRESS 



C»CLPl 



CtERHRD 

720 

T26PBP 
EXPREC 

CtCLPl 



TSVi' 
TEST 



C4 



HACRO H1115 01-FEB -84 17tS4 



SEQ 248 



8^46 
8247 
8248 
8249 
8250 
8251 
8252 
8253 
8254 
8255 
8256 
8257 
8258 
8259 
8260 
8261 
8262 
8266 



8267 

8268 
8269 
8270 
8271 
8272 
8273 
8274 
8275 
8276 
8277 
8278 
8279 
8280 
8264 



8285 

8286 
8287 
8288 
8289 
8293 



8294 
8295 



067410 
067416 
067422 
067426 
0674 32 
0674S6 
067442 
067446 
067450 
067452 
067456 
067456 
067460 
067462 
067464 
067466 
067466 



067470 
067474 
067476 
067502 
067504 
067506 
067512 
067512 
067514 
067516 
067520 
067522 
067522 
067524 
067530 
067534 
067536 
067542 
067542 
067544 
067546 
067550 
067552 
067552 
067SS4 
067554 



REREAD NEXT.ACK.CVC«1.0PP>0 



VXC ' O ' 




nuv 






VAC » 


072030- 


MOW 


w 1 Kw^«^ ^ f 


191:1 \jr M# Mi in K^t^tl ADUHcSS 


010SS7 




MOW 






010465 


000000 


nov 


M.TSMCR5) 




004737 


016150' 


JSR 


PC.wAiir 


lUAIT FOR SSR TO SET 


016501 


000002 


HOV 


TSSRCR«,;.ol 
•SSR!SC!BIT2.R2 


iGET TSSR CONTENTS 


012702 


100204 


MOV 


iSET UP EXPECTED 


020102 




CMP 


R1.R2 


lARE THEY EQUAL 


001406 




BEQ 


2701 


»BR, IF OK 


005237 


002212' 


INC 


FATFLG 


iBUMP COUNT 


104456 




ERRHRO 


ERRNO. T26TRt .PKTSSR 


iTSSR INCORRECT AFTER READ DATA 








TRAP 


001321 








.WORD 


074442' 








.WORD 


011746' 


2701s 






.WORD 




CKLOOP 




iLOOP IF SELECTED 


104406 








TRAP 



013701 
010102 
052702 
020102 
001406 
005237 

104456 

001322 

074272' 

015374' 

104406 

013701 
012702 
020102 
001405 

104456 
001322 
074354' 
015374* 

104406 



CSERHRO 

721 

T26TRL 
PKTSSR 

CICLPI 



iREAO MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



071730' 
040000 

002212' 



071726' 
000400 



MOV 
NOV 
BIS 
CMP 
BEQ 
INC^ 



2B0«: CKLOOP 

MOV 
MOV 
CMP 

B EQ 

ERPHRO 



T26BFR*6.R1 

Rl.Rc 

«BIT14.R2 

R1.R2 

280t 

FATFLG 

ERRNO. T26L0P .EXPREC 



tGET MESSAGE BUFFER 

I SET UP EXPECTED 

I SET THE RLS BIT IN EXPECTED 

lARE THEt equal 

iBR. IF EQUAL (ALL IS WELL) 

iBUMP COUNT 

I THE RLL BIT WAS NOT SET IN XSTO 

TRAP C*ER»«D 
.WORD 722 
.WORD T26L0P 
.WORD EXPREC 



T268FR.4.RI 
«256..R2 
R1.R2 
2901 

ERRNO. r26P8P.EXPREC 



290<: 



CKLOOP 
ENDSOB 



TRAP 

iPICK UP RESIDUAL BtTE COUNTER 
I THIS SHOULD BE THE DIFFERENCE 
lis THE DIFFERENCE CORRECT 
iBR. IF CORRECT 
iRBPCR NOT CORRECT 

TRAP 
.UORO 
.WORD 
.liOW 

iLOOP IF SELECTED 

TRAP 
END SUBTEST 
L 101 16: 



;>>>>>>>>>>>> 



C$CLPl 



CSERHRO 

722 

T26PBP 
EXPREC 

CtCLPl 



D4 



MACRO Ml lis 01 FEB 54 17:54 



SEQ 249 



8296 
8297 

8298 
8299 
8300 
8301 
8302 
8303 
8304 
8305 
8306 
8307 
8308 
8309 
8310 
8311 
8312 



8313 
8314 
8315 
8316 
8317 
8318 
8319 
8320 
8321 
8322 
8323 
8324 
8325 
8326 
8327 
8328 
8329 
8333 
^334 



8335 
8336 
8337 
8338 
8339 
8340 
8341 
8342 
8343 
8344 
8345 
8346 
8347 
8351 



067554 
067556 
067564 

067566 
067572 



067572 
(k 7572 
067572 
067574 
067600 
067602 
067606 
067612 
067616 
067622 



067626 
067632 
067654 
067640 
067642 
067642 
067644 
067646 
067650 
067652 



104403 

023727 002212- 000017 
103402 

004737 017104' 



9991: 



CMP 
BLO 
JSR 



FATFLG,»15. 
9991 

PC.CKOAOP 



TRAP 

lis ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
iTRv TO DROP THE UNIT 



C«ESUB 



TEST 6. SUBTEST IS 

VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING 
NONEXISTENT MEMORY CAUSES RECOVERABLE ERROR 
TERMINATION CTC-4 OR 5) UITH NXM-1 AND THAT THE TAPE 
IS ULTIMATELY POSITIONED PROPERLY. ALL COMBINATIONS 
OF REREAD PREVIOUS/NEXT AND OPP-0/1 ARE TESTED. 



104402 
005737 
001002 
000137 
004 7S7 
005037 
004737 
004757 



005126* 

070604* 
074620* 
072056* 
074712' 
074754' 



10<: 



BGNSUB 



TST 
BNE 
JMP 
JSR 
CLR 
JSR 
JSR 



NXMFLG 
101 
200 < 

PC.T26REST 
T26CNT 
PC.T26RT2 
PC.T26RT5 



!*>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T6.13: 

TRAP C»BSUB 

iDO UE HAVE IT? 

iBR. IF ENOUGH 

I SKIP THIS TEST IF NOT 

tSET COMTMND PACKET 

I CLEAR TAPE RECORD COUNTER 

tSET UP OTHER C0»tMNO PACKET 

I SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER **SOFT- INITIALIZE - CARRY BIT CLEAR IF ERROR 



004757 015674* 
105407 

005257 002212* 
010001 

1044S5 

001525 

005642' 

011754' 

015757 002172' 071720' 



20»: 



067660 012704 071700' 



JSR PC.SOFINIT 

BCS 20» 

INC FATFLG 

MOV RO.Rl 

ERRDF ERRNQ.SFIERR.SFIMSG 



MOV UNITN.T26DSU 
MOV »T26PACKET.R4 



tOO INITIALIZE ON CONTROLLER 
iBR IF INIT UAS OK 
I BUMP COUNT 

{CONTENTS or TSSR fSGISTER 
iFATAL ERROR TSSR HAS NOT OK 

TRAP 
.UORD 
.WORD 
.WORD 
I SET UP UNIT NUMBER 

I SUBROUTINE NEEDS PACKET ADDRESS 



CtEROF 
725 

SFIERR 
SFIMSG 



URITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



067664 004737 010562' 

067670 103407 

067672 005237 002212' 

067676 010001 



JSR 
BCS 
INC 
MOV 



PC. URTCHR 
261 

FATFLG 
RO.Rl 



i ISSUE URITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 



E4 



TSV7 HARDWARE TESTS 1-6 
TEST 6: REREADS 



MACRO Mills 01 -FEB 64 17:54 



SEQ 250 



8S52 



6353 

0354 
8355 
6356 
8357 
8356 
8359 
8360 
8361 
8362 
6363 
8364 
8365 
6366 
6370 



8371 

6372 
6373 
6374 
6375 
8376 
8377 
8376 
8379 
8360 
8381 
6382 
6363 
6364 
6386 



8389 

8390 
6391 
6392 
8393 
6394 
8395 
8396 
6397 
8396 
8399 



067700 
067700 
067702 
067704 
067706 
067710 
067710 



067712 
067716 
067722 
067724 
067730 
067732 
067736 
067736 
067740 
067742 
067744 
067746 
067746 



067750 
067754 
067756 
067762 
067764 
067766 
067772 
067772 
067774 
067776 
070000 
070002 
070002 
070004 



104456 
001324 
005046* 
011754' 

104406 



26t: 



ERRHRO ERRNQ.URTMSG.SFXMSG 



CKLOOP 



lURITE CHARACTERISTISC FAILED 

TRAP CIERHRD 
.UORO 724 
.WORD URTMSG 
.WORD SFIHSG 

iLOOP IF SELECTED 

TRAP 



CICLPl 



ISSUE REWIND COHHANO TO SELECTED TAPE DRIVE 



004737 021024* 

004737 010714* 
103411 

016501 000002 
010004 

00523? 002212* 

104456 

001325 

073364* 

011746' 

104406 



30t: 



JSR 
JSR 
BCS 
MOV 
MOV 
INC 

ERRHRO 



CKLOOP 



PC. INVERT 
PC. REWIND 
301 

TSSR(R5).R1 

R0.R4 

FATFLG 

ERRNO . T26RWN . PK TSSR 



•INVERT THE EXTENDED FEATURES SWITCH 
I CALL TAPE REWIND COttMND 
iBR. IF NO PROBLEM 
iGET TSSR 

{PACKET ADDRESS SET UP 
I BUMP COUNT 
i REWIND NOT ACCEPTED 

TRAP 
. WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 



C«ER»«ID 

725 

T2tRWN 
PKTSSR 



CICLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 071750* 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001326 
075075' 
015574' 

104406 

015737 005114' 072052' 



40$: 



MOV T266FR*6.R1 

MOV R1.R2 

BIS 46IT1.R2 

CMP R1.R2 

BEQ 40« 

INC FATFLG 

ERRMW) ERRNO. T26B0T.EXPREC 



CKLOOP 

MOV FREE.T26RB 



iPICK UP XSTO 

I SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

tOOES EXP • REC'D 

iBR. IF EQUAL (OK) 

I BUMP COUNT 

(TAPE UOJ AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

J LOOP IF SELECTED 

TRAP 

{STARTING WRITE BUFFER ADDRESS 



CtERHRD 

726 

T26B0T 
EXPREC 

CiCLPl 



WRITE DATA. CVC* LACK COMMAND 



070012 
070020 



012757 140005 072050' 
012704 072050' 



MOV *140005.T26PK3 
MOV «T26PK5.R4 



I WRITE OATA.CVC-l.ACK COMMAND 
iSET UP R4 WITH PACKET ADDRESS 



F4 



TSV7 HARDWARE TESTS 
TEST 6: REREADS 



8400 
6401 
8402 
6403 
8404 
8405 
8406 
6407 
8408 
8409 
8413 



8414 

8415 
8416 
8417 
8418 
8419 
8420 
8421 
8422 
8423 
8424 
8425 
8426 
8427 
8428 
8429 
8430 
8431 
8432 
8433 
8437 



8438 

8439 
8440 
8441 
8442 
8443 
8444 
8445 
8446 
8447 
8448 
8449 
8450 
8451 
8455 



070024 
070032 
070040 
070046 
070052 
070056 
070062 
070066 
070070 
070072 
070076 
070076 
070100 
070102 
070104 
070106 
070106 
070110 
070116 
070120 
070122 
070122 
070126 
070126 



070132 
070136 
070140 
070144 
070146 
070152 
070152 
070154 
070156 
070160 
070162 
070162 



070164 
070170 
070172 
070176 
070200 
070202 
070206 



a 
O 


MAr*DA Ml 1 1 V 


Al ceo AJi 


17 :b4 








HUV 




iSET UP RECORD SIZE IN PACKET 






MAU 

nuv 




iMOVE TAPE RECORD NUMBER TO BUFFER 


KJKAAAJL 




Ann 




1 NUMBER READY FQR NEXT RECORD 






MAU 

nuv 




1 ISSl^ COMMAND 






ICO 


• WAX 1 r 


iWAIT FOR SSR TO SET 






MAU 

nuv 




T TCf B /*BAJTr&iTC 

iGET TS5R CONTENTS 






MAU 

nuv 




iSET UP EXPECTED 






CMP 




lARF THFY FQIJAI 






BEQ 


751 


iBR. If OK 


002212' 




INC 


FATFLG 


iBUMP COUNT 






ERRHRO 


ERRNO . URTERR . PKTSSR 


iTSSR INCORRECT AFTER WRITE DATA 



SEO 251 



020102 
001406 



104456 
001327 
005103' 
011746' 

104406 

022737 000013 072056' 

001401 

000741 

005037 003132' 
005037 072056* 



75$: 

1201: 
1251; 



CKLOQP 

CHP 
BEQ 
BR 

CLR 

CLR 



•11..T26CNT 

120t 

65 1 

NXMHI 

T26CNT 



TRAP CtERHRD 
.WORD 727 
.UORO URTERR 
.UORO PKTSSR 

I LOOP IF SELECTED 

TRAP OCLPl 
i CHECK NUMBER OF RECORDS WRITTEN 
i BR. IF AT END OF WRITE SEQUENCE 
iWRITE MORE RECORDS 

iSET TO 16 BIT ADDRESS 

tSET RECORD COUNTER BACK TO ZERO 



ISSUE REWIND COMHAND TO SELECTED TAPE DRIVE 



004737 010714' 
103411 

016501 000002 
010004 

005237 002212' 

104456 

001330 

073364' 

011746' 

104406 



JSR 
BCS 
NOV 
NOV 

errhrd 



130t : CKLOOP 



PC. REWIND 
1301 

TSSR(RS).R1 

R0.R4 

FATFLG 

ERRNO. T26RUN.PKTSSR 



tCALL TAPE REWIND COMHAND 
}BR. IF NO PROBLEN 

iGET TSSR 

{PACKET ADDRESS SET UP 

I BUMP COUNT 

i REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 



C»ERHRO 
728 

T26RUN 
PKTSSR 

CICLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 071730' 
010102 

052702 000002 

020102 

001406 

005237 002212' 



MOV r26BFR*6.Rl 

NOV R1.R2 

BIS *BIT1.R2 

CMP R1.R2 

BEQ 140t 

INC FATFLG 

ERRHRD ERRNO . T26B0T . EXPREC 



I PICK UP XSTO 

t SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

iBR. IF EQUAL (OK) 

I BUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 



G4 



TSV7 HAROUARE TESTS 18 
TEST 6: REREADS 



MACRO M1115 Ol-FEB-64 17:54 



SEQ 252 



6456 

8457 
0456 
6459 
6460 
8461 
8462 
646S 
6464 
6465 
8466 
6467 
8468 
8469 
8470 
8471 
8472 
8473 
8474 
8475 
8476 
8477 
6478 
8479 
8460 
8461 
8462 
8463 
6484 
8486 



8489 

8490 
8491 
8492 
6493 
8494 
8495 
6496 
8497 
8496 
8499 
6500 
6501 
6502 
8503 
8504 
8505 



070206 
070210 
070212 
070214 
070216 
070216 
070220 
070224 
070232 



070240 
070244 
070250 
070256 
070262 
070266 
070272 
070276 
070300 
070302 
070306 
070310 
070314 
070316 
070316 
070322 
070330 
070332 
070336 
070336 
070340 
070342 
070344 
070346 
070346 



070350 
070356 
070364 
070370 
070376 
070402 
070406 
070412 
070416 



104456 
001331 
073075- 
015374' 

1401: 

104406 

012703 072046' 

013737 003130' 072032' I50t: 

013737 003132' 072034' 



CKLOOP 

MOV «T26RN.R3 

MOV NXnL0.T26RB 

nOV NXHHI.T26RB»2 



TRAP 

.UORO 

.UORO 

I LOOP IK SELECTED 

TRAP 

iCOmANO BUFFER ADDRESS 

I STARTING READ BUFFER ADDRESS 

I SET UP HIGH ORDER ADDRESS BITS 



CIERHRD 
729 
T26B0T 
EXPREC 

C$CLP1 



I REREAD DATA«IE.ACK. DPP COMMAND 



011337 072030' 

012704 072030' 

012737 000400 072036' 

010465 000000 

004737 016150' 

016501 000002 

012702 104210 
020102 
001422 

031327 001000 
001403 

030127 000002 
001014 

005237 003132' 

023727 003132' 000004 
001276 

005237 002212' 

104456 

001332 

072305' 

011746' 

104406 



16St: 



1601 1 



MOV 


(RS).T26PK3 


iREREAO DATA.IE.ACK. OPP COMMAND 


MOV 


#T26PK3.R4 


tSET UP R4 WITH PACKET ADDRESS 


MOV 


*256..T26SZ 


iSET UP RECORD SIZE IN PACKET 


MOV 


R4.TSDB(R5) 


1 ISSUE COrtlAND 


JSR 


PC.MAITF 


lUAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 


MOV 


«SSR!NXM!SC!BITS.R2 


iSET UP EXPECTED 


CMP 


R1.R2 


lARE THEY EQUAL 


SEQ 


170» 


iBR. IF OK 


BIT 


(R3).«BIT9 


> CHECK FOR A READ COMMAND 


BEQ 


168$ 


iBR. IF IT UAS A READ COMMAND 


BIT 


R1.46IT1 


>UAS BITl SET 


BNE 


1701 


iBR. IF REREAD AND BITl SET 


INC 


NXMHI 


tBUMP TO NEXT ADDRESS RANGE 


CMP 


NXMHI.M 


{CHECK FOR OVERFLOW 


BNE 


125t 


tBR. IF hORE BITS TO GO 


INC 


FATFLG 


iBUMP COUNT 


ERRHRD 


ERRNO . T26RRF , PKTSSR 


iTSSR INCORRECT AFTER REREAD DATA 



1701: CKLOOP 



iLOOP IF SELECTED 



TRAP 
.UORO 
.WORD 
.WORD 

TRAP 



CIERHRO 
730 

T26RRF 
PKTSSR 

CJCLPl 



REM) DATA. ACK.CVC*! COMMAND 



012737 140001 072030' 

012737 000400 072036' 

005037 072034' 

013737 003114' 072032' 

010465 000000 

004 737 016150' 

016501 000002 

012702 000200 
020102 



NOV #140001. T26PKS 

MOV #256..726SZ 

CLR T26RB*2 

MOV FREE.T26RB 

MOV R4.TS0B(R5) 

JSR PC.WAITF 

MOV TSSR(R5).R1 

MOV «SSR.R2 

CMP R1,R2 



tREAD DATA. ACK.CVC- 1 COMMAND 

I SET SIZE INTO PACKET 

i CLEAR OUT HIGH ADDRESS BITS 

iGIVE READ A GOOD BUFFER 

> ISSUE READ DATA COMMAND 

I WAIT FOR SSR 

iPICK UP THE TSSR 

» SET UP EXPECTED 

tIS THE TSSR OK 



TSV7 
TEST 



HA 



HARDWARE TESTS 1 6 
6: REREADS 



MACRO Ml 115 01 -FEB -84 17:54 



SEQ 253 



ODvD V tsj^c.^} 


AA1 Af\^ 






OCA 


XoOl 


|BR» IF TSSR OK (GOOD) 




O^V f SJ r V^cc 


OA^OX7 


Wcc Xc 




TMr 

XnlU 


raTPi n 

r n i r Uu 


iBUnP LUUNT 














PQQMA DAPDQ DirTCCD 


■ DC Af\ AATA ^AMMA^lA CATl CA 






XO^^DO 










TRAP 


CfERHRD 




AA1 TTX 










.UOhD 


731 


U r 


AA^I 










.WORD 


RDER" 


A7AA 


All 7A&f 










• UORD 


PKTSSR 


A^l 3 A7AAViL. 






1 AAt • 


^1^1 AAD 




.1 HAD TC CCl C^TCA 






XV^^vD 










TOAD 


CICLPl 


A^IX A7AAAA 


Al 77A1 
UX r r V/X 


1 1 OA^A 
XXc^OU 




MAU 




• PTDCT UAOA PDfM DC&A Oi iCCCO 




A 1 O 7 AO 
VXc rV/c 


AAAAA1 




nvv 


wX • 








AOA1 AO 








rtX • 


• TC TADP DACTTTAU PADDCr'T 
1 X9 I Wc KU^X 1 XUN LUHHcL 1 






AA1 AA^ 








1 OAi 


• k/PCD nATkH" DACTTT^^ AV 




A^i7 f^7(^A^^ 


AA^3X7 


AA99 1 O ' 






raTn 

r n i r 


,Q|*iD PAl MT 




OOc X U f V^OU 








CQDMDA 
CNHrlNI/ 


PDDkiA TOj^Liun pyDDPr* 


> TADC DACTTTA^ Tfttf^AOOkT^T 






f f\AA^^ 
XU^^DO 










TOAD 






AA1 TXA 










LJAOA 

,UUND 


732 




A70A^A ' 










ljAOA 

• WORD 


T2oWNG 


A 7 Ad A A 












LJAOA 


caPRcu 


R^OO A7AA7A 






190$: 


CKLOOP 








070470 


104406 










TQAP 




8523 














8524 
















8525 
















8526 






t ISSUE REWIND CONHAND TO SELECTED TAPE 


DRIVE 




8527 
















8528 

















8529 
8530 
8531 
8532 
8533 
8534 
8538 



8539 

8540 
8541 
8542 
8543 
8544 
8545 
8546 
8547 
8548 
8549 
8550 
8551 
8552 
8556 



070472 
070476 
070500 
070504 
070506 
070512 
070512 
070514 
070516 
070520 
070522 
070522 



004737 010714' 
103411 

016501 000002 
010004 

005237 002212' 

104456 
001335 
075364* 
011746' 

104406 



194$: 



JSR 
BCS 

nov 
nov 

INC 

ERRHRO 



CKLOOP 



PC.REUINO 
194$ 

TSSR(RS).R1 
R0,R4 

FATFLC 

ERRNO. T26RUN. PKTSSR 



tCALL TAPE REUIW) COMMAND 
tBR. V NO PROBLEM 
I GET TSSR 

t PACKET ADDRESS SET UP 

I BUMP COUNT 

tREUIND NOT ACCEPTED 

TRAP 
.UORD 
.UORD 
.UORD 

I LOOP IF SELECTED 

TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



070524 
070550 
070552 
070556 
070540 
070542 
070546 
070546 
070550 
070SS2 



015701 071750' 
010102 

052702 000002 

020102 

001406 

005257 002212' 

104456 
001556 
075075' 



MOV T266FR*6.R1 

MOV R1.R2 

BIS «BIT1.R2 

CMP R1,R2 

BEQ 196$ 

INC FATFLG 

ERRHRO ERRNO . T26eOT . EXPREC 



I PICK UP XSTO 

t SET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

tDOES EXP - REC'D 

iBR. IF EQUAL COK) 

iBUMP COUNT 

{TAPE NOT AT BOT AFTER REUINO 

TRAP 
.UORD 
.UORD 



C$ERHRD 
755 

T26RUN 
PKTSSR 

C$CLPl 



r»ERHRD 
734 

T26B0T 



14 



1SV7 
TEST 



HARDWARE TESTS 1-d 
6: REREADS 



8557 

8558 
8559 
8560 
8561 
6562 
8563 
8564 
8565 
8566 
8567 
8568 
8569 
8570 
8571 
8572 
8573 
8574 



8575 
8576 
8577 
8578 
8579 
8580 
8581 
8582 
8583 
8584 
8585 
8586 
8587 
8588 
8589 
8590 
8591 
8592 
8593 



8594 

8595 
8596 
8597 
8598 
8599 
8600 
8601 
8602 
8603 
8604 
8605 
8606 
8607 



070554 
070556 
070556 
070560 



070562 
070566 
070572 
070574 
070576 
070602 
070604 
070604 
070604 
070604 
070606 
070614 
070616 
070622 



070622 
070622 
070622 
070624 
070626 
070632 
0706S6 



070642 
070646 
070650 



015374- 

104406 

010302 



MACRO Ml 113 01 -FEB -84 17:54 

196$: CKLOOP 

MOV R3.R2 



SEQ 254 



.WORD 

I LOOP IF SELECTED 

TRAP 

I SAVE R3 FOR A MOMENT 



EXPREC 
CKLPl 



ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT IS SETS DIRECTION - 0-FORUARO 1 -REVERSE 



012703 000001 
004737 010366' 
010203 
005723 

021327 177777 
001210 



104403 

023727 002212* 000017 
103402 

004737 017104' 



200t: 



999$: 



MOV 
JSR 
MOV 
TST 
CMP 
BNE 

ENDSUB 



CMP 
6L0 
JSR 



«1.R3 
PC, SPACE 
R2.R3 
(R3)» 

(R3). ♦177777 
1501 



FATFLG,#15. 
999$ 

PC.CKOROP 



I SPACE ONE RECORD 

tCALL SPACE ROUTINE 

t RESTORE R3 
I "JUMP COUNTER 

»ENO OF COMMAND BUFFER YET 
(MORE COMMANDS KEEP GOING 

j>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10117: 

TRAP C$ESU6 
lis ERROR COUNT AT 25 
:6R. IF LESS THAN 25 
;TRY TO DROP THE UNIT 



TEST 6. SUBTEST 14 

VERIFIES THAT REREAD PREVIOUS WITH OPP-0 (SPACE 
REVERSE. READ FORWARD) AND REREAD PREVIOUS WITH OPP-1 
(READ REVERSE. SPACE FORWARD) ISSUED WHEN THE TAPE 
POSITIONED AT BOT CAUSE FUNCTION REJECT TERMINATION 
WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET. 



104402 

005003 

004737 074620* 
004737 074712' 
004737 074754' 



BGNSUB 



CLR 
JSR 
JSR 
JSR 



R3 

PC.T26REST 

PC.T26RT2 

PC.r26RTS 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T6.14: 

TRAP C$BSUB 

J CLEAR TEST COUNTER 

J SET COMMAND PACKET 

; SET UP OTHER COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE CARRY BIT CLEAR IF ERROR 



004737 015674' 
103407 

005237 002212' 



JSR PC.SOFINIT 
BCS 20$ 
INC FATFLG 



iOO INITIALIZE ON CONTROLLER 
tBR IF INIT WAS OK 
I BUMP COUNT 



J4 



TSW7 HAROUARE TESTS 1 6 
TEST 6: REREADS 



MACRO MLllS 01 -FEB -84 17:54 



SEQ 255 



8611 
8612 



8615 
8614 
8615 
8616 
8617 
8618 
8619 
8620 
8621 
8622 
8625 
8624 
8625 
8629 
8630 



8631 

8632 
8633 
8634 
8635 
8636 
8637 
8638 
8639 
8640 
8641 
8642 
8643 
8644 
8648 



8649 

8650 
8651 
8652 
8653 
8654 
8655 
8656 
8657 
8658 
8659 



070654 
070656 
070656 
070660 
C70662 
070664 
C70666 



010001 

104455 

001357 

003642' 

011734' 

013737 



070674 012704 



002172* 
07l70r' 



071720' 20t: 



nOV RO.Rl 

ERROF cRRNO . S^IERR . SF IMSG 



MOV UNITN.T260SU 
MOV •T26PACKET.R4 



I CONTENTS OF TSSR REGISTER 

iFATAL ERROR TSSR MAS NOT OK 

TRAP CIERDF 
•WORD 755 
.WORD SFIERR 
.UORO SFinSG 

I SET UP UNIT NUMBER 

•SUBROUTINE NEEDS PACKET ADDRESS 



070700 
070704 
070706 
070712 
070714 
070714 
070716 
070720 
070722 
070724 
070724 



070726 
070732 
070736 
070742 
070744 
070746 
070752 
070752 
070754 
070756 
070760 
070762 
070762 



070764 
070770 
070772 



URITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



004757 010562' 
105407 

005257 002212' 
010001 

104456 
001340 
005046' 
011734' 

104406 



25«: 



JSR 
BCS 
INC 
MOV 

errhrd 



CKLOOP 



PC. URTCHR 
25 1 

FATFLG 
RO.Rl 

ERRNO . URTMSG . SF IMSG 



I ISSUE URITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
I BUMP COUNT 

(SAVE CONTENTS OF TSSR 
lURITE CHARACTERISTISC FAILED 

TRAP 
.UORD 
.UORD 
.UORD 

tLOOP IF SELECTED 

TRAP 



ISSUE REUIND COMMAND TO SELECTED TAPE DRIVE 



004737 010714' 

016501 000002 

012702 000200 
103407 
010004 

005237 002212' 

104456 
001341 
073364' 
011746' 

104406 



261: 



30>! 



JSR 
MOV 

nov 

BCS 

nov 

INC 

ERRHRD 



CKLOOP 



PC. REUIND 

TSSR(RS}.R1 

♦SSR.R2 

301 

R0.R4 

FATFLG 

ERRNO . T26RUN . PK TSSR 



I CALL TAPE REUIND COMMAND 

(GET TSSR 

J SET UP EXPECTED TSSR 
iBR. IF NO PROBLEM 
iPACKET ADDRESS SET UP 
tBUMP COUNT 
I REUIND NOT ACCEPTED 

TRAP 
.UORD 
.UORD 
.UORD 

(LOOP IF SELECTED 

TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 071730' 
010102 

052702 000002 



MOV 
MOV 
BIS 



T26BFR»6.R1 

R1.R2 

«BIT1.R2 



I PICK UP XSTO 

iSET UP EXPECTED 

I SET BOT BIT IN EXPECTED 



CtERHRO 
736 

URTMSG 
SFIMSG 

C9CLP1 



C«ER^«D 

737 

T26RUN 
PKTSSR 

CICLPl 



1<4 

TSV7 HARDWARE TESTS 1-8 MACRO M1113 01 -FEB 64 17:54 

TEST 6: REREADS 



8660 


070776 


020102 






CMP 


R1.R2 


lOOES EXP - REC'D 




8661 


071000 


001406 






BEQ 


40$ 


iBR. IF EQUAL COK) 




6662 


071002 


005237 


002212' 




INC 


FATFLG 


iBUMP COUNT 




6666 


071006 








ERRHRD 


ERRNO. T26B0T .EXPREC 


iTAPE NOT AT BOT AFTER REWIND 






071006 


104456 










TRAP 


C lERHRD 




071010 


001342 










.WORD 


738 




071012 


073075' 










.WORD 


TZ6B0T 




071014 


015374' 










WORD 


EXPREC 


8667 


071016 








40« : CKLOOP 




iLDOP IF SELECTED 






071016 


104406 










TRAP 


C»CLPl 


8668 


071020 


012737 


000400 


072036' 


nov 


*256. ,T26SZ 


iSET UP RECORD SIZE IN PACKET 




8669 


071026 


013737 


003114* 


072032' 


MOV 


FREE.T26RB 


(ADDRESS OF READ BUFFER 




6670 


071034 


005703 






TST 


R3 


t CHECK NUMBER OF TIMES THROUGH HERE 


8671 


071036 


001404 






BEQ 


501 


iBR. IF FIRST TIME THROUGH HERE 




6672 


















8673 


















8674 


















8675 










iREREAO.CVC-l.ACK COMMAND 






6676 


















8677 


















8678 


















8679 


071040 


012737 


161001 


072030' 


MOV 


#161001. T26PK3 


t REREAD. CVC-1. ACK COMMAND 




8680 


071046 


000403 






BR 


SSI 


tSKlP NEXT COMMAND 




8681 
















8682 


















8663 


















6664 










1 REREAD. ACK COMrvWD 






8685 


















8686 


















6667 


















8668 


071050 


012737 


141001 


072030* 


50t: nov 


♦141001. T26PK3 


{REREAD. ACK COMMAND 




8689 


071056 








55t: 




8690 


071056 


012704 


072030' 




MOV 


•T26PK5.IM 


tSET UP R4 WITH PACKET ADDRESS 




6691 


071062 








65t: 






8692 


071062 


01046S 


000000 




MOV 


R4.TSDB(R5) 


: ISSUE COMMAND 




8693 


071066 


004737 


016150' 




JSR 


PC.UAITF 


tUAIT FOR SSR TO SET 




8694 


071072 


016501 


000002 




MOV 


TSSR(R5).R1 


;GET TSSR CONTENTS 




8695 


071076 


012702 


100206 




MOV 


♦SSR!SC!BIT1!BIT2.R2 


: SET UP EXPECTED 




8696 


071102 


020102 






CMP 


R1.R2 


lARE THEY EQUAL 




8697 


071104 


001406 






BEQ 


751 


iBR. IF OK 




8696 


071106 


005237 


002212' 




INC 


FATFUG 


J BUMP COUNT 




6702 


071112 








ERRHRD 


ERRNO. T26UDE.PKTSSR 


tTSSR INCORRECT AFTER READ DATA 






071112 


104456 










TRAP 


CtERHRD 




071114 


001343 










.WORD 


739 




071116 


073023' 










.WORD 


T26W0E 




071120 


011746' 










WORD 


PKTSSR 


6703 


071122 








751: CKLOOP 




8 LOOP IF SELECTED 






071122 


104406 










TRAP 


C»CLPl 


8704 


















8705 


















8706 


















8707 










iREAO MESSAGE BUFFER EXTENDED STATUS 


REGISTER ZERO (XSTO) 




6706 


















6709 


















6710 


















8711 


071124 


013701 


071730' 




MOV 


T266FR*6.R1 


tGET XSTO STATUS WORD 




8712 


071130 


010102 






MOV 


R1.R2 


iSET UP EXPECTED 





L4 



TSV7 
TEST 



HARDWARE TESTS 1-6 
6: REREADS 



HACRO M1115 Ol-FEB-64 17:54 



SEQ 257 



8713 
8714 
8715 
8716 
8720 



8721 

8722 
8723 
8724 



8725 
8726 
8727 
8728 
8729 
8730 
8731 
8732 
8733 
8734 
8735 
8736 
8737 
8738 
8739 
8740 
8741 
8742 
8743 
8744 



8745 
8746 
8747 
8748 
8749 
8750 
8751 
8752 
8753 
8754 
8755 
8756 
8757 
8758 
8762 
8763 



071132 
071136 
071140 
071142 
071146 
071146 
071150 
071152 
071154 
071156 
071156 
071160 
071162 
071164 
071164 
071164 
071166 
071174 
071176 
071202 



071202 
071202 
071202 
071204 
071210 
071214 
071220 



071224 
071230 
071232 
071236 
071240 
071240 
071242 
071244 



052702 002000 

020102 

001406 

005237 002212' 

104456 
001344 
072154' 
015374' 

104406 
005103 
001261 



104403 

023727 002212' 000017 
103402 

004737 017104* 



17011 



BIS 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 

COM 
BNE 

ENOSUB 



CMP 
BLO 
JSR 



«6IT10.R2 
RI.R2 
170» 
FATFLG 

ERRNO. T26NEF . EXPREC 



R3 
26$ 



FATFLG. 015. 
999( 

PC.CKDROP 



I SET THE NEF BIT 

I ARE THEY EQUAL 

I BR. IF EQUAL (GOOD) 

iBUMP COUNT 

iNEF ShJULO BE SET 

TRAP CtERHRO 
.WORD 740 
.WORD T26NEF 
.WORD EXPREC 

TRAP CtCLPl 

iRESET THE SWITCH 

I BR. IF FIRST TIME THROUGH HERE 



999$ ! 
J ♦ 

I TEST 6. SUBTEST 15 

IvERIFIES THAT REREAD PREVIOUS WITH OPP-1 (SPACE 

(REVERSE. READ FORWARD) AND REREAD PREVIOUS WITH OPP-1 

tCREAD REVERSE. SPACE FORWARD) ISSUED WHEN THE TAPE 

{POSITIONED JUST BEFORE THE FIRST RECORD ON TAPE (BUT 

tNOT AT BOX) CAUSES TAPE STATUS ALERT TERMINATION WITH 

tTHE REVERSE INTO BOT (RIB) STATUS BIT SET. 

i 

I 

t 



L10120: 

TRAP 

»IS ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



CtESUB 



104402 

005037 072060' 

004737 074620' 

004737 074712' 

004737 074754' 



BGNSUB 



CLR 
JSR 
JSR 
JSR 



T26CNU 
PC.T26REST 
PC.T26RT2 
PC,T26RT3 



;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T6.15: 

TRAP CtBSUB 

(CLEAR OUT COUNTER 

(SET COMMAND PACKET 

(SET UP OTHER COMMAND PACKET 

(SET UP OTHER COMMAND PACKET 



ISSUE COrjTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 015674' 
103407 

005237 002212' 
010001 

104455 
001345 
003642' 



JSR PC.SOFINIT 

BCS 20 » 

INC FATFLG 

MOV RO.Rl 

ERRDF ERRNO. SFIERR.SFIMSG 



(DO INITIALIZE ON CONTROLLER 
(BR IF INIT WAS OK 
(BUMP COUNT 

(CONTENTS OF TSSR REGISTER 
(FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 



C»EROF 
741 

SFIERR 



M4 



TSV7 
TEST 



HARDWARE TESTS 1 8 
6: REREADS 



MACRO nillS 01-FEB 64 17:54 



SEQ 258 



8764 
8765 
8766 
8767 
8768 
8769 
8770 
8771 
8772 
8773 
8774 
8775 
8776 
8780 
8781 



8782 

8783 
8784 
8785 
8786 
8787 
8788 
8789 
8790 
8791 
8792 
8793 
8794 
8795 
8799 



8800 

8801 
8802 
8803 
6804 
8805 
8806 
6007 
8808 
6609 
6610 
6811 
8612 
6613 
6817 



071246 011754' 

071250 015737 002172' 071720 
071256 012704 071700' 



20* : MOV UNITN,T26DSU 
MOV «T26PACKET,R4 



.WORD SFIMSG 



iSET UP CWIT NUMBER 
{SUBROUTINE NEEDS PACKET ADDRESS 



071262 
071266 
071270 
071274 
071276 
071276 
071300 
071302 
071304 
071306 
071306 



071310 
071314 
071320 
071324 
071326 
071330 
071334 
071334 
071336 
071340 
071342 
071344 
071344 



071346 
071352 
071354 
071360 
071362 
071364 
071370 
071370 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



004737 010562* 
103407 

005237 002212' 
010001 

104456 
001346 
005046' 
011734* 

104406 



25>: 



J5R 
BCS 
INC 

nov 

ERRHRD 



CKLOOP 



PC. WRTCHR 
251 

FATFLG 
RO.Rl 

ERRNO.WRTHSG, SFIMSG 



t ISSUE WRITE CHARACTERISTICS 
tBR. IF COMMAND ISSUED OK 
iBUMP COUNT 

I SAVE CONTENTS OF TSSR 
t WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 



I ISSUE REWIND COrmAND TO SELECTED TAPE DRIVE 



004737 010714* 

016501 000002 

012702 000200 
103407 
010004 

005237 002212' 

104456 
001347 
073364' 
011746' 

104406 



26$: 



30* ! 



JSR 
MOV 
MOV 
BCS 
MOV 
INC 

ERRHRD 



CKLOOP 



PC. REWIND 

TSSRCR5).R1 

•SSR.R2 

301 

R0.R4 

FATFLG 

ERRNO. T26RWN.PKTSSR 



I CALL TAPE REWIND COMMAND 
iGET TSSR 

tSET UP EXPECTED TSSR 
iBR. IF NO PROBLCn 
{PACKET ADDRESS SET UP 
tBUMP COUNT 
t REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

:LOOP IF SELECTED 

TRAP 



!rEAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 071730' 
010102 

052702 000002 

020102 

001406 

005237 002212' 
104456 



nOV T26BFR*6.R1 

nOV R1.R2 

BIS «BIT1.R2 

CMP RI.R2 

BEQ 40 » 

INC FATFLG 

ERRHRD ERRNO . T26B0T . EXPREC 



{PICK UP XSTO 

tSET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

sBR. IF EQUAL (OK) 

tBUMP COUNT 

{TAPE NOT AT BOT AFTER REWIND 

TRAP 



OERHRD 
742 

WRTMSG 
SFIMSG 

C»CLP1 



OEIMRD 
743 

T26RIIN 
PKTSSR 

CfCLPl 



CSERHRO 



N4 



TSV7 - HARDWARE TESTS 1 8 
TEST 6: REREADS 



MACRO M1113 Ol-FEB-84 17:54 



SEQ 25^ 



8818 

8819 
8820 
8821 
8822 
8823 
8824 
8825 
8826 
8827 
8828 
8829 
8830 
8831 
8832 
8836 



8837 

8838 
8839 
8840 
8841 
8842 
8843 
8844 
8845 
8846 
8847 
8848 
8849 
8850 
8851 
8855 



8856 

8857 
8858 
8859 
8860 
8861 
8862 
8863 
8864 
8865 
8866 



071372 
071374 
071376 
071400 
071400 



071402 
071406 
071412 
071414 
071420 
071422 
071426 
071426 
071430 
071432 
071434 
071436 
071436 



071440 
071444 
071450 
071452 
071456 
071460 
071464 
071464 
071466 
071470 
071472 
071474 
071474 
071476 
071504 
071510 



001350 

073075' 

015374' 

104406 



012703 000001 

004737 010366' 
103411 

016501 000002 
010004 

005237 002212' 

104456 
001351 
073023' 
011746' 

104406 



012703 100001 

004737 010366' 
103411 

016501 000002 
010004 

005237 002212' 

104456 
001352 
073023' 
011746' 

104406 

013737 003114' 
005737 072060' 
001404 



40$: 



CKLOOP 



. WORD 744 
.WORD T26B0T 
.WORD EXPREC 



072032' 



TRAP 



CICLPl 



! ISSUE SPACE RECORDS COHTIAND - VALUE IN R3 SETS NUMBER OT RECORDS 
2 BIT 15 SETS DIRECTION - 0-FORUARD 1 -REVERSE 

9 



MOV 
JSR 
BCS 
MOV 
MOV 
INC 



«000001.R3 
PC. SPACE 
751 

TSSRCR5).R1 
R0.R4 

FATFLG 



751: 



ERRHRD ERRNO . T26UDE . PKTSSR 



CKLOOP 



sSET UP SPACE FORWARD 1 RECORD 

s ISSUE SPACE COMMAND 

sBR. IF OK 

?GET STATUS DATA 

sGET PACKET ADDRESS 

J BUMP COUNT 

sTSSR INCORRECT AFTER READ DATA 

TRAP CIERHRD 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 



745 
T26WDE 
PKTSSR 



CICLPl 



! ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
I BIT 15 SETS DIRECTION - O-FQRUARD 1 -REVERSE 

s 



MOV 
JSR 
BCS 
MOV 
MOV 
INC 



nooooi.R3 

PC. SPACE 
175$ 

TSSR(R5).R1 
R0.R4 
FATFLG 



ERRHRD ERRNO. T26WDE »PKTSSR 



175$: CKLOOP 

MOV 
TST 
6EQ 



FREE.T26RB 

T26CNU 

176$ 



sSET SPACE REVERSE 1 RECORD 
ISSUE COMMAND 
GO ON IF ALL IS WELL 
GET TSSR CONTENTS 
SET UP EXPECTED (PACKET CONTENTS) 
BUMP COUNT 

TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 
.WORD 746 
.WORD T26WDE 
.WORD PKTSSR 

;L00P IF SELECTED 

TRAP C$CLP1 

; ADDRESS OF BUFFER 

5 CHECK FOR TIMES THROUGH HERE 

J BR. IF FIRST TIME THROUGH 



REREAD (PREVIOUS). IE. ACK.OPP-1 CMD. 



B5 



TSV7 - HARDUARE TESTS 1-9 
TEST 6: REREADS 



riACRO milS Ol-FEB M l7tS4 



SEO 260 



Sa67 
8669 

e«6<» 

M70 
8871 
8672 
867S 
8674 
8675 
8676 
6677 
6676 
6679 
6660 
6661 
6882 
8663 
8664 
6665 
6669 



6690 

6891 
6692 
6693 
6694 
8895 
6696 
6900 



8901 

8902 
8903 
8904 



6905 
6906 
8907 
8906 
8909 
8910 
8911 
6912 
8913 
8914 
8915 
8916 



071512 
071520 



C71522 
071530 
071530 
071534 
071540 
071544 
071550 
071554 
071556 
071560 
071564 
071564 
071566 
071570 
071572 
071574 
071574 
071576 
071602 
071604 
071610 
071612 
071614 
071620 
071620 
071622 
071624 
071626 
071630 
071630 
071632 
071636 
07164G 
071640 
071640 
071642 
071650 
071652 
071656 



071656 
071662 
071664 
071670 
071670 
071670 



000403 



161001 


072030' 




nov 


•161001. T26PK3 


iREREAO (PREVIOUS). IE. ACK.OPP-l 








BR 


I76t 


iSKIP NEXT COMMAND 






Ark 

* 


.ACK.OPP-1 COMMANO 




141001 


072030' 


17of : 


MOV 


•141001.T26PK3 


iNcffcW »ACK,gpp«i CunnAND 






178»: 








072050* 






MOV 


#T26PK3.R4 


ibtT UP Hm HI In PACKfeT liODNtbS 


000000 






MOV 


R4.TS08(RS) 










JSR 


PC.MAITF 


lUAIT FOR TO ^<PJ 


000002 






MOV 


TSSR(R5),R1 


iGET TSSR CONTENTS 


100204 






MOV 


#SSR!SC!eiT2.R2 


iSET UP EXPECTED 








CMP 


R1.R2 


lARE THEY EQUAL 








BEQ 


180t 


tBR. IF OK 


002212' 






INC 


FATFLC 


|BU»«> COUNT 








ERRHRO 


ERRNO. T26UI)E .PKTSSR 


iTSSR INCORRECT AFTER READ DATA 



020102 
001406 



104456 

001353 

073023' 

011746' 

104406 

013701 0717S6' 
010102 

052702 000001 

020102 

001406 

005237 002212' 

104456 
001354 
072154- 
015374* 

104406 

005137 072060' 
001224 



104403 

023727 002212' 000017 
103402 

004737 017104' 



004737 016360' 
103002 

000137 055474' 



104432 



160t: CKLOOP 

MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRO 



190« : CKLOOP 

con 

BNE 

ENDSUB 



T26BFR*14.R1 

R1.R2 

«6IT0.R2 

R1.R2 

190 1 

FATFLC 

ERRNO. T26NEF .EXPREC 



I LOOP IF SELECTED 

{GET XST3 STATUS UORO 

iSET UP EXPECTED 

I SET T»C NEF BIT 

lARE THEY EQUAL 

(BR. IF EQUAL (GOOD) 
lBur*> COUNT 

iNEF SHOULD BE SET 



TRAP 
.UORO 
.UORO 
.UORO 

TRAP 



CtERHRO 
747 

T26UDE 
PKTSSR 

CICLPI 



TRAP 
.UORO 
.UORO 
.UORD 



CtERMRO 
748 

T26NEF 
EXPRFC 



T26CNU 
261 



9991; 
t 
I 
( 



1631: 



CMP FATFLC. •IS. 

BLO 999» 

JSR PC.CKDROP 



JSR 
6CC 

EXIT 



PC.TSTLOOP 

1631 

T26L00P 

TST 



TRAP CICLPl 
J SET SUITCH T»C OT»CR UAY 
»8R. IF FIRST TIME T(«OUGM 
!>>>>>>>>>>>> END SUBTEST >>>>>>>>«>>> 
L10121 : 

TRAP OESUB 
»IS ERROR COUNT AT 25 
tBR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



lOO UE NEED TO ITERATE TEST 
I BR. IF NO LOOP REQUIRED 
•EXECUTE AGAIN 



tALL DONE THIS TEST 



TRAP 



CiFXIT 





071672 


00S112 








8918 












8920 






8922 


071674 




8924 


071700 




8925 


071700 


014004 


8926 


071702 


071710* 


8927 


071704 


000000 


8928 


071706 


000012 


8929 


071710 




8930 071710 


071722* 


8931 


071712 


oooooo 


8932 


0717J4 


000024 


8933 071716 


OOOOOO 


8934 


071720 


oooooo 


8935 


071722 




8936 






8937 






8938 






8940 


072004 




8942 


072010 




8943 072010 


100006 


8944 


072012 


O72O40 


8945 072014 


oooooo 


8946 


072016 


OOOOOd 


8947 






8949 072020 




8951 


072030 




8952 072030 


140005 


8953 


072052 




8954 


072032 


003114' 


8955 


072034 


OOOOOO 


8956 


072036 


oooooo 


8957 






8958 






8959 






8960 






8961 


072040 




8962 


072040 


010 


8963 


072041 


200 


8964 


072042 


oooooo 


8965 


072044 


oooooo 


8966 






8967 






8968 






8969 






8970 






8971 


072046 


140U01 


8972 


072050 




8973 


072052 


161401 


8974 


072054 


177777 


8975 






8976 






8977 


072056 


oooooo 


8978 


072060 


oooooo 



C5 

MACRO Ml lis 01 -FEB 84 17:34 



SEQ 261 



.UORO L 10102- 



Ilocw. storage for this test 

t - 



.BLKB 
T26PACKET: 

.yORO 
.UORO 
.WORD 
.WORD 

T260ATA: 

.UORO 
.WORD 
.WORD 
.WORD 
T260SU: .yORO 
T26BFR: .BLKU 



10- < . -TSV267> 

14004 

T260ATA 

0 

10. 

T268FR 
0 

20. 

0 

0 

25. 



lURITE SUBSYSTEM MEMORT COMMAND PACKET 





.BLKB 


10-<.-TSV2£7> 


T26PK2: 








.UORO 


100006 




.UORO 


T268F2 




.UORO 


0 




.UORO 


6. 




.BLKB 


lO-<.-TSV2e7> 


T26PK3: 








.UORO 


140005 


T26Re: 






T26UB: 


.UORO 


FREE 




.UORO 


0 


T26SZ: 


.UORO 


0 




.EVEN 





I 
I 

f268F2: 

T26eS0: .BYTE 10 
T268S1: .BYTE 200 
T26S2: .UORO 0 
T26S3: .UORO 0 
I 

* .EVEN 

I TAPE MOTION PACKET COMMAND VALUES 

T26RN: .UORO 140001 

.UORO 141401 

.UORO 161401 

.UORO 177777 



•COMMAND PACKET FOR TEST 

lURITE CHARACTERISTICS COMMAND. UITH CVC«1. ACx 
lAOORESS or CHARACTERISTICS BLOCK 

• STARTING VALUE OF B( OCK SIZE 
iCMARACTERISTICS DATA BLOCK 
lAOORESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 

•SELECT DRIVE 0 
•MESSAGE BUFFER 



lURITE SUB StS MEM COMMAND. AND ACk 
lAOORESS OF SELECT BLOCK DATA 

tSIZE or DATA PACKET 



•REREAD COMKAND. CVC-1 AND ACK 
lAOORESS OF URITE BUFFER 
•SIZE or BUFFER (EXTENT) 



•BSELO AREA 
iBSELl AREA 
•SEL 2 AREA 
•DATA AREA 



•READ DATA 
•REREAD NEXT OPP-0 
•REREAD NEXT 0PP>1 
lEM) OF DATA 



T26CNT: .UORO 0 
T26CNU: .UORO 0 



•TAPE RECORD COUNTER STORAGE AREA 
I TAPE RECORD COUNTER STORAGE AREA 



072064 



6979 

8900 072062 
8961 
8962 
698S 
8964 
6985 
6986 
6967 
6966 
6969 
6990 
6991 
6992 
6995 
6994 
6995 
6996 
6997 
8996 
6999 
9000 
9001 
9002 
9005 
9004 
9005 
9006 
9007 
9006 
9009 
9010 
9011 
9012 
9015 
9014 
9015 
9016 
9017 
9018 
9019 
9020 
9021 
9022 
9025 
9024 
9025 
9026 
9027 
9026 
9029 
9050 
9051 
9052 
9055 
9054 
9055 



072066 
072154 
072256 
072505 
072402 
072477 
072561 
072651 
072706 
072767 
075025 
075075 
075142 
075250 
075507 
075564 
075455 
075506 
075555 
075650 
075720 
075775 
074046 
074121 
074210 
074272 
074554 
074442 
074550 
074607 



074620 
074620 
074624 
074650 
074654 
074640 
074642 
074646 



000000 
000000 



nACRO mil5 01 -FEB 84 17:54 

T26RSZ: .WORD 0 
T260LY: .UORO 0 

i'lOCAL text messages rOR TEST 
t - 



SEQ 262 



iRECORD STORAGE SIZE ARLA 
iDELAY COUNTER AREA 



1 




1 #^A 
IDU 


T26UNG: 


.ASCIZ 


1 




1 

Icc 


T26NEFi 


.ASCIZ 






1 0% 

ico 


T26R0F; 


.ASCIZ 


1 35 




1 oo 

Ice 


T26RRr; 


.ASCIZ 


Icc 




1 

Ice 


T26RRC. 


.ASCIZ 


lev 




1 Oil 


T26SC: 


.ASCIZ 




111 
111 


IAD 
IVC 


T26L0R: 


1 .ASCIZ 




15^ 
IcO 


led 


T26U0ri 


! .ASCIZ 


111 


\%A 
13^ 


1^ 
1^^ 


T26L0Qi 


> .ASCIZ 




1 A^ 
lw3 


1 

lee 


T26SSR: 


: .ASCIZ 




1 0\ 

ico 


1 OX 
leO 


T26U0E, 


! .ASCIZ 




\A\ 
1^1 


lOv 


T26B0T 


! .ASCIZ 


104 




164 


T260TA 


t .ASCIZ 


122 


105 


122 


T26E0T: 


: .ASCIZ 


124 


125 


125 


T26TM: 


.ASCIZ 


122 


145 


167 


T26mM: .ASCIZ 


122 


101 


115 


T26IMC 


: .ASCIZ 


124 


125 


125 


T26AN5: .ASCIZ 


104 


162 


151 


T260FL 


! .ASCIZ 


124 


125 


125 


T26U00: .ASCIZ 


124 


125 


125 


T26IJDC: .ASCIZ 


105 


126 


105 


T26VCK: .ASCIZ 


124 


125 


102 


T268A: 


.ASCIZ 


127 


122 


111 


T26WSS: .ASCIZ 


122 


145 


141 


T26L0Ni .ASCIZ 


122 


145 


141 


T26L0P: .ASCIZ 


122 


145 


165 


T26PeP: .ASCIZ 


122 


145 


141 


T26TRL: .ASCIZ 


104 


141 


164 


T26NEQ: .ASCIZ 


122 


145 


162 


TST26ID: 



.EVEN 



Tap* Position Incorroct Aftor REREAD Proviou* (OP^-l)' 
REREAD PREVIOUS. At BOT, F«il«d To Sot NEF (XSTO)' 
7SSR Incorroct Aftor READ DATA CoMnond' 

REREAD Proviouo (Spaco Rovoroo. Rood For««or4) Command Failod' 

REREAD Proviouo (Road Rovoroo. Spaco Forttard) Command Failod 

POSITION (Spaco Command) Failod. TSSR Not Cerroct' 

RIB NOT SET AFTER READ REVERSE INTO BOT' 

TSSR Not Corroct Aftor Illotfal Hodo Bito Sot' 

Illooal Nodo Bits. Failod To Sot ILC Bit In XSTO' 

REREAD COmAND Not Aecoptod' 

TSSR Not Corroct Aftor URITE DATA CoMRond' 

Tapo Not At BOT Aftor REUIND COMMnd' 

Data Uritton To Tapo Not Equal To Data Rood From Tapo' 

REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

TSSR Not Corroct Aftor REREAD COMMAND Rojoct* 

RoMind (POSITION) Command Not Aecoptod' 

RAM Error. Corroct Data Pattom Not In Rw' 

TSSR InSt. Foilod Aftor REREAD COMMAND' 

Drivo 7 Soloct Foilod To Sot "OFL" In TSSP' 

TSSR Not Corroct Aftor REREAD DATA Coin ard. SUB Bit Sof 

TSSR Not Corroct Aftor REREAD DATA Coamiond' 

CVC Sot. Oidn"t Rooot VCK In Moosao* Buffor' 

TSBA Not Corroct Aftor REREAD DATA Command' 

URITE SUBSYSTEM MEMORY CoMMwnd Net Aecoptod (RAM Rood)' 

Roading Len« Rocord Failod To Sot RLL Bit In XSTO' 

Roadina Long Rocord Foilod To Sot RLS Bit In XSTO' 

Rooiduol By to Count Incorroct Aftor Short Rocord Road' 

Rood* no Long Rocord Failod To Givo Tapo Stotus Alorf 

Data REREAD From Tapo Not Corroct. Aftor SUB-1' 

ASCIZ 'Roroads' 



I ♦ 

IrOUTINE TO RESTORE COmANO PACKET TO START-UP (DEFAULT) VALUES 

tURITE SUBSYSTEM MEMORY COMMAND 

I 

t - 

T26REST: 



012701 071700' 

012721 140004 

012721 071710' 
005021 

012721 000012 

012721 071722' 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 



•T26PACKET.R1 
•140004. (RD* 
•T260ATA.(R1)* 
(Rl)» 

«10..(R1)» 
•T26BFR.(R1)* 



iSAVE THE REGISTERS 

I START OF THE PACKET 

lURITE SUBSYSTEM MEM. UITH ACK. CVC 

•ADDRESS OF CHARAISTICS DATA BLOCK 

•EXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN BYTES 

•ADDRESS OF MESSAGE BUFFER 



E5 



rsvr HARDWARE TESTS 1 6 
TEST 6; REREADS 



9056 
9057 
9050 
9059 
9040 
9041 
9042 
9045 
9044 
9045 
9046 
9047 
9048 
9049 
9050 
9051 
9052 
9055 
9054 
9055 
9056 
9057 
9056 
9059 
9060 
9061 
9062 
9065 
9064 
9065 
9066 
9067 
9066 



9069 
9070 
9071 
9072 
9075 
90/4 
9075 
9076 
9077 
9078 
9079 
9080 
9081 
9082 

9085 
9084 

9085 
9090 
9091 
9092 
9095 



074652 
074654 
074660 
074662 
074666 
074672 
074700 
074702 
074706 
074710 



074712 
074712 
074716 
074722 
074726 
074752 
074754 
074740 
074742 
074746 
074750 
074752 
074754 
074754 
074760 
074764 
074770 
074774 
074776 
075002 
075004 
075004 
075004 



075006 
075006 
075006 
075014 
075020 
075024 
075050 
075054 
075042 



005021 
012721 
005021 
012711 
012702 
012762 
005742 
020227 
001571 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
012721 
012721 
005021 
012711 
000207 



104401 



012757 
005057 
004757 
012700 
004757 
012757 
005037 



000024 

000000 
000050 

177777 071722' 64»: 
000000 



FEB 6A 


17:54 




CLR 


(RD* 




MOV 


♦20. .(Rl)» 


iLENGTH Of MESSAGE BUFFER 


CLR 


(RD* 




MOV 


♦O.(Rl) 


1 SELECT DRIVE ZERO (0) 


MOV 


«24. ,R2 


iNUMBER OF LOCATIONS TO BE CLEARED 


MOV 


♦177777. T26BrR(R2) 


tALL ONES TO MESSAGE BUFFER 


TST 


-(R2) 


iNEXT LOCATION 


CMP 


R2.#0 


1 CHECK FOR END OF LOOP 


BNE 


641 


iKEEP GOING UNTIL DONE 


RTS 


PC 


1 RE TURN 



SEQ 26 S 



T26RT2: 



072010' 

140006 

072040' 

000006 

072040* 



072050' 

000000 

000000 

000000 



T26RT3: 









MOV 


♦T26PK2.R1 


1 START OF THE PACKET 


MOV 


•140006. (RD* 


lURITE SUBSYSTEM MEM. UITH ACK.CVC-1. 


MOV 


♦T26BF2,(R1>» 


t ADDRESS OF DATA BLOCK 


CLR 


(Rl)» 


t EXTENDED ADDRESS 


MOV 


«6..(R1)» 


iSIZE OF DATA BLOCK IN BYTES 


CLR 


(Rl)» 




MOV 


«T26eF2.Rl 


t POINT TO DATA SEL AREA 


CLR 


(RD* 




CLR 


(Rl) 




RTS 


PC 


iRETURN 


SAVREG 




tSAVE THE REGISTERS 


MOV 


♦T26PK5.R1 


1 START OF THE PACKET 


MOV 


#0.(RI). 


1 WRITE SUBSYSTEM MEM. WITH ACK, 


MOV 


•O.(Rl)* 


1 ADDRESS OF DATA BLOCK 


CLR 


(RD* 


lEXTENOED ADDRESS 


MOV 


•O.(Rl) 


iSIZE OF DATA BLOCK IN BYTES 


RTS 


PC 


tRETURN 


ENDTST 







L 10102: 



TRAP 



CIETST 



.SBTTL TEST 7; WRITE DATA RETRY 



THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COrtlAND CSPACE REVERSE. ERASE. WRITE DATA) 



THE TEST CONSISTS OF THE FOLLOWING 5 SUBTESTS 



006256' 002170' 

005124' 

017176' 

104645' 

016412- 

000005 002206- 
101706' 



BGNTST 

MOV 
CLR 
JSR 
MOV 
JSR 
MOV 
CLR 



«EPRT2.EPRTSW 

KTENABLE 

PC, K TOFF 

•TST27ID.R0 

PC.TSTSETUP 

•5.L00PCNT 

T27CNT 



T7* • 

i SECONDARY ERROR MESSAGE 
I TURN OFF KTll 

(TURN KTll BACK OFF IF THERE 
I ASCII MESSAGE TO IDENTIFY TEST 
I DO INITIAL TEST SETUP 
{PERFORM 5 ITERATIONS 
i CLEAR TAPE RECORD COUNTER 



F5 



TSV7 
TEST 



HAROUARE TESTS 1 0 
7: URITE DATA RETRY 



MACRO MlllS 01 FEB 84 17:54 



SEQ 264 



9094 
9095 
9096 
9097 
9098 
9099 
9100 
9101 
9102 
9103 
9104 
9105 
9106 
9107 
9108 



9109 
9110 
9111 
9112 
9113 
9114 
9115 
9116 
9117 
9118 
9119 
9120 
9121 
9122 
9123 



075046 
075046 
075046 
075046 
075050 
075054 
075060 
075064 
075072 



9124 
9125 
9126 
9130 
9131 



9132 
9133 
9134 
9135 
9136 
9137 
9138 
9139 



075076 
075102 
075104 
075104 
075110 
075112 
075116 
075120 
075124 
075126 
075132 
075134 
075140 
075142 
075146 
075150 
075150 
075152 
075154 
075156 
075160 
075166 



I ♦ 

!tE5T 7, SUBTEST I 
i 

! VERIFIES THAT A WRITE DATA RETRY COMTIANO ISSUED WHILE 
(THE TAPE IS POSITIONEO AT BOT CAUSES FUNCTION REJECT 
(TERHINATIGN. WITH THE NON-EXECUTABLE FUNCTION (NEF) 
(ERROR BIT SET. 

t 
t 

I - 



T27L00P: 



104402 
004737 
004737 
004737 
012737 
005037 



104664' 
104756* 

105020' 

176750 101712' 
101706' 



BGNSUB 



JSR 
JSR 
JSR 

nov 

CLR 



PC.T27REST 

PC,T27RT2 

PC.T27RT3 

«6SO00..T270LY 

T27CNT 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T7.1: 

TRAP CIBSUB 

tSET COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 

tSET UP OTHER COMMAND PACKET 

;S£T UP DELAY COUNTER 

t CLEAR COUNTER 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 015674' 
103426 



lOti 



012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 



000250 

002116* 

177772 

177756 

101712' 

002212' 



JSR 
6CS 
DELAY 



PC.SOFINIT 
250 



104455 

001275 

003642' 

011734' 

013737 002172' 101550' 20»i 
012704 101530' 



DEC 
BNE 
INC 
MOV 
ERROF 



MOV 
MOV 



T27DLY 
10$ 

FATFLG 
RO.Rl 

ERRNO. SFIERR . Sr IMSG 



UNITN.T27DSU 
•T27PACKET.R4 



aDO INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 
t DELAY ABOUT .25 SEC 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

iBUMP COUNTER 

iBR. IF COUNTER NOT DONE 

iBUMP COUNT 

{CONTENTS OF TSSR REGISTER 
(FATAL ERROR TSSR UAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 



tSET UP DRIVE NUMBER 
I SUBROUTINE NEEDS PACKET ADDRESS 



♦250.CPC)* 
0 

L»OLY.CPC). 
0 

-6(PC) 
. 4 

22(PC) 
.-20 



C»ERDF 
701 

SFIERR 
SFIMSG 



WRITE CHARACTERISTICS COMMAND CCALL TO WRTCHR) 



G5 



TSV7 - 
TEST 



HARDWARE TESTS 1 8 
7: WRITE DATA RETRY 
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SEQ 265 



9140 






















VXV^OC 








.TCCiic uOTTlh rMAOAPTPOTCTTrC 
1 ±3 jlJC Mf^ 1 1 C UrifVtM^ 1 CHXd 1 XU9 




07S1 7#i 

V r ^X ' w 


X v^^w » 








PSt 




9143 






W££XC 




Xl^la 


r ^ I r m 




9147 




vxwvx 






MOW 


RO Rl 




9148 


075206 








ERRHRD 


ERRNO . U9 TfiSG . SF IliSG 


iWRITE CHARACTERI^TI^C FATLEf) 




075206 


104456 










TRAP 




075210 


001276 










.WORD 




075212 


005046' 










.WORD 




075214 


011734* 










.WORD 


9149 


075216 






251: 


CKLOOP 




iLOOP IF SELECTED 




075216 


104406 










TRAP 



9150 
9151 
9152 
9153 
9154 
9155 
9156 
9157 
9158 
9159 
9160 
9164 



9165 

9166 
9167 
9168 
9169 
9170 
9171 
9172 
9173 
9174 
9175 
9176 
9177 
9178 
9182 



9183 

9184 
9185 
9186 
9187 
9188 
9189 
9190 



075220 
075224 
075226 
075230 
075234 
075254 
075236 
075240 
075242 
075244 
075244 



075246 
075252 
075254 
075260 
075262 
075264 
075270 
075270 
075272 
075274 
075276 
075500 
075500 
075302 
075510 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



004757 010714* 

105407 

010004 

005257 002212' 

104456 

001277 

105065' 

011746' 

104406 



SOI: 



JSR 
BCS 
NOV 
INC 

ERRHRD 



CKLOOP 



PC. REWIND 

501 

R0.R4 

FATFLG 

ERRNO. T27RWN.PKTSSR 



(CALL TAPE REWIND COMMAND 

tBR. IF NO PROBLEM 

iSET UP REWIND PACKET ADDRESS 

iBUMP COUNT 

I REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

iLOOP IF SELECTED 

TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



015701 101560' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001500 
102561' 
015574' 

104406 

012757 000400 101666' 
015757 005114- 101662' 



401: 



HOV 
HOV 
BIS 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 



T278FR*6.R1 

R1.R2 

•6IT1.R2 

R1.R2 

40t 

FATFLG 

ERRNO. T27B0T.EXPREC 



I PICK UP XSTO 

jSET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

(DOES EXP - REC'D 

tBR. IF EQUAL (OK) 

sBUMP COUNT 

{TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 



MOV 
MOV 



♦256. .T27SZ 
FREE.T27W6 



I LOOP IF SZLECTED 

t SET UP RECORD SIZE 
(ADDRESS OF WRITE BUFFER 



TRAP 



CIERHRD 

702 

WRTMSG 
SFIMSG 

CICLPl 



CtERHRD 

705 

T27RWN 
PKTSSR 

C«CLP1 



C»ERHRO 
704 

T27B0T 
EXPREC 

CICLPI 



I WRITE DATA RETRY .ACK.CVC-1 COMMAND 



H5 



TSV7 
TEST 



HARDWARE 
7: WRITE DA 



MACRO Ml I 13 01 FEB 84 17:54 



SEQ 266 



9191 
9192 
9193 
9194 
9195 
9196 
9197 
9196 
9199 
9200 
9201 
9205 



9206 

9207 
9206 
9209 
9210 
9211 
9212 
9213 
9214 
9215 
9216 
9217 
9216 
9219 
9223 



9224 

9225 



9226 
9227 
9226 
9229 
9230 
9231 
9232 
9233 
9234 
9235 
9236 
9237 
9236 
9239 
9240 
9241 



075316 


012737 


141005 101660' 


MOV 


#141005, T27PK3 


1 WRITE DATA RETRY .ACK .CVC-1 COMMAND 


075324 


012704 


101660' 


nov 


#T27PK3,R4 


iSET UP R4 WITH PACKET ADDRESS 


075330 


010465 


000000 


MOV 


R4,TS0B(R5) 


1 ISSUE COMMAND 


075334 


004737 


016150' 


JSR 


PCtWAITF 


iWAIT FOR SSR TO SET 


075340 


016501 


000002 


MOV 


TSSR(R5).R1 


tGET TSSR CONTENTS 


075344 


012702 


100206 


MOV 


♦SSR!SC!BIT1!BIT2.R2 


1 SET UP EXPECTED 


075350 


020102 




CMP 


R1.R2 


(ARE THEY EQUAL 


075352 


001406 




BEQ 


75$ 


sBR, IF OK 


075354 


005237 


002212' 


INC 


FATFLG 


iBUMP COUNT 


075360 






ERRHRD 


ERRNO . T27UDE • PK TSSR 


tTSSR INCORRECT AFTER READ DATA 


075360 


104456 








TRAP CIERHRD 


075362 


001301 








.WORD 705 


075364 


102472' 








.WORD T27WDE 


075366 


011746' 








.WORD PKTSSR 


075370 




751: 


CKLOOP 




iLOOP IF SELECTED 


075370 


104406 








TRAP CICLPI 



075372 
075376 
075400 
075404 
075406 
075410 
075414 
075414 
075416 
075420 
075422 
075424 
075424 
075426 
075426 
075426 
075430 
075436 
075440 
075444 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 101560' 
010102 

052702 002000 

020102 

001406 

005237 002212' 

104456 

001302 

104231' 

015374' 

104406 



104403 

023727 002212' 000017 
103402 

004737 017104' 



170»i 



999»: 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRD 



CKLOOP 
ENDSUB 



CMP 
BLO 
JSR 



T27BFR»6,R1 

R1.R2 

•6IT10.R2 

R1.R2 

170» 

FATFLG 

ERRNO. T27NEF .EXPREC 



tGET XSTO STATUS WORD 
iSET UP EXPECTED 
iSET THE NEF BIT 
>ARE THEY EQUAL 
iBR. IF EQUAL (GOOD) 
;BUMP COUNT 
iNEF SHOULD BE SET 



FATFLG. ♦IS. 
9991 

PC.CKOROP 



TRAP 
.WORD 
.UORO 
.UORO 

TRAP 

L 10123: 

TRAP 

tIS ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
iTRY TO DROP THE UNIT 



CiERHRO 
706 

T27NEF 
EXPREC 

CiCLPl 



CtESUB 



t ♦ 

I TEST 7. SUBTEST 2 

[verifies that WRITE DATA RETRY COMMAND ISSUED WHILE 
tTHE TAPE IS POSITIONED BEFORE THE FIRST RECORD ON 
(TAPE (BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT 
I TERMINATION. WITH THE REVERSE INTO BOT (RIB) STATUS 
{ERROR BIT SET. 



lb 



TSV7 - HHftOUARE TESTS 1-6 
TEST 7: URITE DATA RETRY 



nACRO Ml lis 01 -FEB -64 17:S4 



SEQ 267 



9242 
924S 
9244 



9245 
9246 
9247 
9248 
9249 
9250 
9251 
9252 
9253 
9254 
9255 
9256 
9257 
9261 
9262 



926S 
9264 
9265 
9266 
9267 
9266 
9269 
9270 
9271 
9272 
9273 
9274 
9276 
9279 



9260 

9261 
9262 
9263 
9264 
9265 
9266 
9287 
9268 
9289 
9290 
9291 
9292 
9296 



075444 
075444 
075444 
075446 

075452 
075456 



075462 
075466 
075470 
075474 
075476 
075476 
075500 
075502 
075504 
075506 
075514 



075520 
075524 
075526 
075532 
075534 
075534 
075536 
075540 
075542 
075544 
075544 



075546 
075552 
075554 
075556 
075562 
075566 



104402 

004737 104664* 

004737 104756' 

004737 105020' 



BGNSUB 



JSR 
JSR 
JSR 



PC.T27ReST 

PC.T27RT2 

PC.T27RT3 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T7,2: 

TRAP CtBSiJB 

I SET COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE • CARRY BIT CLEAR If Ef^POR 



004737 015674' 
103407 

005237 002212' 
010001 

104455 

001303 

003642' 

011734' 

013737 002172' 101550' 20*: 
012704 101530' 



JSR PC.SOFINIT 

BCS 201 

INC FATFLG 

NOV RO.Rl 

ERROF ERRNO.SFIERR.SFIMSG 



nOV UNITN.T270SU 
nOV •T27PACKET.R4 



I DO INITIALIZE ON CONTROLLER 
(BR IF INIT UAS OK 
I BUMP COUNT 

{CONTENTS OF TSSR REGISTER 
{FATAL ERROR TSSR UAS NOT OK 

TRAP 
.UORD 
.WORD 
.WORD 

I SET UP DRIVE NUMBER 
t SUBROUTINE NEEDS PACKET ADDRESS 



C»ERDF 
707 

SFIERR 
SFIMSG 



URITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



004737 010562' 
103407 

005237 002212' 
010001 

104456 
001304 
005046' 
011734' 

104406 



25$: 



JSR 
BCS 
INC 
NOV 
ERRHRO 



CKLOOP 



PC. URTCHR 
251 

^ATFLG 
RO.Rl 

ERRNO . URTHSG . SF IMSG 



t ISSUE URITE CHARACTERISTICS 
iBR. IF COMMAND ISSUED OK 
iBUMP COUNT 

:SAVE CONTENTS OF TSSR 
t URITE CHARACTERISTISC FAILED 

TRAP 
.UORD 
.UORD 
.UORD 

tLOOP IF SELECTED 

TRAP 



CIERHRD 
708 

URTMSG 
SFIMSG 

C»CLP1 



ISSUE REUINO COMMAND TO SELECTED TAPE DRIVE 



004737 010714 

103411 

010004 

016501 000002 
005237 002212' 



JSR PC.REUIND 

BCS 26 t 

NOV R0.R4 

MOV TSSR(R5).R1 

INC FATFLG 

ERRHRO ERRNO. T27RUN.rKTSSR 



I CALL TAPE REUINO COMMAND 

iBR. IF NO PROBLEM 

iSET UP REUINO PACKET ADDRESS 

iGET TSSR CONTENTS 

I BUMP COUNT 

I REUINO NOT ACCEPTED 



J5 



TSV7 • HARDWARE TESTS 1 8 
TEST 7: WRITE DATA RETRY 



MACRO Mills 01 -FEB -84 17:54 



9297 

9298 
9299 
9300 
9301 
9302 
9303 
9304 
9305 
9306 
9307 
9300 
9309 
9310 
9311 
9312 
9313 
9314 
9315 
9316 
9320 



9321 

9322 
9323 
9324 
9325 
9326 
9327 
9326 
9329 
9330 
9331 
9332 
9333 
9337 



9336 

9339 
9340 
9341 
9342 
9343 
9344 



075566 
075570 
075572 
075574 
075576 
075576 
075600 
075604 



075612 
075620 
075624 
075630 
075634 
075640 
075644 
075650 
075652 
075654 
075660 
075660 
075662 
075664 
075666 
075670 
075670 



075672 
075676 
075700 
075704 
075706 
075712 
075712 
075714 
075716 
075720 
075722 
075722 



104456 

001305 

103065' 

011746' 

104406 

012703 000400 

013737 003114* 101662' 



26»: 



CKLOOP 

nov 

MOV 



*256..R3 
FREE.T27WB 



TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 

I STARTING RECORD SIZE 
I STARTING WRITE BUFFER ADDRESS 



C$ERHRD 
709 

T27RWN 
PKTSSR 

CICLPl 



WRITE DATA.CVC-l.ACK COTtlAND 



012737 140005 101660' 

012704 101660' 

010337 101666' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 

001306 

005103' 

011746' 

104406 



nov 


«140005.T27PK3 


•WRITE DATA.CVC-l.ACK COMMAND 


nov 


«T27PK3.R4 


iSET UP R4 WITH PACKET M)0RESS 


nov 


R3.T27SZ 


iSET UP RECORD SIZE IN PACKET 


MOV 


R4.TSDB(R5) 


1 ISSUE COMMAND 


JSR 


PC.WAITF 


{WAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


tGET TSSR CONTENTS 


MOV 


*SSR.R2 


iSET UP EXPECTED 


CMP 


R1.R2 


>ARE THEY EQUAL 


BEQ 


261 


tBR. IF OK 


INC 


FATFLC 


iBUMP COUNT 


ERRHRD 


ERRNO . URTERR .PKTSSR 


iTSSR INCORRECT AFTER WRITE DATA 



28«: 



CKLOOP 



{LOOP IF SELECTED 



TRAP 
.WORD 
,WORD 
.WORD 

TRAP 



CIERHRD 
710 

WRTERR 
PKTSSR 

CICLPl 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



004737 010714' 
103411 

016501 000002 
010004 

005237 002212' 

104456 

001307 

103065' 

011746' 

104406 



30»: 



JSR 

ecs 

MOV 
MOV 
INC 

ERRHRD 



CKvOOP 



PC. REWIND 
S0« 

TSSR(R5).R1 

R0.R4 

FATFLC 

ERRNO . T27RWN , PK TSSR 



tCALL TAPE REWIND COMMAND 

tBR. IF NO PROBLEM 

{GET TSSR CONTENTS 

:SET UP REWIND PACKET ADDRESS 

;BUMP COUNT 

(REWIND NOT ACCEPTED 

TRAP 
.WORD 
.k40R0 
.WORD 

I LOOP IF SELECTED 

TRAP 



CiERHRD 
711 

T27PWN 
PKTSSR 

C»CLP1 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



<5 



9345 




















9346 


075724 


013701 


101560' 




MOV 


T27BFR*6.R1 




IPICK UP XSTO 




9347 


075730 


010102 






MOV 


R1,R2 




iSET UP EXPECTED 




9348 


075732 


052702 


000002 




BIS 


♦BIT1,R2 




iSET BOT BIT IN EXPECTED 




9349 


075736 


020102 






CMP 


R1.R2 




tOOES EXP - REC'D 




9350 


075740 


001406 






BEQ 


40$ 




iBR, IF EQUAL (fiK) 




9351 


075742 


005237 


002212' 




INC 


FATFLG 




iBUMP COUNT 




9355 


075746 








EPRHRD 


ERRNO • T27B0T » EXPREC 




iTAPE NOT AT BOT AFTER REWIND 






075746 


104456 












TRAP 


C$ERHRO 




075750 


001310 












.WORD 


712 




075752 


102561' 












.WORD 


T27B0T 




075754 


015374- 












.WORD 


EXPREC 


9356 


075756 






401: 


CKLOOP 






J LOOP IF SELECTED 






075756 


104406 












TRAP 


C$CLP1 


9357 




















9358 




















9359 




















9360 








{ISSUE 


SPACE RECORDS COMMAND - VALUE 


IN 


R3 SETS NUMBER OF RECORDS 




9361 








tBIT 15 


SETS DIRECTION < O-FQRUARD 


1' 


-REVERSE 




9362 








1 












9363 




















9364 


















9365 


075760 


012703 


000001 




MOV 


«1«R3 




i PARAMETER SPACE FORWARD 1 RECORD 


9366 


075764 


004737 


010366* 




JSR 


PC. SPACE 




tCALL SPACE RECORDS ROUTINE 




9367 


075770 


103413 






BCS 


501 




1 BR. IF NO ERRORS 




9368 


075772 


016501 


000002 




MOV 


TSSR(R5).R1 




{GET TSSR CONTENTS 




9369 


075776 


012702 


000200 




MOV 


4SSR.R2 




; SET UP EXPECTED 




9370 


076002 


010004 






MOV 


R0.R4 




} SET UP REWIND PACKET ADDRESS 




9371 


076004 


005237 


002212' 




INC 


TATFLG 




tBUMP COUNT 




9375 


076010 








ERRHRD 


ERRNO, T27SCF , PKTSSR 




} SPACE RECORDS COMMAND FAILED 






076010 


104456 












TRAP 


C$ERHRD 




076012 


001311 












.WORD 


713 




076014 


104327* 












.WORD 


T27SCF 




076016 


011746' 












.WORD 


PKTSSR 


9376 


076020 






501: 


CKLOOP 






iLOOP IF SELECTED 






076020 


104406 












TRAP 


C$CLP1 


9377 




















9378 




















9379 




















9380 








} ISSUE 


SPACE RECORDS COMMAND - VALUE 


IN 


R3 SETS NUMBER OF RECORDS 




9381 








tBIT 15 
} 


SETS DIRECTION - 0-FORUARD 


1 


-REVERSE 




9382 


















9383 




















9384 




















9385 


076022 


012703 


100001 




MOV 


^100001, R3 




; PARAMETER SPACE REVERSE 1 RECORD 


9386 


076026 


004737 


010S66' 




JSR 


PC. SPACE 




}CALL SPACE RECORDS ROUTINE 




9387 


076032 


103413 






BCS 


60$ 




} BR. IF NO ERRORS 




9388 


076034 


016501 


000002 




MOV 


TSSR(R5).R1 




iGET TSSR CONTENTS 




9389 


076040 


012702 


000200 




MOV 


♦SSR.R2 




iSET UP EXPECTED 




9390 


076044 


010004 






MOV 


R0.R4 




;SET UP REWIND PACKET ADDRESS 




9391 


076046 


005237 


002212' 




INC 


FATFLG 




tBUMP COUNT 




9395 


076052 








ERRHRD 


ERRNO. T27SCF, PKTSSR 




1 SPACE RECORDS COMMAND FAILED 






076052 


104456 












TRAP 


C$ERHRD 




076054 


001312 












.WORD 


714 




076056 


104327' 












.WORD 


T27SCF 




076060 


011746' 












.WORD 


PKTSSR 


9396 


076062 






601: 


CKLOOP 






tLOOP IF SELECTED 





L5 



TSV7 - HAROUARE TESTS 1-6 
TEST 7: WRITE DATA RETRY 



MACRO mi 13 01 -FEB 64 17:54 



SEQ 270 



9597 
9396 
9399 
9400 
9401 
9402 
9403 
9404 
9405 
9406 
9407 
9406 
9409 
9410 
9411 
9412 
9413 
9414 
9416 



9419 

9420 
9421 
9422 
9423 
9424 
942S 
9429 



9430 
9431 



9432 
9433 
9434 
9435 
9436 
9437 
9436 
9439 
9440 
9441 
9442 
9443 
9444 
9445 
9446 



076062 
076064 



104406 

013737 003114' 101662' 



NOV 



FREE.T27RB 



I ADDRESS OF BUFFER 



TRAP 



CtCLPl 



076072 
076100 
076106 
076112 
076116 
076122 
076126 
076132 
076134 
076136 
076142 
076142 
076144 
076146 
076150 
076152 
076152 
076154 
076160 
076162 
076166 
076170 
076172 
076176 
076176 
076200 
076202 
076204 
076206 
076206 
076210 
076210 
076210 
076212 
07^220 
076222 
076226 



WRITE DATA RETRt .ACK.CVC-1 COMMAND 



012737 141005 101660' 

012737 000400 101666' 

012704 101660' 

010465 000000 

004737 016150' 

016501 000002 

012702 100204 
020102 
001406 

005237 002212* 

104456 
001313 
104404' 
011746' 

104406 

013701 101566' 
010102 

052702 000001 

020102 

001406 

005237 002212' 

104456 
001314 
104231' 
015374' 

104406 



104403 

023727 002212' 000017 
103402 

004737 01'»104' 



180$: 



190t: 



MOV 


«141005.T27PK3 


1 WRITE DATA RETRY.ACK.CVC-1 COMMAND 


MOV 


«256..T27SZ 


iSET UP TNE SIZE OF RECORD 


MOV 


•T27PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 


MOV 


R4.TS0B(R5) 


•ISSUE COMMAND 


JSR 


PC.UAITF 


tUAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 


MOV 


•SSR!SC!BIT2.R2 


iSET UP EXPECTED TAPE STATUS ALERT 


CMP 


R1.R2 


lARE THEY EQUAL 


BEQ 


1801 


tBR. IF OK 


INC 


FATFL6 


iBUMP COUNT 


ERRHRO 


ERRN0.T27TSA.PKTSSR 


iTSSR INCORRECT AFTER READ DATA 



CKLOOP 




iLOOP IF SELECTED 


MOV 


T27BFR*14.R1 


tGET XST3 STATUS WORD 


MOV 


R1.R2 


:SET UP EXPECTED 


BIS 


•6IT0.R2 


iSET THE RIB BIT 


CMP 


R1.R2 


(ARE THEY EQUAL 


BEQ 


190t 


tBR. IF EQUAL (GOOD) 


INC 


FATFLG 


:BUMP COUNT 


ERRHRO 


ERRNO . T27NEF . EXPREC 


(NEF SHOULD BE SET 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CIERHRO 
715 

T27TSA 
PKTSSR 

CICLPl 



CKLOOP 
ENDSUB 



CMP 
BLO 
JSR 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CtERHRD 
716 

TP7NEF 
EXPREC 

C$CLP1 



FATFLG.#15. 
9991 

PC.CKOROP 



999$; 
t ♦ 

!tEST 7. SUBTEST 3 

{verifies THAT A WRITE DATA RETRY COMMAND WITH SWB-0 
i TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE 
I (THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS 
I BYTE COUNTS AND DATA PATTERNS ARE USED. 

• 

I 



;>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10124: 

TRAP CtESUB 
tIS ERROR COUNT AT 25 
:BR. IF LESS THAN 25 
J TRY TO DROP THE UNIT 



TSV7 
TEST 



M5 



HARDWARE 
7: URITE Oi 



MACRO Ml I 13 O: FEB 84 17:54 



SEQ ^7l 



9447 
9440 
9449 



9450 
9451 
9452 
9455 
9454 
9455 
9456 
9457 
9458 
9459 
9460 
9461 
9462 
9466 
9467 



9468 
9469 
9470 
9471 
9472 
9473 
9474 
9475 
9476 
9477 
9478 
9479 
9483 
9484 



9485 

9486 
9487 
9488 
9489 
9490 
9491 
9492 
9493 
9494 
9495 
9496 
9500 



076226 
076226 
076226 
076230 
076234 
076240 



076244 

076250 
076252 
076256 
076260 
076260 
076262 
076264 
076266 
076270 
076276 



076302 
076306 
076310 
076314 
076316 
076316 
076320 
076322 
076324 
076326 
076326 



076330 
076334 
076336 
076340 
076344 
076344 



104402 

004737 104664* 

004737 104756' 

004737 105020' 



BGNSUB 



JSR 
JSR 
JSR 



PC,T27REST 

PC,T27RT2 

PC.T27RT3 



{>>>»>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T7.3: 

TRAP CfBSUB 

tSET COMMAND PACKET 

tSET UP OTHER COMMAND PACKET 

tSET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 015674' 
103407 

005237 002212' 
010001 

104455 

001315 

003642' 

011734' 

013737 002172' 
012704 101530' 



lOlSSO' 20$: 



JSR PC.SOFINIT 

BCS 20$ 

INC FATFLG 

MOV RO.Rl 

ERRDF ERRNO.SFIERR.SFIMSG 



nOV UNITN.T27DSU 
MOV •T27PACKET.R4 



tOO INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
{BUMP COUNT 

t CONTENTS OF TSSR REGISTER 
(FATAL ERROR TSSR UAS NOT OK 

TRAP 
.WORD 
.UORD 
.WORD 

tSET UP UNIT NUMBER IN PACKET 
{SUBROUTINE NEEDS PACKET ADDRESS 



CtERDF 
717 

SFIERR 
SFinSG 



URITE CHARACTERISTICS COMMAND (CALL TO UPTCHR) 



004737 010562' 
103407 

005237 002212* 
010001 

104456 

001316 

005046' 

011734' 

104406 



23>i 



JSR 
BCS 
INC 
MOV 

errhro 



CKLOOP 



PC.URTCHR 
231 

FATFLG 
RO.Rl 

ERRNO . URTMSG . SF IMSG 



: ISSUE URITE CHARACTERISTICS 
tBR. IF COMMAND ISSUED OK 
jBUMP COUNT 

sSAVE CONTENTS OF TSSR 
(URITE CHARACTERISTISC FAILED 

TRAP 
.UORD 
.WORD 
.UORD 

(LOOP IF SELECTED 

TRAP 



OERHRD 
718 

URTMSG 
SFIMSG 

C»CLP1 



(ISSUE REUIND COMMAND TO SELECTED TAPE DRIVE 



004737 010714' 

103407 

010004 

005237 002212' 
104456 



JSR PC, REUIND 

BCS 30> 

MOV R0.R4 

INC FATFLG 

ERRHRD ERRN0.T27RUN.PKTSSR 



(CALL TAPE REWIND COMMAND 

tBR. IF NO PROBLEM 

: SET UP REWIND PACKET ADDRESS 

(BUMP COUNT 

{REWIND NOT ACCEPTED 

TRAP 



C*ERHRO 



N5 



TSV7 
TEST 



■ HARDWARE TESTS 1 0 
7: WRITE DATA RETRY 



9501 

9502 
9505 
9504 
9505 
9506 
9507 
9508 
9509 
9510 
9511 
9512 
9513 
9514 
9516 



9519 

9520 
9521 
9522 
9523 
9524 
9525 
9526 
9527 
9528 
9529 
9530 
9531 
9532 
9533 
9534 
9535 
9536 
9537 
9538 
9539 
9540 
9544 



9545 

9546 
9547 
9548 
9549 



076346 
076350 
076352 
076354 
076354 



076356 
076362 
076364 
076370 
076372 
076374 
076400 
076400 
076402 
076404 
076406 
076410 
076410 
076412 
076416 



076424 
076432 
076436 
076440 
076444 
076450 
076454 
076460 
076464 
076470 
076472 
076474 
076500 
076500 
076502 
076504 
076506 
076510 
076510 



001317 

103065' 

011746' 

104406 



MACRO M1113 Ol-FEB-84 17:54 



30$ : CKLOOP 



SEQ 272 



iLOOP V tfLECTCO 



.WORD 719 

.WORD T27RWN 

.WORD PKTSSR 

TRAP CtCLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 101560' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001320 
102561' 
015374' 

104406 

012703 000024 

013737 003114* 101662' 



401: 



NOV 
NOV 
BIS 
CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 



T27BFR»6.R1 

R1.R2 

«BIT1.R2 

R1.R2 

401 

FATFLG 

ERRNO . T27B0T . EXPREC 



MOV 
MOV 



#20. .R3 
FREE.T27WB 



I PICK UP XSTO 

I SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

I DOES EXP - REC'D 

tBR. IF EQUAL (OK) 

(BUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

(LOOP IF SELECTED 

TRAP 

(STARTING RECORD SIZE 
(STARTING WRITE BUFFER ADDRESS 



C9ERHRD 

720 

T27B0T 
EXPREC 

C»CLP1 



WRITE DATA.CVC-l.ACK COMMAND 



010300 



020102 
001406 



104456 

001321 

005103' 

011746' 

104406 



140005 101660' 65$: 


MOV 


♦140005.T27PK3 


(WRITE DATA.CVC-l.ACK COMMAND 


101660' 


MOV 


•T27PK3.R4 


(SET UP R4 WITH PACKET ADDRESS 




MOV 


R3.R0 


(SET PATTERN IN CORRECT REGISTER 


017324' 


JSR 


PC.FILLMEM 


(FILL MEMORY WITH RECORD SIZE 


101666* 


MOV 


R3.T27SZ 


(SET UP RECORD SIZE IN PACKET 


000000 


MOV 


R4.TSDB(R5) 


(ISSUE COMMAND 


016150' 


JSR 


PC.WAITF 


(WAIT FOR SSR TO SET 


000002 


MOV 


TSSR(RS}.R1 


(GET TSSR CONTENTS 


000200 


MOV 


•SSR.R2 


(SET UP EXPECTED 




CMP 


R1.R2 


(ARE THEY EQUAL 




BEQ 


80 1 


(BR, IF OK 


002212' 


INC 


FATFLG 


(BUMP COUNT 




ERRHRO 


ERRNO . WRTERR .PKTSSR 


(TSSR INCORRECT AFTER WRITE DATA 



80t: 



CKLOOP 



(LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CtERHRD 
721 

WRTERR 

PKTSSR 

C»CLP1 



(WRITE DATA RETRY. CVC-l.ACK COMMAND 



TSV7 HARDUARE TESTS 1-8 
TEST 7: URXTE DATA RETRY 



MACRO H1115 Ol-FEB 64 17tS4 



B6 



SEO 275 



9550 
«»55l 
9552 
9555 
9554 
9555 
9556 
9557 
9558 
9559 
9560 
9564 



9565 

9566 
9567 
9568 
9569 
9570 
9571 
9572 
9575 
9574 
9575 
9576 
9577 
9578 
9579 
9585 



9584 

9585 
9586 
9587 
9588 
9589 
9590 
9591 
9592 
9595 
9594 
9595 
9596 
959' 
9601 



076512 
076520 
076524 
076550 
076554 
07S540 
076542 
076544 
076550 
076550 
076552 
076554 
076556 
076560 
076560 
076562 
076564 
076570 



076572 
076576 
076600 
076602 
076606 
076606 
076610 
076612 
076614 
076616 
076616 



076620 
076624 
076626 
076652 
076654 
076656 
076642 
076642 
076644 
076646 
076650 



012757 141005 101660' 

010465 000000 

004757 016150' 

016501 000002 

012702 000200 

0201'' 

00140:> 

0C^?:7 C '>212' 

104456 

001522 
104466' 
011746' 

104406 

005725 

020527 000050 
001515 



nov 


•141005. T27PK5 


lURITE DATA RETRY. CVC« 


l.ACK 


COrtlAND 


nov 


R4.TSDB(R5> 


1 ISSUE COrtlANO 




JSR 


PC.WAITF 


lUAIT FOR SSR TO SET 






HOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 






HOV 


•SSR.R2 


iSET UP EXPECTED 






CMP 


Rl.Rc 


lARE THEY EQUAL 






BEG 


<«0I 


iSR. IF OK 






INC 


FATFLC 


iBUMP COUNT 






ERRHRO 


ERRNO . T27URF . PK TSSR 


iTSSR INCORRECT AFTER 


URITE 


0AT4 RETR. 



901: 



CKLOOP 

TST 
CUP 



(RS)» 

R5.M0. 

651 



TRAF 
.UORO 
.UORO 
.UORO 

tLOOP IF SELECTED 

TRAP 

tBUnP RECORD SIZE COUNTER 

I AT 40 SIZE YET 

iBR. IF NORE RECORDS TO URITE 



ISSUE REMIND COrtMNO TO SELECTED TAPE DRIVE 



004757 010714* 

105407 

010001 

005257 002212' 

104456 

001525 

105065* 

015574* 

104406 



JSR 
8CS 
flOV 
INC^ 



2S0I: CKLOOP 



PC. REMIND 
2501 
RO.Rl 
FATFLG 

ERRNO. r27RMN.EXPREC 



I CALL TAPE REWIND CONMAND 

iBR. IF NO PR06LEH 

I SAVE TSSR 

I BUMP COUNT 

•REMIND NOT ACCEPTED 

TRAP 
.UORO 
.UORO 
.UORO 

I LOOP IF SELECTED 

TRAP 



READ fCSSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



015701 101560' 
010102 

052702 000002 

020102 

001406 

005257 002212' 

104456 
001524 
102S61' 
015574' 



nov T27BrR*6.Rl 

MOV R1.R2 

BIS 4BIT1 92 

CMP Rl.R? 

BEQ 2401 

INC FATFLG 

ERRHRO ERRNO. T27B0T.EXPREC 



I PICK UP XSTO 

tSET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

iDOES EXP • REC'O 

iBR. IF EQUAL (OK) 

I BUMP COUNT 

{TAPE NOT AT BOT AFTER REUINO 

TRAP 
.UORO 
.UORO 
.UORO 



CtER»«0 

722 

T27URr 
PKTSSR 

C»CLP1 



C«ER>«0 

72S 

T27quN 
EX -«EC 

CICLPl 



CtERHRO 
724 

T2-^0T 
EXPREC 



C6 



MACRO mi 15 01 -FEB 04 17:54 



SEQ 274 



9602 

9605 
9604 
9605 
9606 
9607 
9606 
9609 
9610 
9611 
9612 
961S 
9614 
9615 
9616 
9617 
9616 
9619 
9620 
9621 
9625 



9626 

9627 
9628 
9629 
96S0 
9631 
9652 
9633 
9654 
9635 
9639 



9640 

9641 
9642 
9643 
9644 
9645 
9646 
9647 
9648 

9649 
9650 



076652 
076652 
076654 

076660 



104406 



076666 
076674 
076700 
076704 
076710 
076714 
076720 
076724 
076726 
076730 
076734 
076734 
076736 
076740 
0/6742 
076744 
076744 
076746 
076752 
076754 
076760 
076762 
076764 
076766 
076770 
076772 
076776 
076776 
077000 
077002 
077004 
077006 
077006 
077010 
077012 
077014 
077016 
077020 
077022 
077026 
077030 
077030 
077032 
077032 
077032 
077032 



020102 
001406 



104456 

001325 

005176' 

011746' 

104406 

013702 003114* 
010304 

162704 000024 

060204 

021403 

001410 

011401 

010302 

00S237 002212' 

104456 

001326 

104546' 

015374' 

104406 
005724 
160204 
020403 
001360 
005723 

020327 000050 
001317 

104406 







2401: CKLOOP 




iLOOP IF SELECTED 










TRAP 


000024 




MOV 


*20. .R5 


(STARTING RECORD SIZE 


003114' 


101662' 


HOV 


FREE,T27RB 


1 START INC READ BUFFER ADDRESS 






.DiTAn MAT A A^V 
* 


uunriHwu 








c03 • s nu V 


VlUVWlf ItrKRO 


• OCAn HAT A A/^V ^HMiAktf^ 






MOW 

nuv 


• 1 C r rl\ ^ « 


• CC T 1 tf> DA LfTTM DAi'VC T Arkf\OCCC 






nuv 


T07C7 


• CFT 10 OPrnon CT7Cr TiLi DACVC T 






Mflll 

nuv 




m TCCi rrjiBIJUun 

1 i9duc cunnM^v 


016150* 






PC. yAITF 


lUAIT FOP rO ^ET 


000002 




HOV 


TSSR(R5),R1 


iGET TSSR CONTENTS 


000200 




flOV 


•SSR.R2 


iSET UP EXPECTED 






CMP 


R1.R2 


lARE THEY EQUAL 






BEQ 


280t 


iBR. IF OK 


002212' 




INC 


FATFLC 


iBUMP COUNT 






ERRHRD 


ERRNO.ROERR.PKTSSR 


iTSSR INCORRECT AFTER READ DATA 



CICLPl 



280t: 



2851: 



CKLOOP 




iLOOP IF SELECTED 






TRAP 


MOV 


FREE.R2 


iGET BUFFER ADDRESS 


MOV 


R3.R4 


iGET RECORD SIZE 


SUB 


•20. .R4 


•POINT BACK TO 1ST RECORD 


ADO 


R2,R4 


1 POINT TO 1ST LOC IN BUFFER 


CMP 


(R4).RS 


iDATA WRITTEN - READ 


BEQ 


290t 


tBR. IF DATA OK (GOOD) 


MOV 


(R4).R1 


tPICK UP BAD DATA 


MOV 


R3.R2 


tSET UP EXPECTED 


INC 


FATFLC 


tBUMP COUNT 


ERRhRO 


ERRNO. T270TA.EXPREC 


lOATA IN BUFFER NOT CORRECT 



TRAP CIERHRO 

.WORD 725 

.WORD RDERR 

.WORD PKTSSR 

C»CLP1 



290ti 



3001 1 
330* ! 



CKLOOP 

TST 
SUB 
CMP 
BNE 
TST 
CMP 
BNE 

CKLOOP 



ENDSUB 



tLOOP IF SELECTED 



(R4)» 

R2.R4 

R4.R3 

285 1 

(R5)» 

R5.«40. 

265 1 



TRAP 
.UORO 
.WORD 
.UORO 

TRAP 



C*ERrt)0 

726 

T27DTA 
EXPREC 

CICLPl 



104403 



iBUMP TO NEXT ADDRESS 
tBACK TO RECORD SIZE 
I AT END OF RECORD VET 
I BR. IF MORE DATA TO C»CCK 
tBUMP RECORD SIZE 
iDONE YET 

tBR. IF NOT DONE YET (MORE READS) 
tLOOP IF SELECTED 

TRAP C»ClP1 

!>>>>>>>>>>»> END SUBTEST >>»»>>>>»*•«* 
L 10125: 

TRAP CtESLe 



D6 



MACRO HI lis 01 FEB -64 17i54 



SEQ 275 



9651 077034 

9652 077042 
965S 077044 
9654 077050 
9655 

9656 
9657 
965« 
9659 
9660 
9661 
9662 

9665 
9666 
9667 

9668 077050 
077050 
077050 

9669 077052 

9670 077056 

9671 077062 

9672 077066 
9673 

9674 
9675 
9676 
9677 
9678 
9679 



023727 002212* 000017 
103402 

004737 017104' 



999»: 



CMP 
BLO 
JSR 



FATFLC.#15. 
9991 

PC.CKOBOP 



lis ERHOR COUNT AT 25 
I BR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



I ♦ 

I TEST 7, SUBTEST 4 

jvERIFIES THAT A WRITE DATA RETRY COHHANO WITH SUB-1 

I TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE 

I (THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS 

iBYTE COUNTS AND DATA PATTERNS ARE USED. 

I 

I 

I 

I - 



104402 
004737 
004737 
004737 
012737 



104664' 
104756* 
105020' 
176750 



101712' 



BGNSUB 



JSR 
JSR 
JSR 
NOV 



PC.T27REST 
PC.T27RT2 
PC,T27RT3 
•65000.. T270LY 



!>>>>>>>>>>>> BEGIN SUBTEST 
T7.4: 

TRAP 

I SET COmAND PACKET 
I SET UP OTHER COHMAND PACKET 
I SET UP OTHER COMHAND PACKET 
t SET UP DELAY COUNTER 



>>>>>>>>>>>> 



CtBSUB 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



9680 077074 


004737 


015674* lot: 


JSR 


PC.SOFINIT 


lOO INITIALIZE ON CONTROLLER 




9681 077100 


10S426 




BCS 


20* 


tBR IF INIT WAS OK 




9682 077102 






DELAY 


250 


1 DELAY ABOUT .25 SEC 




077102 


012727 


000250 






MOV 


♦250.(PC)» 


077106 


000000 








.WORD 


0 


077110 


013727 


002116' 






MOV 


L»DLY.(PC)» 


077114 


000000 








.WORD 


0 


077116 


005367 


177772 






DEC 


-6(PC) 


077122 


001375 








BNE 


. 4 


077124 


005367 


177756 






DEC 


-22(PC) 


077130 


001367 








BNE 


.-20 


9683 077132 


005337 


101712* 


DEC 


T270LY 


iBUHP COUNTER 




9684 077136 


001356 




BNE 


lot 


iBR. IF COUNTER NOT DONE 




9685 077140 


005237 


002212' 


INC 


FATFLC 


tBUMP COUNT 




9689 077144 


010001 




nov 


RO.Rl 


1 CONTENTS OF TSSR REGISTER 




9690 077146 






ERROF 


ERRNO . SF lERR . SF IMSG 


1 FATAL ERROR TSSR WAS NOT OK 




077146 


104455 






TRAP 


CtEROF 


077150 


001327 








.WORD 


727 


077152 


003642' 








.WORD 


SFIERR 


077154 


011734' 








. WORD 


SFIMSG 


9691 077156 


013737 


002172' 101550' 201: 


HOV 


UNITN.T27DSW 


iSET UP UNIT (DRIVE) NUMBER 




9692 077164 


012704 


101530' 


NOV 


•T27PACKET.R4 


1 SUBROUTINE NEEDS PACKET ADDRESS 


9693 












9694 














9695 














9696 




iwRITE 


CHARACTERISTICS COMHAND (CALL 


TO WRTCHR) 





E6 



TSV7 ■ HAROMARE TESTS 1-0 
TEST 7: WRITE DATA RETRY 



MACRO M1113 01 -FEB 84 IT: 54 



SEQ 276 



9697 
9696 
9699 
9700 
9701 
9702 
9706 
9707 



9706 

9709 
9710 
9711 
9712 
971S 
9714 
9715 
9716 
9717 
9716 
9719 
9720 
9724 



9725 

9726 
9727 
9726 
9729 
9750 
9751 
9752 
9755 
9734 
9755 
9756 
9757 
9756 
9742 



9745 

9744 

9745 
9746 
9747 



077170 
077174 
077176 
077202 
077204 
077204 
077206 
077210 
077212 
077214 
077214 



077216 
077222 
077224 
077250 
077252 
077256 
077256 
077240 
077242 
077244 
077246 
077246 



077250 
077254 
077256 
077262 
077264 
077266 
077272 
077272 
077274 
077276 
077500 
077502 
077502 
077504 
077310 



004757 010562' 
105407 

005257 002212' 
010001 

104456 

001550 

005046' 

011754' 

104406 



231: 



JSR 
BCS 
INC 
MOV 

ERRHRO 



CKLOOP 



PC.URTCHR 
251 

FATFLG 
RO.Rl 

ERRNO . URTMSG . SF IMSG 



I ISSUE WRITE CHARACTERISTICS 
iBR. IF COrtlANO ISSUED OK 
(BUMP COUNT 

I SAVE CONTENTS OF TSSA 
I WRITE CHARACTERISTISC FAILED 

TRAP 
. MOWO 
.WORD 
.UORO 

iLOOP IF SELECTED 

TRAP 



ISSUE REUIND COMMAND TO SELECTED TAPE DRIVE 



004757 010714* 
105411 

016501 000002 
010004 

005257 002212- 

104456 

001551 

105065* 

011746' 

104406 



301: 



JSR 
BCS 
MOV 
MDV 

I NC ^ 
ERRHRO 



CKLOOP 



PC. REUIND 
SOI 

TSSR(R5).R1 

R0,R4 

FATFLG 

CRRND. T27mM.PKTSSR 



I CALL TAPE REUIND COMMAND 
iBR. IF NO PROBLEM 
I GET TSSR CONTENTS 
iGET PACKET ADDRESS 
tBUMP COUNT 
tREUIND NOT ACCEPTED 



iLOOP IF SELECTED 



TRAP 
.UORO 
.UORO 
.UORO 

TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



015701 101560* 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 

001552 

102561' 

01SS74' 

104406 

012705 000024 

015757 003114' 101662' 



40»: 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 



T27BFR»6.R1 

R1.R2 

46IT1.R2 

R1.R2 

401 

FATFLG 

ERRNO. T27B0T .EXPREC 



CIER>«D 
728 

URTMSG 
SFIMSC 

CtCLPl 



C«£R»«0 
729 

T27RUN 
PKTSSR 

C«CLP1 



MDV 
MOV 



«20. .R3 
FREE.T27UB 



I PICK UP XSTO 

I SET UP EXPECTED 

(SET BOT BIT IN EXPECTED 

lOOES EXP - REC'D 

>BR. IF EQUAL (OK) 

I BUMP COUNT 

I TAPE NOT AT BOT AFTER REUINO 

TRAP 
.UORO 
.UORO 
.UORO 

I LOOP IF SELECTED 

TRAP 

{STARTING RECORD SIZE 
(STARTING URITE BUFFER ADDRESS 



CtERHRO 
750 

T2780T 
EXPREC 

CICLPl 



TSV7 • HAROUARE TESTS 1*8 
TEST 7: WRITE DATA RETRY 
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F6 



SEQ 277 



9748 
















9749 






sURITP 


DATA rwC 


• t APK rnMHAMH 












1 










^ » A 
















Q7^ 

^ f 




















Ol P7X7 


1AIW)5 lAIAtf^O* l%5f* 


MOW 








97S4 


0775^4 






MOW 

• tV w 


ATP7PKS R4 


i^FT IJP DA UTTM DArirPT Ani%OPCC 




97SS 










R3 RD 

n <j 9 T^v 


,ccT PATTPPia roDDprT DrrrcTCD 




97^ 








J^R 


PC FTLLMEM 


• PTl 1 HPHnPY UTTM DPrnOn CT7P 




9757 






XVA vvO 


MOW 
nv V 


R5 TP757 






9758 


077S4P 




oooooo 

www 


MOW 

1 IV V 


R4 T^t)RfR5^ 






9759 


077346 


004737 


016150' 


JSR 


PC UAITF 


I WAIT FOR SSR TO SET 




9760 


077352 


016501 


000002 


MOV 


TS^RrR51 Rl 


iGET TSSR CONTENTS 




9761 


077556 


012702 

V AC » wC 


000200 

Www w 


MOV 


d^^R R2 


iSET UP EXPECTED 




9762 


077362 


020102 




CMP 


Rl R2 


,ARE THEY EQUAL 




9763 


077364 


001406 






801 


jBR. IF OK 




9764 


077366 


005237 


002212' 


INC 


FATFLG 


J BUMP COUNT 




9768 


077372 






ERRHRD 


ERRNO • URTERR , PKTSSR 


tTSSR INCORRECT AFTER WRITE DATA 




077372 


104456 








TRAP 


CIERHRD 




077374 


001333 








.WORD 


731 




077376 


005103' 








.WORD 


WRTERR 




077400 


011746' 








WORD 


PKTSSR 


9769 


077402 




801: 


CKLOOP 




iLOOP IF SELECTED 






077402 


104406 








TRAP 


CtCLPl 



9770 
9771 
9772 
9775 
9774 
9775 
9776 
9777 
9778 
9779 
9780 
9781 
9782 
9783 
9784 
9788 



9789 

9790 
9791 
9792 
9793 
9794 
9795 
9796 
9797 
9798 
9799 
9800 



URITE DATA RETRY. ACK.SUB-1 COMMAND 



077404 


012737 


111005 101660' 


MOV 


#111005, T27PK3 


lURZTE DATA RETRY .ACK.SUB-1 COMMAND 


077412 


010465 


OOOOOO 


MOV 


R4.TS0B(R5) 


t ISSUE COMMAND 




077416 


004737 


016150' 


JSR 


PC.WAITr 


iUAIT FOR SSR TO SET 




077422 


016501 


000002 


MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 




077426 


012702 


000200 


MOV 


♦SSR.R2 


1 SET UP EXPECTED 




077432 


020102 




CMP 


R1.R2 


(ARE TMEY EQUAL 




077434 


001406 




BEQ 


90> 


iBR. IF OK 




077436 


005237 


002212' 


INC 


FATFLG 


iBUMP COUNT 




077442 






ERRHRO 


ERRNO. T27WRF .EXPREC 


iTSSR INCORRECT AFTER URITE DATA RETRY 


077442 


104456 








TRAP 


CIERMRD 


077444 


001334 








.UORD 


732 


077446 


104466* 








.WORD 


T27URF 


077450 


015374' 








WORD 


EXPREC 


077452 




90»: 


CKLOOP 




.LOOP IF SELECTED 




077452 


104406 








TRAP 


CICLPl 


077454 


005723 




TST 


(R3)» 


tBUMP RECORD SIZE COUNTER 




077456 


020327 


000050 


CMP 


R3.«40. 


|AT 40 SIZE YET 




077462 


001315 




BNE 


65 > 


iBR. IF MORE RECORDS TO URITE 





I ISSUE REUIND COMMAND TO SELECTED TAPE DRIVE 



077464 004737 010714' 



JSR PC. REUIND 



I CALL TAPE REUIND COMMAND 



TSV7 . HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 



MACRO H1113 01-FEB 84 17:54 



G6 



SEQ 278 



9601 
9602 
9603 
9604 
9606 



9609 

9610 
9611 
9612 
9815 
9614 
9615 
9616 
9617 
9616 
9619 
9620 
9621 
9622 
9626 



9627 

9626 
9629 
9630 
9631 
9632 
9633 
9634 
9635 
9636 
9837 
9838 
9639 
9640 
9641 
9642 
9643 
9644 
9645 
9846 
9850 



9851 



077470 
077472 
077476 
077500 
077504 
07 7504 
077506 
077510 
077512 
077514 
077514 



077516 
077522 
077524 
077530 
077532 
077554 
077540 
077540 
077542 
077544 
077546 
077550 
077550 
077552 
077556 



077564 
077572 
077576 
077602 
077606 
077612 
077616 
077622 
077624 
077626 
077652 
077632 
077634 
077636 
077640 
077642 
077642 



103411 

016501 000002 
010004 

005237 002212' 

104456 

001355 

105065' 

011746' 

104406 



BCS 
MOV 
MOV 
INC 

ERRHRO 



2301: CKLOOP 



250 1 

TSSR(R5).R1 

R0.R4 

rATFLG 

ERRNO. T27RUN.PKTSSR 



I BR. IF NO PROBLEM 
I GET TSSR CONTENTS 
I GET PACKET ADDRESS 
iBUHP COUNT 
I REWIND NOT ACCEPTED 



iLOOP IF SELECTED 



TRAP 
.UORD 
.WORD 
.WORD 

TRAP 



CtERHRO 
755 

T27RWN 
PKTSSR 

CfCLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



015701 101560' 
010102 

052702 000002 

020102 

001406 

005237 002212* 

104456 

001536 

102561' 

015374* 

104406 

012705 000024 

015737 003114' 101662' 



MOV 
MOV 
BIS 
CMP 
BEQ 
INC 

ERRHRD 



240»: CKLOOP 



T278FR»6.R1 

R1.R2 

«6IT1.R2 

R1.R2 

2401 

FATFLG 

ERRN0.T27B0T.EXPREC 



MOV 
MOV 



♦20.. R3 
FREE.T27RB 



I PICK UP XSTO 

t SET UP EXPECTED 

:SET BOT BIT IN EXPECTED 

tOOES EXP - REC'O 

iBR. IF EQUAL COK) 

iBUMP COUNT 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 

{STARTING RECORD SIZE 

t STARTING READ BUFFER ADDRESS 



CtERMW 
754 

T27B0T 
EXPREC 

CICLPI 



020102 
001406 



104456 

001557 

005176' 

011746' 

104406 



IrEAD DATA.ACK COMMAND 






100001 101660' 2651: 


MOV 


♦100001.T27PK5 


(READ DATA.ACK COMMAND 




101660' 


MOV 


#T27PK5,R4 


(SET UP R4 WITH PACKET ADDRESS 




101666' 


MOV 


R3.T27SZ 


sSET UP RECORD SIZE IN PACKET 




000000 


MOV 


R4.TSDB(RS) 


(ISSUE COMMAND 




016150' 


JSR 


PC.WAITF 


I WAIT FOR SSR TO SET 




000002 


MOV 


TSSR(RS).R1 


tGET TSSR CONTENTS 




000200 


MOV 


♦SSR.R2 


1 SET UP EXPECTED 






CMP 


RI.R2 


lARE THEY EQUAL 






BEQ 


2601 


iBR. IF OK 




002212' 


INC 


FATFLG 


iBUMP COUNT 






ERRHRO 


ERRNO . ROERR . PK T SSR 


(TSSR INCORRECT AFTER READ DATA 








TRAP 


OERHRO 








.WORD 


735 








.WORD 


ROERR 








.WORD 


PKTSSP 


2801: 


CKLOOP 




;LOOP IF SELECTED 










TRAP 


C»CLPl 



H6 



TSV7 HARDWARE TESTS 1 8 
TEST 7: WRITE DATA RETRY 





077644 


013702 


003114* 


9653 


077650 


010304 




9854 


077652 


162704 


000024 


9855 


077656 


060204 




9656 


077660 


000303 




9657 


077662 


021403 




9658 


077664 


001410 




9859 


077666 


011401 




9660 


077670 


010302 




9661 


077672 


005237 


002212' 


9665 


077676 








077676 


104456 






077700 


001340 






077702 


104546' 






077704 


015374' 




9666 


077706 








077706 


104406 




9867 


077710 


005724 




9866 


077712 


160204 




9869 


077714 


000303 




9670 


077716 


020403 




9671 


077720 


001356 




9872 


077722 


005723 




9873 


077724 


020327 


000046 


9674 


077730 


001315 




9675 


077732 








077732 


104406 




9676 


077734 








077734 








077734 


104403 




9877 


077736 


023727 


002212' 


9878 


077744 


103402 




9679 


077746 


004737 


017104' 


9880 


077752 







9881 
9882 
9863 
9884 
9885 
9886 
9887 
9888 
9889 
9890 
9891 
9892 
9893 
9894 
9895 
9896 
9897 
9898 
9899 
9900 
9901 
9902 
9903 



2651 ! 



TFR A4 


1 7 » S4 




HOV 


FREE.R2 


iGET BUFFER ADDRESS 


MOV 


RS.R4 


sGET RECORD SIZE 


SUB 


•20. ,R4 


t POINT BACK TC 1ST RECORD 


ADD 


R2.R4 


1 POINT TO 1ST LOC IN BUFFER 


SWAB 


RS 


iSWAP BYTES SWB*1 ETC. 


CHP 


(R4),R5 


iDATA WRITTEN • READ 


BEQ 


290$ 


iBR. IF DATA OK (GOOD) 


nov 


(R4).R1 


iPICK UP BAD DATA 


hOV 


RS.R2 


iSET UP EXPECTED 


INC 


FATFLG 


iBUMP COUNT 


ERRHRD 


ERRN0.T27DTA.EXPREC 


tDATA IN BUFFER NOT CORRECT 



SEQ 279 



290<i 



300*; 



CKLOOP 

TST 

SUB 

SUAB 

CMP 

BNE 

TST 

CMP 

BNE 

CKLOOP 
ENDSUB 



CMP 
BLO 
JSR 



I LOOP IF SELECTED 



(R4)* 
R2.R4 
R3 

R4,R3 

285$ 

(R3)* 

R3.«38. 

26S$ 



FATFLG. #15. 
999* 

PC.CKOROP 



TRAP 
.UORD 
.UORD 
.WORD 

TRAP 



C*ERHRD 
756 

T270TA 
EXPREC 

C*CLPl 



999*: 
; ♦ 

!tEST 7. SUBTEST 5 

{verifies THAT A WRITE DATA RETRY COMMAND IS 
iPERFCRMING THE "ERASE" PART OF THE OPERATION BY 
t PERFORMING THE FOLLOWING SERIES OF STEPS. 



I BUMP TO NEXT ADDRESS 
{BACK TO RECORD SIZE 
I PUT R5 BACK INTO SHAPE 
I AT END OF RECORD YET 
iBR. IF MORE DATA TO CHECK 
iBUMP RECORD SIZE 
tOONE YET 

iBR. IF NOT DONE YET (MORE READS) 
I LOOP IF SELECTED 

TRAP C*CLP1 
{>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10126: 

TRAP C*ESUB 
:IS ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
{TRY TO DROP THE UNIT 



il. 

t 

I 

I 

t 

|2. 

t 

t 

I 

; 

i3. 

I 

i 



THE TAPE IS REWOUND AND A SERIES OF RECORDS ARE 
WRITTEN WITH THE NORMAL WRITE DATA COMMAND. THIS 
SHOULD RESULT IN RECORDS SEPARATED BY THE 
STANDARD INTERRECORD GAP. 

A PROGRAM TIMING VALUE IS CALIBRATED BY REWINDING 
THE TAPE AND THEN CONUTING THE NUMBER OF CYCLES 
THROUGH A PROGRAMMED LOOP REQUIRED TO SPACE OVER 
THE SERIES OF RECORDS WRITTEN IN PREVIOUS 
STEP 

THE TAPE IS AGAIN REWOUND AND THE SAME SERIES OF 
RECORDS WRITTEN AGAIN. THIS TIME USING THE WRITE 
DATA RETRY COMMAND. THIS SHOULD RESULT IN 



16 



TSV7 - HAROUARE TESTS I 8 
TEST 7: URITE DATA RETRY 



9904 

9905 
9906 
9907 
990» 
9909 
9910 
9911 
9912 
991S 
9914 
9915 
9916 
9917 
9916 



MACRO M1113 01-FEB-e4 17:54 



SEO 280 



9919 
9920 
9921 
9922 
9923 
9924 
9925 
9926 
9927 
9928 
9929 
9950 
9931 
9932 
9933 
9934 
9935 



077752 
077752 
077752 
077754 
077760 
077764 
077770 
077774 
100000 
100004 



RECORDS SEPARATED BY A LONG INTERRECORD GAP. 

THE TAPE IS AGAIN REWOUND . THE SPACING CONHAND 
ISSUED. AND THE NUMBER OF TIMniNG LOOP CYCLES 
COUNTED TO COMPLETE THE OPERATION. 

THE TWO LOOP COUNTS ARE COMPARED. CHECKING TO SEE 
THAT THEY DIFFER BY A SIGNIFICANT AMOUNT. 



104402 

005037 002214* 

005037 101706' 

005037 101710' 

004737 104664' 

004737 104756' 

004737 105020' 

012737 176750 101712* 



BGNSUB 



CLR 
CLR 
CLR 
JSR 
JSR 
JSR 
MOV 



INTRECV 

T27CNT 

T27CNU 

PC.T27REST 

PC.T27RT2 

PC.T27RT3 

•65000.. T270LY 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T7.3: 

TRAP CtBSUB 

I INTERRUPT INDICATOR 

(TIMER FOR URITE DATA SPACING 

t TIMER FOR URITE DATA RETRY SPACING 

iSET C0»t1AN0 PACKET 

I SET UP OTHER COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 

I SET UP DELAY COUNTER 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



9936 
9937 
9938 
9942 
9943 



9944 
9945 

9946 
9947 
9948 
9949 



100012 
100016 
100020 
100020 
100024 
100026 
100032 
100034 
100040 
100042 
100046 
100050 
100054 
100056 
100062 
100064 
100064 
100066 
100070 
100072 
100074 



004737 015674' 10$: 
103426 

012727 000250 
000000 

013727 002116' 
000000 

005367 177772 
001375 

005367 177756 
001367 

005337 101712' 
001356 

005237 002212' 
OlOOOl 

104455 
001341 
003642' 
011734' 

013737 002172' 101550' 20t: 



JSR 
BCS 
DELAY 



PC.SOFINIT 

20t 

250 



100102 012704 101530' 



DEC 
BNE 
INC 
MOV 
ERRDF 



MOV 
MOV 



r270LY 

lot 

FATFLC 
RO.Rl 

ERRNO . SFIERR . SF IMSG 



UNITN.T270SU 
•T27PACKET.R4 



(DO INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
t DELAY ABOUT .25 SEC 

MOV 

.UORO 

MOV 

.UOPD 

DEC 

BNC 

DEC 

BNE 

(BUMP COUNTER 

I BR. IF COUNTER NOT DONE 

»BUMP COUNT 

t CONTENTS OF TSSR REGISTER 
i FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
UORO 

I SET UP UNIT NUMBER 



♦250. (PC)* 
0 

L$0LV.(PC)» 
0 

-6CPC) 
.-4 

-22(PC) 
. 20 



C»ER0F 

737 

SFIERR 
SFIMSG 



{SUBROUTINE NEEDS PACKET ADDRESS 



J6 



TSV7 HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 



9950 
9951 
9952 
9953 
9954 
9955 
9956 
9960 
9961 



MACRO HlllS 01 -FEB -84 17:54 



SEQ 281 



iWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



9962 

9963 
9964 
9965 
9966 
9967 
9968 
9969 
9970 
9971 
9972 
9973 
9974 
9978 



9979 

9980 
9981 
9982 
9983 
9964 
9985 
9986 



100106 
100112 
100114 
100120 
100122 
100122 
100124 
100126 
100130 
100132 
100132 



004737 010562' 
103407 

005237 002212' 
010001 

104456 

001342 

005046' 

011734' 

104406 



2St: 



JSR 
BCS 
INC 
MOV 

ERRHRD 



CKLOOP 



PC. WRTCHR 
23t 

FATFLG 
RO.Rl 

ERRNO . WRTMSG . SF IMSG 



I ISSUE WRITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 
I BUMP COUNT 

I SAVE CONTENTS OF TSSR 
I WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



100134 
100140 
100142 
100146 
100150 
100154 
100154 
100156 
100160 
100162 
100164 
100164 



004737 010714' 
103411 

016501 000002 
010004 

005237 002212' 

104456 
001343 
103065' 
011746* 

104406 



30«i 



JSR 
BCS 
MOV 
MOV 
INC 

ERRHRD 



CKLOOP 



PC. REWIND 
30t 

TSSR(R5).Rl 

R0.R4 

FATFLG 

ERRNO . T27RWN . PK TSSR 



iCALL TAPE REWIND COMMAND 

I BR. IF NO PROBLEM 

iGET TSSR CONTENTS 

tGET PACKET ADDRESS 

I BUMP COUNT 

I REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



CtERHRO 
730 

WRTMSG 
SFIMSG 

CICLPl 



CtERHRO 
739 

T27RWN 
PKTSSR 

C»CLP1 



9987 


100166 


013701 


101560* 


MOV 


T27BFR*6,R1 


iPICK UP XSTO 




9988 


100172 


010102 




MOV 


R1.R2 


: SET UP EXPECTED 




9989 


100174 


052702 


000002 


BIS 


•6IT1.R2 


iSET BOT BIT IN EXPECTED 




9990 


100200 


020102 




CMP 


R1.R2 


iDOES EXP - REC'D 




9991 


100202 


001406 




BEQ 


40$ 


iBR. IF EQUAL (OK) 




9992 


100204 


005237 


002212' 


INC 


FATFLG 


(BUMP COUNT 






100210 






ERRHRD 


ERRNO. T27B0T.EXPREC 


iTAPE NOT AT SOT AFTER REWIND 






100210 


104456 






TRAP 


CtERHRO 




100212 


001344 








.WORD 


740 




100214 


102561' 








.WORD 


T27B0T 




100216 


015374- 








.WORD 


EXPREC 


9997 


100220 




40t: 


CKLOOP 




J LOOP IF SELECTED 






100220 


104406 








TRAP 


CtCLPl 


9998 


100222 


012703 


000144 


MOV 


•100. .R3 


i NUMBER OF RECORDS TO BE WRITTEN 


9999 


100226 


013737 


003114' 101662' 


MOV 


FREE.T27WB 


(STARTING WRITE BUFFER ADDRESS 




10000 













Kb 



TSV7 - HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 



10001 
10002 
10003 
10004 
10005 
10006 
10007 
10006 
10009 
10010 
10011 
10012 
10013 
10014 
10015 
10016 
10020 



10021 

10022 
10023 
10024 
10025 
10026 
10027 
10026 
10029 
10030 
10031 
10032 
10033 
10034 
10035 
10039 



HACRO mil3 01 FEB -64 17:54 



SEO 262 



WRITE OATA.ACK.CVC-1 COHhANO 



100234 


012737 


140005 


101660' 


651: 


MOV 


♦140005, T27PK3 


1 WRITE DATA.ACK.CVC-1 COHHANO 




100242 


012704 


101660' 






MOV 


♦T27PK3.R4 


iSET UP M WITH PACKET ADDRESS 




100246 


012737 


000024 


101666' 




MOV 


♦20. ,T27SZ 


iSET UP RECORD SIZE IN PACKET 




100254 


010465 


000000 






MOV 


R4,TSDB(R5) 


1 ISSUE COHHAND 




100260 


004737 


016150' 






JSR 


PC.UAITF 


iWAIT FOR SSR TO SET 




100264 


016501 


000002 






MOV 


TSSR(R5),R1 


iGET TSSR CONTENTS 




100270 


01^702 


000200 






MOV 


•SSR,R2 


iSET UP EXPECTED 




1002 f 4 












HI 


8 ARE THEY EQUAL 




100276 


001406 








BEQ 


70$ 


(BR. IF OK 




100300 


005237 


002212' 






INC 


FATFLR 


sBUHP COUNT 




100304 










ERRHRD 


ERRNO . WRTERR . PKTSSR 


iTSSR INCORRECT AFTER WRITE DATA 


100304 


104456 












TRAP 


CtERHRD 


100306 


001345 












.WORD 


741 


100310 


005103* 












.WORD 


WRTERR 


100312 


011746* 












.WORD 


PKTSSR 


100314 








701: 


CKLOOP 




iLOOP IF SELECTED 




100314 


104406 












TRAP 


CtCLPl 


100316 


005303 








DEC 


R3 


iOEC RECORD COUNTER 




100320 


001345 








BNE 


651 


iBR. IF nORE RECORDS TO WRITE 





ISSUE REWIND COHHAND TO SELECTED TAPE DRIVE 



100322 
100326 
100330 
100334 
100336 
100342 
100342 
100344 
100346 
100350 



004737 010714' 
103411 

016501 000002 
010004 

005237 002212' 

104456 
001346 
103065' 
011746' 



JSR PC. REWIND 

BCS ISOt 

HOV TSSR(R5).R1 

NOV R0.R4 

INC FATFLC 

ERRHRO ERRNO. T27RUN.PKTSSR 



I CALL TAPE REWIND COHHAND 

iBR. IF NO PROBLEH 

I GET TSSR CONTENTS 

iGET PACKET ADDRESS 

iBUHP COUNT 

{REMIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 



10040 


100352 






130* : CKLOOP 




;L00P IF SELECTED 




100352 


104406 








TRAP 


10041 














10042 














10043 














10044 








iREAO HESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 


10045 














10046 














10047 














10046 


100354 


013701 


101560' 


HDV 


T278rR*6.Rl 


iPICK UP XSTO 


10049 


100360 


010102 




HOV 


R1.R2 


» SET UP EXPECTED 


10050 


100362 


052702 


000002 


BIS 


«6IT1.R2 


iSET BOT BIT IN EXPECTED 


10051 


100366 


020102 




CHP 


R1.R2 


iOOES EXP - REC'D 


10052 


100370 


001406 




BEQ 


1401 


tBR. IF EQUAL (OK) 


10053 


100372 


005237 


002212' 


INC 


FATFLG 


iBUHP COUNT 



CIERHRO 
742 

T27RWN 
PKTSSR 

CICLPl 



TSV7 ' HARDUARE TESTS 1 8 
TEST 7: WRITE DATA RETRY 



MACRO nil 15 01 -FEB 84 17:54 



L6 



SEQ 2bl 



10057 



10050 

10059 
10060 
10061 
10062 
1006S 
10064 
10065 
10066 
10067 



100376 
•00376 
130400 
100402 
100404 
100406 
100406 
100410 
100414 



104456 
001547 
102561' 
015374' 

104406 

012704 101660' 

012737 000010 101662' 



ERRHRO ERRNO . T27B0T . EXPREC 



140t: 



CKLOOP 

MOV 
MOV 



•T27PK3,R4 
•10.T27RB 



I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.UORO 
.UORO 
WORD 

»LOOP IF SELECTED 

TRAP 

I SET UP PACKET ADDRESS 

I SET UP RECORDS TO SPACE OVER 



CIERHRD 
743 

T27B0T 
EXPREC 

C»CLPl 



ACK.CVC-1. SPACE rORUARD COMMAND 



10066 


100422 


012737 


140010 101660' 


MOV 


•140010. T27PK 3 


iACK,CVC>l. SPACE FORWARD COMMAND 


10069 


1004S0 


010465 


000000 150t: 


MOV 


R4.TSDB(R5) 


i ISSUE COMMAND 




10070 


100454 


005237 


101706' 152t : 


INC 


T27CNT 


iBUMP TIMER 




10071 


100440 






DELAY 


1 


1 DELAY ABOUT lOOUS 






100440 


012727 


000001 






MOV 


•l.CPO* 




100444 


000000 








.WORD 


0 




100446 


013727 


002116' 






MOV 


L»CLY.CPC>. 




1004S2 


000000 








.WORD 


0 




100454 


005367 


177772 






DEC 


-6(PC) 




100460 


001375 








BNE 


.-4 




100462 


005367 


177756 






DEC 


-22( PC) 




100466 


001367 








BNE 


.-20 


10072 


100470 


016501 


000002 


MOV 


TSSRCR5),R1 


iGET TSSR 




10073 


100474 


032701 


000200 


BIT 


46IT7.R1 


1 CHECK FOR TSSR'S SSR SET 




10074 


100500 


001755 




BEQ 


152< 


{KEEP COUNTING UNTIL SET 




10075 


100502 


016501 


000002 


MOV 


TSSR(R5).R1 


;GET STATUS FROM TSSR 




10076 


100506 


012702 


000200 


MOV 


•SSR.R2 


iSET UP EXPECTED 




10077 


100512 


020201 




CMP 


R2.R1 


iUAS EVERYTHING OK 




10078 


100514 


001406 




BEO 


160t 


iBR. IF ALL IS WELL 




10079 


100516 


005237 


002212' 


INC 


FATFLC 


iBUMP COUNT 




10083 


100522 






ERRHRO 


ERRNO . T27SCF . PK TSSR 


1 SPACE FORWARD DIDN'T UORK OUT 






100522 


104456 








TRAP 


CtERHRD 




100524 


001350 








.UORO 


744 




100526 


104327' 








.WORD 


T27SCr 


10084 


100530 


011746* 








.UORO 


PKTSSR 


100532 




160* : 


CKLOOP 




iLOOP IF SELECTED 






100532 


104406 








TRAP 


C«CLP1 



10085 
10086 
10067 
10088 
10089 
10090 
10091 
10092 
10093 
10094 
10095 
10096 
10100 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



100534 
100540 
100544 
100546 
100550 
100554 
100554 



004737 010714' 
004737 016236' 
103407 
010001 

005237 002212' 
104456 



JSR PC. REWIND 

JSR PC.CHKTSSR 

BCS 1709 

MOV RO.Rl 

INC FATFLG 

ERRHRO ERRNO . T27RWN . PKTSSR 



I CALL TAPE REWIND COMMAND 

tSEE HOW TSSR IS 

iBR. IF NO PROBLEM 

I SAVE TSSR 

iBUMP COUNT 

i REWIND NOT ACCEPTED 

TRAP 



CiERHRD 



TSV7 
TEST 



HARDWARE TESTS 1-8 
7: URITE DATA RETRY 



M6 



MACRO MlllS 01 -FEB 84 17:54 



10101 

10102 
10105 
10104 
10105 
10106 
10107 
10108 
10109 
10110 
10111 
10112 
10113 
10114 
10118 



10119 

10120 
10121 
10122 
10123 
10124 
10125 
10126 
10127 
10128 
10129 
10130 
10131 
10132 
10133 
10134 
10135 
10136 
10137 
10138 
10142 



10143 

10144 
10145 
10146 
10147 
10148 
10149 



100556 
100560 
100562 
100564 
100564 



100634 
100642 
100646 
100654 
100660 
100664 
100670 
100674 
100676 
100700 
100704 
100704 
100706 
100710 
100712 
100714 
100714 
100716 
100720 



001351 

103065' 

011746' 

104406 



170»: CKLOOP 



I LOOP IF SELECTED 



.WORD 745 

.WORD T27RUN 

.WORD PKTSSR 

TRAP OCLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



100566 


013701 


101560' 




MOV 


T27BFR*6,R1 


iPICK UP XSTO 




100572 


010102 






MOV 


R1.R2 


iSET UP EXPECTED 




100574 


052702 


000002 




BIS 


«BIT1.R2 


iSET SOT BIT IN EXPECTED 




100600 


020102 






CMP 


R1.R2 


iDOES EXP • REC'D 




100602 


001406 






BEQ 


175$ 


iBR. IF EQUAL (OK) 




100604 


005237 


002212' 




INC 


FATFLG 


iBUMP COUNT 




100610 








ERRHRD 


ERRN0.T27B0T.EXPREC 


{TAPE NOT AT BOT AFTER REWIND 




100610 


104456 










TRAP 


CIERHRD 


100612 


001352 










.WORD 


746 


100614 


102561' 










.UORO 


T27B0T 


100616 


015374* 










.UORD 


EXPREC 


100620 






1751: 


CKLOOP 




.•LOOP IF SELECTED 




100620 


104406 










TRAP 


CtCLPl 


100622 


012703 


000144 




MOV 


•100. .R5 


{STARTING RECORD SIZE 




100626 


013737 


003114' 


101662' 177$: 


MOV 


FREE.T27UB 


(STARTING URITE BUFFER ADDRESS 





URITE DATA.CVC-l.ACK COMMAND 



012737 140005 101660' 

012704 101660' 

012737 000024 101666' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 

001353 

005103' 

011746' 

104406 

005303 
001342 



MOV 


•140005. T27PK3 


iURITE DATA.CVC-l.ACK COMMAND 


MOV 


•T27PK3.R4 


tSET UP R4 UITH PACKET ADDRESS 


MOV 


♦20..T27SZ 


:SET UP RECORD SIZE IN PACKET 


MOV 


R4.TSDB(RS) 


t ISSUE COMMAND 


JSR 


PC.UAITF 


iUAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 


tGET TSSR CONTENTS 


MOV 


•SSR.R2 


sSET UP EXPECTED 


CMP 


R1.R2 


:ARE THEY EQUAL 


BEQ 


180 1 


sBR. IF OK 


INC 


FATFLG 


tBUMP COUNT 


ERRHRO 


ERRNO . UR TERR . PK T SSR 


:TSSR INCORRECT AFTER URITE DATA 



1801: 



CKLOOP 

DEC 
BNE 



R3 
177$ 



TRAP C«ERHRD 
.WORD 747 
.WORD URTERR 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP C»CLP1 

I COUNT NUMBER OF RECORDS 
{BR. IF MORE RECORDS TO URITE 



(ISSUE REUIND COMMAND TO SELECTED TAPE DRIVE 



TSV7 
TEST 



HARDWARE TESTS 1 8 
7: WRITE DATA RETRY 



MACRO mil5 01 -FEB 84 17; 54 



N6 



SEQ 285 



lOlSO 
lOlSl 
1015? 
lOlSS 
10154 
10155 
10156 
10157 
10161 



10162 

1016S 
10164 
10165 
10166 
10167 
10168 
10169 
10170 
10171 
10172 
10173 
10174 
10175 
10176 
10180 



10181 

10162 
10183 
10184 
10185 
10186 
10)87 
10188 
10189 
10190 
10191 
10192 
10193 
10194 
10195 
10196 
10197 
10198 
10199 
10200 
10204 



100722 
100726 
100730 
100732 
100736 
100742 
100742 
100744 
100746 
100750 
100752 
100752 



100754 
100760 
100764 
100766 
100770 
100774 
101000 
101000 
101002 
101004 
101006 
101010 
101010 
101012 
101016 



101024 
101032 
101036 
101044 
101050 
101054 
101060 
101064 
101066 
101070 
101074 
101074 



004737 010714* 

103411 

010004 

016501 000002 
005237 002212' 

104456 
001354 
103065' 
011746' 

104406 



JSR 
BCS 
MOV 
MOV 
INC 

ERRHRD 



182»: CKLOOP 



PC. REWIND 
182 1 
R0,R4 

TSSR(R5).R1 
FATFLG 

ERRNO. T27RUN.PKTSSR 



I ISSUE REWIND 
iSR. If ALL IS WELL 
iCET PACKET ADDRESS 
I GET TSSR CONTENTS 
iBl»1P COUNT 
t REMIND f AILED 



t SELECT LOOP MAYBE 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CtERHRD 
748 

T27RWN 
PKTSSR 

CiCLPl 



ISSUE SPACE RECORDS COHNAND - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION • O-FQRWARD 1 -REVERSE 



012703 000001 

004737 010366' 
103411 
010004 

016501 000002 

005237 002212* 

104456 

001355 

104327' 

011746' 

104406 

012703 000144 

013737 003114' 101662* 



18S»: 



MOV 
JSR 
BCS 
NOV 
NOV 
INC 

ERRHRO 



CKLOOP 



*1..R3 
PC. SPACE 

lesi 

R0.R4 

TSSR(RS).R1 
FATFLG 

ERRNO. T27SCF .PKTSSR 



MOV 
MOV 



♦100.. R3 
FREE.T27UB 



i SPACE 1 RECORD FORWARD 
i ISSUE SPACE COMMAND 
tBR. IF COMMAND OK 
iGET PACKET ADDRESS 
I GET TSSR STATUS 
I BUMP COUNT 

i SPACE FORWARD COMMAND FAILED 

TRAP 
.WORD 
.WORD 
WORD 

{LOOP IF SELECTED 

TRAP 

;NUMBER OF RECORDS TO BE WRITTEN 
t STARTING WRITE BUFFER ADDRESS 



C«ERHRD 
749 

T27SCF 
PKTSSR 

CICLPl 



URITE DATA RETRY. ACK COMMAND 



012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 



101005 101660* 1901: 
101660* 

000024 101666* 

000000 

016150* 

000002 

000200 



002212' 



NOV M0100S.T27PK3 

MOV *T27PK3,R4 

MOV #20..T27SZ 

MOV R4.TS0B(RS) 

JSR PC.UAITF 

MOV TSSRCRS).R1 

MOV •SSR.R2 

CMP R1.R2 

BEQ 200» 

INC FATFLG 

ERRHRD ERRNO. T27W0C. PKTSSR 



I URITE DATA RETRY. ACK COMMAND 

tSET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

t ISSUE COMMAND 

tWAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

I SET UP EXPECTED 

sARE THEY EQUAL 

tBR. IF OK 

I BUMP COUNT 

tTSSR INCORRECT AFTER URITE DATA 

TRAP CtERHRD 



TSV7 
TEST 



HMtHMRC TESTS 1-8 
7: URITE DATA RETRY 



MACRO Ml 115 01 rEB 64 17] 54 



B7 



SfJ 266 



10205 

10206 
10207 
10206 
10209 
10210 
10211 
10212 
1021S 
10214 
10215 
10216 
10217 
10216 
10219 
10220 
10221 
10222 
10223 
10227 



10226 

10229 
10230 
10231 
10232 
10233 
10234 
10235 
10236 
10237 
10236 
10239 
10240 
10241 
10242 
10246 



10247 

10248 
10249 
10250 
102S1 
10252 
\0255 



101076 
101100 
101102 
101104 
101104 
101106 



101114 
101122 
101126 
101134 
101140 
101144 
101150 
101154 
101156 
101160 
101164 
101164 
101166 
101170 
101172 
101174 
101174 
101176 
101200 



101202 
101206 
101210 
101214 
101216 
101222 
101222 
101224 
101226 
101230 
101232 
101232 



001356 

103421* 

011746' 

104406 

013737 



003114' 101662* 



2001 : CKLOOP 

nOV FREE.T27Ue 



.UORO 750 

.WORD T27UDC 

.UORO PKTSSR 

I LOOP IF SELECTED 

TRAP CICLPl 
I STARTING URITE BUTFER ADDRESS 



URITE UATA.CVC-l.ACK COMMAND 



012737 140005 101660' 

012704 101660' 

012737 000024 101666' 

010465 000000 

004737 016150' 

016501 000002 

012702 000200 
020102 
001406 

005237 002212' 

104456 

001357 

005103* 

011746* 

104406 
005303 
001311 



MOV 


•140005. T27PK3 


lURITE DATA.CVC-l.ACK COMMAND 


MOV 


•T27PK3.R4 


tSET UP R4 UITH PACKET ADDRESS 


MOV 


♦20..T27SZ 


iSET UP RECORD SIZE IN PACKET 


MOV 


R4.TS0B(R5) 


t ISSUE COMMAND 


JSR 


PC.UAITF 


tUAIT FCJ» SSR TO SET 


MOV 


TSSR(R5).R1 


iGET TSSR CCNrENTS 


MOV 


«SSR.R2 


1 SET UP EXPECTED 


CMP 


R1.R2 


lARE TMEY EQUAL 


BEQ 


210t 


iBR. IF OK 


INC 


FATFLG 


iBUMP COUNT 


ERRMRD 


ERRNO.URTERR.PKTSSR 


iTSSR INCORRECT AFTER URITE DATA 



210»; 



CKLOOP 

DEC 
BNE 



R3 
190* 



TRAP CIER*«0 

.UORD 751 

.UORO URTERR 

.UORD PKTSSR 

tLOOP IF SELECTED 

TRAP C»CLP1 
I BUMP OOUN RECORD COUNTER 

iBR. IF MORE RECORDS TO URITE RETRY 



ISSUE REMIND COMMAND TO SELECTED TAPE DRIVE 



004737 010714* 
103411 

016501 000002 
010004 

005237 002212' 

104456 

001360 

103065' 

011746* 

104406 



JSR 

BCS 

MOV 

MOV 

INC ^ 

ERRHRD 



2301: CKLOOP 



PC.REUIND 
2301 

TSSR(RS).R1 

R0.R4 

FATFLG 

ERRNO. T27RUN.PKTSSR 



tCALL TAPE REUIND COMMAND 
iBR. IF NO PROBLEM 
iGET TSSR CONTENTS 
iGET PACKET ADDRESS 



I BUMP COUNT 
t REUIND NOT 



ACCEPTED 



tLOOP IF SELECTED 



TRAP 

.UORO 
.UORO 
.UORD 

TRAP 



C*ER»«D 

752 

T27RUN 
PKTSSR 

CKLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



c? 



MACRO HI I 15 01 FEB 64 17S54 



SEQ ?67 



10254 














10255 


101254 


015701 


101560' 


MOV 


T27BFR46,R1 


PICK UP XSTO 


10256 


101240 


010102 




MOV 


R1.R2 


1 SET UP EXPECTED 


10257 


101242 


052702 


000002 


BIS 


MIT1»R2 


iSET BQT BIT IN EXPECTED 


1025a 


101246 


020102 




CMP 


R1.R2 


lOOeS EXP • REC'O 


10259 


101250 


001406 




BEQ 


2401 


iBR, ir EQUAL (OK) 


10260 


101252 


005257 


002212' 


INC 


FATFLG 


iBUnP COUNT 


10264 


101256 






ERRHRD 


ERRNO. T27B0T .EXPREC 


iTAPE NOT AT BOT 'VTER REWIND 




101256 


104456 








TRAP 




101260 


001561 








.WORD 




101262 


102561' 








.WORD 




101264 


015574' 








.WORD 


10265 


101266 




2401: 


CKLOOP 




iLOOP IF SELECTED 




101266 


104406 








TRAP 


10266 


101270 


012704 


101660' 


MOV 


♦T27PK5.R4 


iSCT UP PACKET ADDRESS 


10267 


101274 


012757 


000010 101662' 


MOV 


♦10.T27RB 


1 SET UP RECORDS TO SPACE OVER 



CtERHRO 

755 

T27B0T 
EXPREC 

C»CLPl 



10266 
10269 
10270 
10271 
10272 
1027S 
10274 



ACK.CVC-1. SPACE FORWARD COTtMND 



10275 


101302 


012737 


140010 101660* 


10276 


101310 


010465 


000000 


10277 


101314 


005237 


101710* 


10278 


101320 








101320 


012727 


000001 




101324 


000000 






101326 


013727 


002116* 




101332 


000000 






101334 


005367 


177772 




101340 


001375 






101342 


005367 


177756 




101346 


001S67 




10279 


101350 


016S01 


000002 


10280 


101354 


032701 


000200 


10281 


101360 


001755 




10282 


101362 


016501 


000002 


1028S 


101366 


012702 


000200 


10284 


101372 


020201 




10285 


101374 


001406 




10286 


101376 


005237 


002212' 


10290 


101402 








101402 


104456 






101404 


001362 






101406 


104327* 






101410 


011746' 




10291 


101412 








101412 


104406 




10292 


101414 


013701 


101706' 


10293 


101420 


013702 


101710' 


10294 


101424 


160102 




10295 


101426 


160102 




10296 


101430 


160102 




10297 


101432 


042702 


000077 


10298 


101436 


042701 


000777 



2501: 
2521: 



NOV 4140010. T27PK3 

NOV R4.TS0e(R5) 

INC T27CNU 

DELAY 1 



t ACK.CVC-1. SPACE FORWARD CONNANO 

tissue CONNANO 

(BUNP TINER 

t DELAY ABOUT lOOUS 

NOV ♦l.(PC)» 
.WORD 0 

NOV L»DLY.(PC)» 
.WORD 0 
DEC -6(PC) 
BNE -4 
DEC •22CPC) 
BNE .20 



NOV 


TSSRCR5).R1 


iGET TSSR 


BIT 


•6IT7.R1 


tDCCK FOR TSSR'S SSR SET 


BEO 


252> 


iKEEP COUNTING UNTIL SET 


NOV 


TSSR(R5).R1 


iGET STATUS FRON TSSR 


NOV 


•SSR.R2 


tSET UP EXPECTED 


CMP 


R2.R1 


tUAS EVERYTHING OK 


BEQ 


2601 


iBR. IF ALL IS WELL 
iBUNP COUNT 


INC 


FATFLG 


errhro 


eRRN0.T27SCF.PKTSSR 


1 SPACE FORUARD DIDN'T WORK CUT 



2601: CKLOOP 

NOV 
NOV 
SUB 
SUB 
SUB 
BIC 
BIC 



ttOOP IF SELECTED 



T27CNT.R1 

T27CNU.R2 

R1.R2 

R1.R2 

R1.R2 

•77. R2 

•000777. Rl 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



iTINE FOR WRITE SPACING 
iTINE FOR WRITE RETRY SPACING 
iGET'EN PRETTY CLOSE 
iGET'EN PRETTY aOSE 
iCET'EN PRETTY CLOSE 
I CLEAR LOW 6 BITS 
•SETTING UP CONSTANTS 



CIER»«0 
754 

T27SCF 
PKTSSR 

CtCLPl 



D7 



MACRO mil5 Ol-FEB 84 17:54 



SEQ 288 



10299 
lOSOO 
lOSOl 
10305 



10306 
10307 



10308 
10309 
10310 
10311 
10312 
10313 
10314 
10315 
10316 
10317 
10316 
10319 



10320 
10321 
10322 
10323 
10325 
10327 
10328 
10329 
10330 
10331 
10332 
10333 
10334 
10335 
10336 
10337 
10338 
10339 
10340 
10341 
10343 
10345 
10346 
10347 
10348 
10349 
10350 
10352 
10354 
10355 



101442 
101444 
101446 
101452 
101452 
101454 
101456 
101460 
101462 
101462 
101464 
101464 
101464 
101466 
101474 
101476 
101502 



101502 
101506 
101510 
101514 
101514 
101514 
101516 



101520 
101530 
lOlSSO 
101532 
101534 
101536 
101540 
101540 
101542 
101544 
101546 
lOlSSO 
101552 



101634 
101640 
101640 
101642 
101644 
101646 

101650 
101660 
101660 



020102 
002006 

005237 002212- 

104456 

001363 

102654* 

015374- 

104406 



104403 

023727 002212' 000017 
103402 

004737 017104' 



004737 016360' 
103002 

000137 075046' 



3001: 



CMP R1.R2 

BGE soot 

INC FATFLG 

ERRHRO ERRN0.T27TIh.EXPREC 



CKLOOP 
ENDSUB 



104432 
003324 



100004 
101540' 
000000 
000012 

101SS2' 

000000 

000024 

000000 

000000 



100006 
101670' 
000000 
000006 



100005 



9991: 
I 
I 
t 



1631: 



CMP 
BLO 
JSR 



JSR 
BCC 
JMP 

EXIT 



FATFLG, #15. 
9991 

PC.CKOROP 



PC.TSTLOOP 

1631 

T27L00P 



TST 



iLOCAL STORAGE FOR THIS TEST 



.BLKB 
T27PACKET: 

.UORD 
.UORO 
.UORO 
.UORO 

T270ATA: 

.UORO 
.UORO 
.UORO 
.UORD 
T270SU: .UORD 
T27BFR: .BLKW 
I 



10-<.-TSV2e7> 

100004 

T27DATA 

0 

10. 

T27BFR 
0 

20. 

0 

0 

25. 



lURITE SUBSYSTEM MEMORY COMMAND PACKET 



T27PK2: 



T27PK3: 



.BLKB 10-<.-TSV2e7> 

.UORO 100006 

.UORO T27BF2 

.UORD 0 

.UORD 6. 

.BLKB 10-<.-TSV2C7> 

.UORO 100005 



I CHECK FOR DIFFERENCE 
I BR. IF GOOO 0888 CHECK 
I BUMP COUNT 

I TIME WAS NOT DIFFERENT ENOUGH 

TRAP CIERHRD 
.UORO 755 
.WORD T27TIM 
.UORO EXPREC 

I LOOP IF SELECTED 

TRAP CtCLPl 
!<<<<<<<<<<«<< END SUBTEST >>>>>>>>>>>> 
110127; 

TRAP CtESUB 
lis ERROR COUNT AT 25 
iBR, IF LESS THAN 25 
(TRY TO DROP THE UNIT 



iDO NEED TO ITERATE TEST 
I BR. IF NO LOOP REQUIRED 
•EXECUTE AGAIN 



lALL DONE THIS TEST 



TRAP 
.UORO 



CIEXIT 
L10122- 



tCOMNAND PACKET TOR TEST 

tURITE CHARACTERISTICS COMMAND. UITh 

t ADDRESS OF CHARACTERISTICS BLOCK 

•STARTING VALUE OF BLOCK SIZE 
I CHARACTERISTICS DATA BLOCK 
t ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 

(SELECT DRIVE 0 
•MESSAGE BUFFER 



lURITE SUB SYS MEM COMMAND. AND ACK 
I ADDRESS OF SELECT BLOCK DATA 

tSIZE OF DATA PACKET 



ACK 



I REREAD COMMAND. AND ACK 



E7 



TSV7 • HAROUARE TESTS 1-8 
TEST 7: URITE DATA RETRY 



MACRO nill5 01 -FEB -84 17:54 



SEQ 289 



10SS6 
10557 
10358 
10559 
10560 
10561 
10562 
10565 
10564 
10565 
10566 
10567 
10568 
10569 
10570 
10571 
10572 
10575 
10574 
10575 
10576 
10577 
10578 
10579 
10580 
10581 
10582 
10585 
10584 
10585 
10586 
10587 
10588 
10589 
10590 
10591 
10592 
10595 
10594 
10595 
10596 
10597 
10598 
10599 
10400 
10401 
10402 
10405 
10404 
10405 
10406 
10407 
10408 
10409 
10410 
10411 
10412 



101662 
101662 
101664 
101666 



101670 
101670 
101671 
101672 
101674 



101676 
101700 
101702 
101704 



101706 
101710 
101712 



005114- 

000000 

000000 



010 
200 
000000 
000000 



100205 
100605 
102205 
177777 



000000 
000000 
000000 



T27Ra: 
T27UB: 

T27SZ: 

i 
I 

T27Br2 
T27BSO 
T27BS1 
T27S2: 
T27S5! 
I 

' .EVEN 

I TAPE MOTION PACKET COMMAND VALUES 

T27RN: .WORD 100205 

T27U0R: .WORD 100605 

T27C0N: .UORO 102205 

.WORD 177777 



.WORD 
.UORD 
.WORD 
.EVEN 



.BYTE 
.BYTE 
.WORD 
.WORD 



TREE 

0 

0 



10 
200 
0 
0 



lADDRESS or URITE BUFFER 
I SIZE OF BUFFER (EXTENT) 



iBSELO AREA 
iBSELl AREA 
iSEL 2 AREA 
iDATA AREA 



I REREAD DATA (NEXTi 
I REREAD DATA RETRY 
t URITE CONTINOUS 
lEND OF DATA 



T27CNT 
T27CNU 
T270LY 



.WORD 0 
.WORD 0 
.UORD 0 



iTAPE TIMER COUNTER STORAGE AREA 
iTAPE TIMER COUNTER STORAGE AREA 
t DELAY COUNTER 



sLOCAL TEXT MESSAGES FOR TEST 
I- 



101714 


124 


141 


160 


T27UNG: 


.ASCIZ 


102002 


124 


125 


125 


T27R0r: 


.ASCIZ 


102051 


122 


105 


122 


T27RRF: 


.ASCIZ 


102146 


120 


117 


123 


T27SC: 


.ASCIZ 


102250 


122 


111 


102 


T27L0R: 


.ASCIZ 


102500 


124 


125 


123 


T27U0F: 


.ASCIZ 


102555 


111 


154 


154 


T27L00: 


.ASCIZ 


102436 


122 


105 


122 


T27SSR: 


.ASCIZ 


102472 


124 


125 


125 


T27UDE: 


.ASCIZ 


102561 


124 


141 


160 


T2780T: 


.ASCIZ 


102654 


127 


122 


111 


T27TIM: 


.ASCIZ 


102751 


122 


105 


122 


T27E0T: 


.ASCIZ 


105010 


124 


123 


123 


T27TM: 


.ASCIZ 


105065 


122 


145 


167 


T27RUN: 


.ASCIZ 


105154 


122 


101 


115 


T27RNC] 


.ASCIZ 


105207 


124 


125 


125 


T27AM5: 


.ASCIZ 


105256 


104 


162 


151 


T270FL: 


.ASCIZ 


105551 


124 


125 


125 


T27UDD: 


.ASCIZ 


105421 


124 


125 


125 


T27UDC: 


.ASCIZ 


105474 


105 


126 


105 


T27VCK: 


.ASCIZ 


105547 


124 


125 


102 


T27BA: 


.ASCIZ 


105622 


127 


122 


111 


T27USS: 


.ASCIZ 


105711 


122 


145 


141 


T27L0N: 


.ASCIZ 



Position IneorrMt Aftor REREAD Provious COPP-D' 
'TSSR IncorrMt Aftor READ DATA Coawand' 

'REREAD Proviou* (Spaco Rovoroo. Rood ForMord) Co w and Failed' 
POSITION (Spaco Co— lan d ) Fa! lod. TSSR Not Correct' 

'RIB NOT SET AFTER READ REVERSE INTO BOT' 

'TSSR Not Correct Aftor IlloQal Mode Bit* Set' 
Illoool Mode Bits. Failod To Sot ILC Bit In XSTO* 
REREAD COMMAND Not Accopted* 

TSSR Net Correct Aftor URITE DATA RETRY Co—and. At BOT' 

Tipe Not At BOT After REWIND CoMwnd (BOT Not Sot In XSTO)' 
'URITE DATA RETRY" S Eraoo Twpm Not Long Enou^' 

REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 
' TSSR Not Correct Aftor REREAD COMMAND Rojocf 
'Rowind (POSITION) Cowand Not Accoptod' 
'RAM Error. Correct Data Pattern Not In Rom' 
'TSSR Init. Failed After REREAD COMMAND* 
'Drivo 7 Seloct Foilod To Set "OFL" In TSSR' 
'TSSR Not Correct After REREAD DATA CoMtand. SUB Bit Sot' 
'TSSR Not Correct After REREAD DATA Cowand' 
'CVC Sot. Oidn"t Rooet VCK In MeaooQO Buffer' 
'TSBA Not Correct After REREAD DATA CoMtand' 
'URITE SUBSYSTEM MEMORY Command Not Accoptod (RAM Read) 

Reading Long Record Failed To Sot RLL Bit In XSTO' 



F7 



TSV7 
TEST 



HARDWARE TESTS 1-8 
7: URITE DATA RETRY 



nACRO M1115 01-FEB-e4 17:54 



SEQ 290 



10413 
10414 
10415 
10416 
10417 
10418 
10419 
10420 
10421 
10422 
1042S 
10424 
10425 
10426 
10427 
10426 
10429 
10430 
10431 
10432 
10433 
10434 
10435 
10436 
10437 
10436 
10439 
10440 
10441 
10442 
10443 
10444 
10445 
10446 
10447 
10446 
10449 
10450 
10451 
10452 
10453 
10454 
10455 
10456 
10457 
10456 
10459 
10460 
10461 
10462 
10463 
10464 
10465 
10466 
10467 
10466 
10469 



103773 
104055 
104143 
104231 
104327 
104404 
104466 
104546 
104643 



104664 
104664 
104670 
104674 
104700 
104704 
104706 
104712 
104716 
104720 
104724 
104726 
104732 
104736 
104744 
104746 
104752 
104754 



104756 
104756 
104762 
104766 
104772 
104776 
105000 
105004 
105006 
105012 
105014 
105016 
105020 
105020 
105024 
105030 
105032 
105034 
105036 
105040 



122 
122 
122 
127 
124 
124 
124 
104 
127 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
022702 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
005021 
005021 
005021 
005011 
000207 



145 
145 
145 

122 
123 
123 
123 
141 
162 



141 T27L0P 

163 T27PBP 
141 T27TRL 
111 T27NEF 
123 T27SCF 
123 T27TSA 
123 T27URr 

164 T270TA 
ISl TST27I0: 

t* 
I 



XST3' 



.ASCIZ 'Reading Long R«cord Failed To S«t RLS Bit In XSTC 

.ASCIZ 'R««!dual Byta Count Incorraet Aftar Short Racord Raad' 

.ASCIZ 'Raad! no Lono Racord Fa! lad To Giva Tapa Statua Alart' 

.ASCIZ 'WRITE DATA RETRY. At Firat Racord. Fa i lad To Sat RIB Bit 

.ASCIZ 'TSSR Not Corract Aftar SPACE RECORDS CoiMiand' 

.ASCIZ 'TSSR Net Corract Aftar URITE DATA RETRY. Into POT' 

.ASCIZ 'TSSR Not Corract Aftar WRITE DATA RETRY CoMmand' 

.ASCIZ 'Data Conpara Error, Data Raad From Tapa Net Equal To '<4r!ttan' 
.ASCIZ 'Write Data Retry' 

.EVEN 



iROUTINE TO RESTORE COMNANO PACKET TO START-UP (DEFAULT) VALUES 
I WRITE SUBSYSTEM fCnORY COTtlAND 



T27REST: 



101530' 

100004 

101540* 

000012 
101552' 

000024 

000000 
000030 
177777 

000000 



101552' 64 I ! 



SAVREG 




iSAVE THE REGISTERS 


NOV 


♦T27PACKET.R1 


1 START OF THE PACKET 


HOV 


«100004.(R1)* 


tURITE SUBSYSTEH HEH. WITH ACK. 


NOV 


♦T270ATA.(R1)* 


1 ADDRESS OF CHARAISTICS DATA BLOCK 


CLR 


(Rl)» 


lEXTENOEO AOORESS 


HOV 


•10.. (RD* 


iSIZE OF DATA BLOCK IN BYTES 


HOV 


♦T278FR.(R1)* 


1 AOORESS OF HESSAGE BUFFER 


aR 


<Rl)» 




HOV 


♦20..(R1)» 


1 LENGTH OF HESSAGE BUFFER 


aR 


(Rl)» 


HOV 


•O.(Rl) 


•SELECT DRIVE ZERO 


HOV 


•24. .R2 


iNUHBER OF LOCATIONS TO BE CLEARED 


HOV 


•177777. T27aFR(R2) 


lALL ONES TO HESSAGE BUFFER 


TST 


•(R2) 


iNEXT LOCATION 


CHP 


•0.R2 


t AT END OF LOOP YET 


ONE 


641 


iKEEP GOING UNTIL DONE 


RTS 


PC 


1 RETURN 



T27RT2: 



101640* 

100006 

101670' 

000006 

101670' 



101660* 



T27RT3: 



SAVREG 




HOV 


•T27PK2.R1 


HOV 


•100006.(R1)* 


HOV 


•T27BF2.(R1)* 


aR 


CRD* 


HOV 


•6..(R1)» 


CLR 


(RD* 


HOV 


•T27BF2.R1 


CLR 


(Rl)» 


CLR 


(Rl) 


RTS 


PC 


SAVREG 




HOV 


•T27PK3.R1 


CLR 


(RD* 


CLR 


CRD* 


CLR 


(RD* 


CLR 


(Rl) 


RTS 


PC 



I SAVE THE REGISTERS 

t START OF TIC PACKET 

I WRITE SUBSYSTEH HEH. WITH ACK. 

I AOORESS OF DATA BLOCK 

I EXTENDED AOORESS 

I SIZE OF DATA BLOCK IN BYTES 

t POINT TO DATA SEL AREA 



iRETURN 

I SAVE REGISTERS 

I SET UP POINTER ADDRESS 

iCOHHAND SPACE 

t AOORESS OF DATA BLOCK 

I EXTENDED AOORESS 

iSIZE OF DATA TRANSFER BLOCK 

iRETURN 



G7 



TSV7 • HARDWARE 
TEST 



TESTS 1-8 
7: URIfE DATA RETRY 



MACRO mil5 Ol-FEB-64 17:54 



SEO 291 



10470 



10471 
104 72 
10473 
10474 
10475 
10476 
10477 
10476 
10479 
10460 
10461 
10462 
10463 
10484 
10465 
10486 
10487 
10488 
10489 

10490 
10491 
10492 
10497 
10498 
10499 
10500 
10501 
10502 
10503 
10504 
10505 
10506 
10507 
10508 
10509 
10510 
10511 
10512 
10513 
10514 



10515 
10516 
10517 
10518 
10519 
10520 
10524 
10525 



105042 
105042 
105042 



105044 
105044 
105044 

105052 
105056 
105062 
105066 
105072 



105100 
105100 
105100 
105100 
105102 
105106 
105112 
105116 
105122 
105124 
105130 
105132 
105132 
105134 
105136 



104401 



012737 
005037 
004737 
012700 
004737 
012737 



006256' 
003124' 
017176' 
112301' 
016412' 
000005 



002170' 



002206' 



104402 
004737 
004737 
004737 
004737 
103407 
005237 
010001 

104455 
001441 

003642* 



112326* 
112420' 
112462' 
015674* 

002212* 



ENDTST 



.SBTTL TEST 8: URITE/READ TAPE HARK 



Lie 122: 



TRAP 



CIETST 



i ♦ 

iTHIS TEST VERIFIES THAT THE WRITE TAPE HARK COHHANO OPERATES 
iPROPERLY. IT IS VERIFIED THAT THE TAPE HARK IS WRITTEN ONTO TAPE 
I BY CHECKING THAT THE READ AND SPACE RECORDS COHHANOS DETECT THE 
I TAPE HARK. IN ADDITION. SINCE WRITE TAPE HARK IS THE FIRST 
tSUBCOrtlANO UNDER THE FORMAT COHHANO BEING TESTED. IT IS VERIFIED 
I THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND THAT 
I FORMAT COHHANDS WITH ILLEGAL MODE COOES ARE REJECTED. 
I 

!thE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 

I 

t 

t 

t - 



8GNTST 

NOV 
CLR 
JSR 
NOV 
JSR 
HOV 



•EPRT2.EPRTSU 

KTENABLE 

PC.KTOFF 

•TST28ID.ro 

PC.TSTSETUP 

•5.L00PCNT 



T8:: 

I SECONDARY ERROR MESSAGE 
iTURN KTll OFF 

{TURN KTll BACK OFF IF THERE 
t ASCII MESSAGE TO IDENTIFY TEST 
lOO INITIAL TEST SETUP 
t PERFORM 5 ITERATIONS 



I ♦ 

'test 8. SUBTEST 1 
I 
t 
t 
t 
t 
t 
t 
t 
t 



VERIFIES THAT A FORMAT COMMAND (WITH ANY LEGM. MODE 
CODE) WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS 
REJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL 
VALID MODE CODES ARE CHECKED. 



T28L00P: 



BGNSUB 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>><>> 
T8.1: 

TRAP CtBSUB 



JSR 


PC.T28REST 


tSET COMMAND PACKET 


JSR 


PC.T28RT2 


1 SET UP OTHER COHHANO PACKET 


JSR 


PC.T28RT3 


tSET UP OTHER COMMAND PACKET 


JSR 


PC.SOFINIT 


iDO INITIALIZE ON CONTROLLER 


BCS 


20t 


iBR IF INIT WAS OK 


INC 


FATFL6 


iBUMP COUNT 


MOV 


RO.Rl 


t CONTENTS OF TSSR REGISTER 


ERRDF 


ERRNO . SF lERR . SF IMSG 


{FATAL ERROR TSSR WAS NOT OK 



TRAP 
.WORD 
.WORD 



CSEROF 
601 

SFIERR 



TSV7 HARDWARE TESTS 18 
TEST 6: URITE/READ TAPE MARK 
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105140 


011734 












.UORD 


SFIMSG 


10526 


105142 


012737 


000007 


110260' 


201: 


MOV 


^7.T28D3U 


iSET UP DRIVE NUMBER 


10527 


105150 


012704 


110240' 






nov 


#T28PACKET.R4 


1 SUBROUTINE NEEDS PACKET ADDRESS 


10526 


105154 


004737 


010562' 






JSR 


PC.URTCHR 


1 ISSUE WRITE CHARACTERISTICS 




10529 


105160 


103407 








BCS 


241 


iBR. IF COMMAND ISSUED OK 




105S0 


105162 


005237 


002212* 






INC 


FATFLG 


iBUMP COUNT 




10534 


105166 


010001 








MOV 


RO.Rl 


tSAVE CONTENTS OF TSSR 




10535 


105170 










ERRHRD 


ERRNO . URTMSG . SF IMSG 


lURITE CHARACTERISTISC FAILED 






105170 


104456 












TRAP 


CIERHRD 




105172 


001442 












.WORD 


802 




105174 


005046' 












.WORD 


URTMSG 




105176 


011734- 












.UORO 


SFIMSG 


10536 


105200 








24$: 


CKLOOP 










105200 


104406 












TRAP 


CICLPl 


10537 


105202 


005737 


002216' 






TST 


EXTFEA 


1 CHECK FOR EXTENDED FEATiJRES SU 


SUITCH 


10538 


105206 


001044 








BNE 


501 


iBR IF SUITCH IS ON 




10539 




















10540 


105210 


112737 


000200 


110401' 




MOVB 


«200.T28BS1 


tURITE MISCELLANEOUS CONT/REAO 


STATUS 


10541 


105216 


112737 


000010 


110400' 




MOVB 


«10.T28BS0 


iFUNCTION SELECTION BIT (TURN ON EXTFEA MU 


10542 


105224 


012704 


110350' 






MOV 


#T28PK2.R4 


lURITE SUBSYS MEM PACKET 




10543 


105230 


010465 


000000 






MOV 


R4.TSDB(R5) 


1 ISSUE COMMAND 




10544 


105234 


004737 


016236' 






JSR 


PC.CHKTSSR 


(WAIT FOR SSR 




10545 


105240 


103407 








BCS 


301 


(BR. IF NO ERROR 




10546 


105242 


010001 








MOV 


RO.Rl 


(ERROR. SAVE TSSR 




10547 


105244 


005237 


002212' 






INC 


FATFLG 


(BUMP COUNT 




10551 


105250 










ERRHRD 


ERRNO. T28SSR.PKTSSR 


iTSSR NOT CORRECT AFTER URT. MISCELLANEOUS 




105250 


104456 












TRAP 


CIERHRD 




105252 


001443 












.UORD 


603 




105254 


111075' 












.WORD 


T28SSR 




105256 


011746' 












.UORD 


PKTSSR 


10552 


105260 








301: 


CKLOOP 




(LOOP IF SELECTED 






105260 


104406 












TRAP 


CICLPl 


10553 


105262 


012704 


110240' 






MOV 


#T28PACKET.R4 


(SUBROUTINE NEEDS PACKET ADDRESS 


10554 


105266 


012737 


000007 


110260' 




MOV 


«7.T280SU 


(SELECT DRIVE 7 




10555 


105274 


004737 


010562' 






JSR 


PC.URTCHR 


(ISSUE URITE CHARACTERISTICS 




10556 


105300 


103407 








BCS 


50» 


(BR. IF COMMAND ISSUED OK 




10557 


105302 


005237 


002212' 






INC 


FATFLG 


(BUMP COUNT 




10561 


105306 


010001 








MOV 


RO.Rl 


(SAVE CONTENTS OF TSSR 




10562 


105310 










ERRHRD 


ERRNO . URTMSG • SF IMSG 


(URITE CHARACTERISTISC FAILED 






105310 


104456 












TRAP 


CIERHRD 




105312 


001444 












.UORD 


804 




105314 


005046' 












.UORD 


URTMSG 




105316 


011734' 












.UORD 


SFIMSG 


10563 


105320 








SOI: 


CKLOOP 




(SCOPE LOOP 






105320 


104406 












TRAP 


CICLPl 


10564 


105322 


016501 


000002 






MOV 


TSSR(R5).R1 


(GET TSSR CONTENTS 




10565 


105326 


032701 


000100 






BIT 


#0FL.R1 


(CHECK FOR THE OFFLINE BIT SET 




10566 


105332 


001006 








BNE 


601 


(BR. IF OFFLINE (GOOD) 




10567 


105334 


005237 


002212' 






INC 


FATFLG 


(BUMP COUNT 




10571 


105340 










ERRDT 


ERRNO. T280FL.SF IMSG 


(OFF LINE SHOULD HAVE BEEN SET 


(BAD) 




105340 


104455 










TRAP 


CIERDF 




105342 


001445 












.UORO 


805 




105344 


111430' 












.WORD 


T280FL 




105346 


011734' 












.UORD 


SFIMSG 


10572 


105350 








601: 


CKLOOP 




(LOOP IF SELECTED 






105350 


104406 












TRAP 


CICLPl 


10573 


105352 


012703 


110416- 






MOV 


^T28RN.R5 


(POINTER FOR COMMANDS 
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TSV7 - HARDWARE TESTS 1-8 
TEST 6: URITE/REAO TAPE MARK 



riACRO N1115 Ol-rEB 04 17:54 



10574 
10575 
10576 
10577 
10578 
10579 
10580 
10581 
10582 
10586 



10587 

10588 
10589 
10590 
10591 
10592 
10593 



10594 

10595 
10596 
10597 
10598 
10599 
10600 
10601 
10602 
10603 
10604 
10605 
10606 
10607 
10608 
10609 
10610 



105356 
10SS62 
105366 
105372 
105376 
105402 
105406 
105410 
105412 
105416 
105416 
105420 
105422 
105424 
105426 
105426 
105430 
105432 
105436 
105440 
105442 
105442 
105442 
105442 
105444 
105452 
105454 
105460 



011337 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001446 
111304* 
011746' 

104406 
005723 
022713 
001401 
000746 



110370' 

110370' 

000000 

016150' 

000002 

100306 



002212' 



65* i 



177777 



80t: 



90>: 



104405 

023727 002212' 000017 
103402 

004737 017104' 



MOV 
NOV 
MOV 
JSP 
MOV 
MOV 
CMP 
BEQ 
INC 

ERRHRO 



CKLOOP 

TST 
CMP 
BEQ 
BR 

ENDSUB 



CMP 
6L0 
JSR 



(R3).T28PK3 

•T28PK3.R4 

R4.TSDB(R5) 

PC.UAITF 

TSSR(R5),R1 

•SSR!SC!OFL 

R1.R2 

80t 

FATFLG 
ERRN0.T28TM 



(R5)* 

•177777, (R3 

90t 

651 



FATFLG. ^f^. 
9991 

PC.CKORGP 



9991: 
t ♦ 

!tEST 8. SUBTEST 2 

{VERIFIES THAT A FORMAT COMMAND UITH AN ILLEGAL MODE 

tCOOE CAUSES FUNCTION REJECT TERMINATION UITH THE 

{ILLEGAL COMMAND (ILC) ERROR BIT SET. ALL ILLEGAL 

(MODE CODES ARE CHECKED. 

t 

t 

I 

I - 



I TAPE READ COMMAND IN PLACE 
iR4 • POINTER TO PACKET 
I ISSUE COMMAND 
I WAIT FOR SSR TO SET 
I GET TSSR CONTENTS 
!BIT1!BIT2.R2 iSET UP EXPECTED 

I ARE THEY EQUAL 

I BR. IF OK ESP. FUNCTION REJECT 
iBUMP COUNT 

.PKTSSR tTSSR INCORRECT AFTER FORMAT CMD 

TRAP CIERHRO 
.WORD 806 
.WORD T28TM 
.WORD PKTSSR 

(LOOP IF SELECTED 

TRAP CIClPI 

(POINT TO NEXT COMMAND 
} lEND OF THE COMMANDS YET 

iBR, IF DONE 
•MORE COMMANDCS) TO GO 

!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L 10131: 

TRAP CIESUB 
:IS ERROR COUNT AT 25 
tBR. IF LESS THAN 25 
:TRY TO DROP THE UNIT 



10611 


105460 






BGNSUB 




!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 




105460 










T8.2: 






105460 


104402 








TRAP 


C*BSUB 


10612 


105462 


004737 


112326' 


JSR 


PC.T28REST 


iSET COMMAND PACKET 




10613 


105466 


004737 


112420' 


JSR 


PC.T28RT2 


iSET UP OTHER COMMAND PACKET 




10614 


105472 


004737 


112462' 


JSR 


PC.T2eRT3 


{SET UP OTHER COMMAND PACKET 




10615 


105476 


004737 


015674' 


JSR 


PC.SOFINIT 


iDO INITIALIZE ON CONTROLLER 




10616 


105502 


103407 




BCS 


20* 


iBR IF INIT WAS OK 




10617 


105504 


005237 


002212' 


INC 


FATFLG 


iBUMP COUNT 




10621 


105510 


010001 




MOV 


RO.Rl 


(CONTENTS OF TSSR REGISTER 




10622 


105512 






ERROF 


ERRNO. SFIERR . SFIMSG 


1 FATAL ERROR TSSR WAS NOT OK 






105512 


104455 








TRAP 


C»ERDF 




105514 


001447 








.WORO 


807 




105516 


003642' 








.WORD 


SFIERR 




105520 


011734' 








.WORD 


SFIMSG 


10623 


105522 


013737 


002172' 110260' 20*: 


MOV 


UNITN.T280SW 


J SET UP DRIVE NUMBER 





J7 

TSV7 HAROUAPE TESTS 1-8 HACRO M1115 OI-FEB-64 17;54 SEQ ?c,4 

TEST 6: URITE/REAO TAPE MARK 



106^ 


105530 


012704 


110240' 






MOV 


«T28PACKET.R4 


1 SUBROUTINE NEEDS PACKET ADDRESS 


10625 


105534 


004737 


010562' 






JSR 


PCtWRTCHR 


1 ISSUE WRITE CHARACTERISTICS 




10626 


105540 


103407 








BCS 


24$ 


iBR. IF COMMAND ISSUED OK 




10627 


105542 


005237 


002212' 






INC 


TATFLG 


iBUMP COUNT 




10631 


105546 


010001 








HGV 


RO.Rl 


tSAVE CONTENTS OF TSSR 




10632 


105550 










ERPHRO 


ERRNO . URTMSG • SF IMSG 


lURITE CMARACTERISTISC FAILED 






105550 


104456 












TRAP 


C$ERHRD 




105552 


001450 












.WORD 


808 




105554 


005046' 












.WORD 


WRTMSG 




105556 


011734* 












.UO$H> 


SFIMSG 


10633 


105560 








241: 


CKLOOP 




iLOOP IF SELECTED 






105560 


104406 












TRAP 


C$CLP1 


10634 


105562 


012703 


110406' 






HOV 


♦T28IMV.R3 


iSET POINTER FOR COMMANDS 




10635 


105566 


011337 


110370' 




30$: 


MOV 


(R3).T28PK3 


:SET UP NEXT COMMAND 




10636 


105572 


013737 


003114' 


110372' 




MOV 


FREE . T28RB 


{STARTING URITE BUFFER ADDRESS 




10637 


105600 


012704 


110370' 






MOV 


«T28PK3,R4 


iSET UP R4 WITH PACKET ADDRESS 




10636 


105604 


012737 


000400 


110376' 




MOV 


#256. .12852 


iSET UP RECORD SIZE IN PACKET 




10639 


105612 


010465 


000000 






MOV 


R4,TSDB(R5) 


(ISSUE COMMAND 




10640 


105616 


004737 


016150' 






JSR 


PC.WAITF 


iWAIT FOR SSR!BIT1!BIT2 TO SET 




10641 


105622 


016501 


000002 






MOV 


TSSR(R5).R1 


»GET TSSR CONTENTS 




10642 


105626 


012702 


100206 






MOV 


#SSR!SC!BIT1!BIT2,R2 


iSET UP EXPECTED 




10643 


105632 


020102 








CMP 


R1,R2 


(ARE THEY EQUAL 




10644 


105634 


001406 








BEQ 


75$ 


sBR* IF OK 




10645 


105636 


005237 


002212' 






INC 


FATFLG 


iBUMP COUNT 




10649 


105642 










ERRHRD 


ERRNO • T28WDF , PK T SSR 


iTSSR INCORRECT AFTER READ DATA 






105642 


104456 










TRAP 


C$ERHRD 




105644 


001451 












.WORD 


809 




105646 


110737' 












.WORD 


T28WDF 




105650 


011746* 












.WORD 


PKTSSR 


10650 


105652 








751: 


CKLOOP 




sLOOP IF SELECTED 






105652 


104406 












TRAP 


C$CLP1 


10651 


105654 


013701 


110270* 






MOV 


T28BFR»6,R1 


iGET MESSAGE BUFFER 




10652 


105660 


010102 








MOV 


R1,R2 


»SET UP EXPECTED 




10653 


105662 


052702 


001000 






BIS 


#eiT9.R2 


iSET THE ILC BIT IN EXPECTED 




10654 


105666 


020102 








CMP 


R1,R2 


{ARE THEY EQUAL 




10655 


105670 


001406 








BEQ 


180$ 


;BR. IF EQUAL (ALL IS WELL) 




10656 


105672 


005237 


002212' 






INC 


FATFLG 


sBUMP COUNT 




10660 


105676 










ERRHRD 


ERRNO » T28L0Q . EXPREC 


sTHE ILC BIT WAS NOT SET IN XSTO 




105676 


104456 












TRAP 


C$ERHRD 




105700 


001452 












.WORD 


810 




105702 


111014' 












.WORD 


T28L0Q 




105704 


015374* 












.WORD 


EXPREC 


10661 


105706 








1801: 


CKLOOP 










105706 


104406 












TRAP 


C$CLP1 


10662 


105710 


005723 








TST 


(R3)» ;BUMP 


TO NEXT ADDRESS (COMMAND) 




10663 


105712 


021327 


177777 






CMP 


CR3). #177777 


{CHECK FOR END OF COMMAND BUFFER 


10664 


105716 


001323 








BNE 


30$ 


iBR. IF MORE COMMANDS TQ TRY 




10665 


105720 








1901: 


CKLOOP 




sLOOP IF SELECTED 






105720 


104406 












TRAP 


C$CLP1 


10666 


105722 










ENDSUB 




!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 




105722 














L10132: 






105722 


104403 












TRAP 


C$ESLe 


10667 


105724 


023727 


002212' 


000017 




CMP 


FATFLG. #15. 


»IS ERROR COUNT AT 25 




10668 


105732 


103402 








BLO 


999$ 


iBR. IF LESS THAN 25 




1C669 


105734 


004737 


017104' 






JSR 


PC.CKDROP 


iTRY TO DROP THE UNIT 




10670 


105740 








999$: 








10671 





















TSV7 
TEST 



HAPOUARE 
8: WRITE/RE 



eaB^?a^e^mark 



i< / 



HACRO M1113 01 -FEB 84 17:54 



SCO 



10672 
10673 
10674 
10675 
10676 
10677 
10678 
10679 
10680 
10681 
10682 
10683 
10684 
10685 
10686 
10687 
10688 
10689 
10690 
10691 
10692 
10693 
10694 
10695 
10696 
10697 
10698 
10699 
10700 
10701 
10702 
10703 
10704 
10705 
10706 
10707 
10708 
10709 
10710 
10711 
10712 
10713 
10714 
10715 
10716 
10717 
10718 
10719 
10720 
10721 
10722 
10723 
10724 
10725 
10726 
10727 
10728 



TEST 8, SUBTEST 3 

VERIFIES THAT WRITE TAPE MARK COMMANOS OPERATE 
PROPERLY . AND THAT READ COHMANOS SUBSEQUENTLY ISSUED 
TO DETECT THE WRITTEN TAPE HARKS TERMINATE WITH TAPE 
STATUS ALERT WITH THE TAPE MARK DETECTED <TMK) STATUS 
BIT SET. THE FOLLOWING SEQUENCE IS EXECUTED. 

1. THE CONTROLLER IS INITIALIZED AND TAPE REWOUND. 
THIS SETS THE VOLUME CHECK (VCK) STATUS BIT. 

2. A WRITE TAPE MARK COMMAND WITH CVC-1 IS ISSUED 
AND PROPER TERMINATION AND STATUS IS VERIFIED 
(I.E. VCK-0 AND TMK-l). 

3. SEVERAL MORE WRITE TAPE MARK COMMANDS, THESE WITH 
CVC-0 ARE ISSUED AND PROPER TERMINATION (NORMAL) 
AND STATUS (TMK) VERIFIED. 

4. A READ REVERSE COMMAND IS ISSUED AND PROPER 
TERMINATION (TAPE STATUS ALERT) AND STATUS (TMK) 
VERIFIED. IT IS ALSO VERIFIED THAT NO DATA IS 
TRANSFERRED INTO MEMORY. 

5. A SPACE RECORDS REVERSE COMMAND IS ISSUED AND 
PROPER TERMINATION (TAPE STATUS ALERT) AND STATUS 
(TMK) VERIFIED. 

6. THE TAPE IS REWOUND AND A READ FORWARD COMMAND IS 
ISSUED AND PROPER TERMINATION (TAPE STATUS ALERT) 
AND STATUS (TMK) VERIFIED. IT IS ALSO VERIFIED 
THAT NO DATA IS TRANSFERRED INTO MEMORY. 

7. A SPACE RECORDS REVERSE COMMAND THAT COT^TAINS A 
RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS 
VERIFIED THAT TAPE STATUS ALERT TERMINATION 
OCCURED. TMK •! AND THAT RBPCR (RESIDUAL 
BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO 
VALUE. THIS OPERATION VERIFIES THAT DETECTION OF 
THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION 
TO BE PREMATURELY TERMINATED. THIS SHOULD LEAVE 
THE POSITION JUST BEFORE THE FIRST RECORD ON 
TAPE. 

8. TAPE POSITION IS VERIFIED BY ISSUING ANOTHER 
SPACE RECORDS REVERSE COMMAND AND VERIFYING THAT 
TAPE STATUS ALERT TERMINATION OCCURS. WITH THE 
REVERSE INTO BOX (RIB) STATUS ERROR BIT SET. 

9. A SPACE RECORDS FORWARD COMMAND THAT CONTAINS A 
RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS 
VERIFIED THAT TAPE STATUS ALERT TERMINATION 
OCCURED. TMK-1. AND THAT RBPCR (RESIDUAL 
BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO 
VALUE. THIS OPERATION VERIFIES THAT DETECTION OF 



L7 



TSV7 
TEST 



- HAROUARE TESTS 1-8 
8: URITE/REAO TAPE MARK 



MACRO MlllS 01 FEB 64 17:54 



SEO 296 



10729 
10750 
10751 
10752 
10-'55 
10754 
10755 
10756 
10757 



THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION 
TO BE PREMATURELY TERMINATED. 



10750 


105740 










BGNSUB 




!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 




105740 














Te.5: 






105740 


104402 












TRAP 


CtBSUB 


10739 


105742 


004757 


112526' 






JSR 


PC,T28REST 


iSET COMMAND PACKET 




10740 


105746 


004737 


4 4 ^ii ^A t 

112420' 






JSR 


PC,T28RT2 


iSET UP OTHER COMMAND PACKET 




10741 


105752 


004737 


112462' 






JSR 


A/* Y<^AAW 

PC • T28RT3 


iSET UP OTHER COMMAND PACKET 




10742 


105756 


012737 


023420 


110452' 




flOV 


^10000. •T26DLY 


iSET UP DELAY ROUTINE 




10743 


105764 


004737 


A4 tCJC '^Jk i 

015674* 




4 A A 

lot : 


JSR 


PC.SOF INlT 


iDO INITIALIZE ON CONTROLLER 




10744 


105770 


4 ASA 

103426 








dCS 


'lA ft 

20 S 


iBR IF INIT WAS OK 




10745 


105772 










DELAY 


A 

250 


1 DELAY ABOUT .25 SECONDS 






105772 


012727 


000250 










MOV 


♦250. (PC)* 




105776 


000000 












.WORD 


0 




106000 


013727 


AA'^ 4 4 ^ J 

002116 










MOV 


L$DLY.(PC)« 




106004 


000000 












.WORD 


0 




106006 


005367 


177772 










DEC 


-6(PC) 




106012 


001375 












BNE 


.-4 




106014 


005367 


177756 










DEC 


-22(PC) 




106020 


001367 












BNE 


.-20 


10746 


106022 


005337 


110432' 






DEC 


T26DLY 


iBUMP DELAY ROUTINE DOWN 




lO r47 


106026 


001356 








BNE 


101 


iBR. IF MORE DELAY TIME LEFT 




10746 


106030 


005237 


002212' 






INC 


FATFLG 


iBUMP COUNT 




10752 


106034 


010001 








MOV 


R0«R1 


1 CONTENTS OF TSSR REGISTER 




10753 


106036 










ERRDF 


^AA&kA «*CVPAA f j— f aaf <~ 

ERRNO • Sf lERR . SF IMSG 


{FATAL ERROR TSSR WAS NOT OK 






106036 


104455 












TRAP 


C»ERDF 




106040 


001453 












.WORD 


811 




106042 


003642' 












.WORD 


SFIERR 


lU f j4 


106044 


/\4 4 1 

011734' 












.UORO 


SFIMSG 


106046 


A4 V ^ V ^ 

013737 


002172' 


110260' 


20$: 


MOV 


UNITN,T26DSU 


: SET UP DRIVE NUMBER 






10o0d4 


012704 


110240' 






MOV 


♦T28PACKET ,R4 


{SUBROUTINE NEEDS PACKET ADDRESS 


lU f DO 


106060 


004737 


010562' 






JSR 


PC*WRTCHR 


(ISSUE WRITE CHARACTERISTICS 






1060d4 


103407 








BCS 


231 


iBR. IF COMMAND ISSUED OK 




lU 'DO 


4 

XOoODO 


005237 


002212' 






INC 


FATFUG 


iBUMP COUNT 




1 A7^0 
XU rOc 


10o072 


/\#%A4 

010001 








MOV 


A A A 4 

R0»R1 


iSAVE CONTENTS OF TSSR 
















HKKflNU 


COOtJt\ UOTMCft CFTMQfl 


s WRITE CHARACTERISTISC FAILED 






106074 


104456 












TRAP 


CtERHRD 




106076 


001454 












.WORD 


812 




106100 


005046' 












.WORD 


WRTMSG 




106102 


011754' 












.WORD 


SFIMSG 


10764 


106104 








23$: 


CKLOOP 




iLOOP IF SELECTED 






106104 


104406 












TRAP 


C$CLP1 


10765 


106106 


004757 


010714- 






JSR 


PC. REWIND 


tCALL TAPE REWIND COMMAND 




10766 


106112 


105411 








BCS 


50» 


tBR. IF NO PROBLEM 




10767 


106114 


016501 


000002 






MOV 


TSSR(R5).Rl 


J GET TSSR 




10768 


106120 


010004 








MOV 


R0.R4 


iSAVE PACKET ADDRESS 




10769 


106122 


00S2S7 


002212* 






INC 


FATFLG 


iBUMP COUNT 




10775 


106126 










ERRHRD 


ERRNO. T2aRWN.PKTSSR 


{REWIND NOT ACCEPTED 






106126 


104456 










TRAP 


CtERHRO 




106150 


0014SS 












.WORD 


813 



M7 





106132 


111361' 










.WORD 


T28RUN 




106134 


011746' 










.WORD 


PKTSSR 


10774 


106136 






301: 


CKLOOP 




iLOOP IF SELECTED 






106136 


104406 










TRAP 


CICLPI 


10775 


106140 


013701 


110270* 




MOV 


T28BFR»6,R1 


iPICK UP XSTO 




10776 


106144 


010102 






MOV 


R1.R2 


I SET UP EXPECTED 




10777 


106146 


052702 


000002 




BIS 


MIT1.R2 


iSET BOT BIT IN EXPECTED 




10778 


106152 


020102 






CMP 


R1.R2 


sDOES EXP • REC'D 




10779 


106154 


001406 






BEQ 


401 


iBR. IF EQUAL (OK) 




10780 


106156 


005237 


002212* 




INC 


FATFLG 


iBUMP COUNT 




10784 


106162 








ERRHPD 


ERRNO, T28B0T »EXPREC 


iTAPE NOT AT BOT AFTER REUINO 






106162 


104456 










TRAP 


OERHRO 




106164 


001456 










.WORD 


814 




106166 


111237' 










.WORD 


T28B0T 




106170 


015374* 










.WORD 


EXPREC 


10785 


106172 






401: 


CKLOOP 




iLOOP IF SELECTED 






106172 


104406 










TRAP 


OCLPl 


10786 


106174 


005737 


002216' 


421: 


TST 


EXTFEA 


tCMECK FOR EXTENDED FEATURES SU 


SWITCH 


10787 


106200 


001024 






BNE 


501 


:BR IF SWITCH IS ON 




10788 


106202 


112737 


000200 


110401' 


MOVB 


#200»T28BS1 


I WRITE MISCELLANEOUS CONT/REAO 


STATUS 


10789 


106210 


112737 


000010 


110400' 


MOVB 


#10,T28BS0 


jFUNC. SEL. BIT (TURN ON EXTFEA 


SWITCH) 


10790 


106216 


012704 


110350' 




MOV 


#T28PK2,R4 


lURITE SUBSYS MEN PACKET 




10791 


106222 


010465 


000000 




MOV 


R4.TS0e(RS) 


1 ISSUE COMMAND 




10792 


106226 


004737 


016236' 




JSR 


PC.CHKTSSR 


lUAIT FOR SSR 




10793 


106232 


103407 






BCS 


501 


;BR. IF NO ERROR 




10794 


106234 


010001 






MOV 


R0*RI 


t ERROR. SAVE TSSR 




10795 


106236 


005237 


002212' 




INC 


FATFLG 


iBUMP COUNT 




10799 


106242 








ERRHRD 


ERRNO • T28SSR • PKTSSR 


(TSSR NOT CORRECT AFTER URT. MISCELLANEOUS 




106242 


104456 








TRAP 


CIERHRO 




106244 


001457 










.WORD 


815 




106246 


111075' 










.UORO 


T28SSR 




106250 


011746* 










.UORD 


PKTSSR 


10800 


106252 






501: 


CKLOOP 




iLOOP IF SELECTED 






106252 


104406 










TRAP 


CICLPl 


10801 


106254 


012737 


000007 


110260' 


MOV 


♦7 . T28DSU 


;SET UP DRIVE NUMBER 




10802 


106262 


012704 


110240' 




MOV 


♦T28PACKET,R4 


t SUBROUTINE NEEDS PACKET ADDRESS 


10803 


106266 


004737 


010562' 




JSR 


PC.WRTCMR 


: ISSUE URITE CHARACTERISTICS 




10804 


106272 


103407 






BCS 


601 


iBR. IF COMMAND ISSUED OK 




10805 


106274 


005237 


002212' 




IHC 


FATFLG 


iBUMP COUNT 




10809 


106300 


010001 






MOV 


RO.Rl 


iSAVE CONTENTS OF TSSR 




10810 


106302 








ERRHRD 


ERRNO • URTMSG • SF IMSG 


tURITE CHARACTERISTISC FAILED 






106302 


104456 










TRAP 


CtERHRD 




106304 


001460 










.UOR'J 


816 




106306 


005046' 










.UOftD 


WRTHSG 




106310 


011734' 










.UOAD 


SFIMSG 


10811 


106312 






601: 


CKLOOP 




t SCOPE LOOP 






106312 


104406 










TRA.-» 


C»CLPl 


10812 


106314 


016501 


000002 




MOV 


TSSR(R5),R1 


{GET TSSR CONTENTS 




10813 


106320 


032701 


000100 




BIT 


♦OFL.Rl 


tCHECK FOR THE OFFLINE BIT SET 




10814 


106324 


001006 






BNE 


651 


iBR. IF OFFLINE (GOOD) 




10815 


106326 


005237 


002212' 




INC 


FATFLG 


{BUMP COUNT 






I06oo2 








cRRDr 


CDBUn T'^AACl CPTMCP 


tOFF LINE SHOULD HAVE BEEN SET 


(BAD) 




106332 


104455 








TRAP 


C$EROF 




106334 


001461 










.UORD 


817 




106336 


111430' 










.WORD 


T280FL 




106340 


011734' 










.WORD 


SFIMSG 


10820 


106342 






65$: 


CKLOOP 




{LOOP IF SELECTED 





rSV7 - HARDWARE _ 
TEST 6: URITE/REAI 



eaB^Ia^e^ark 



N7 



HACRO H1113 Ol-FEB-64 17:54 





106342 


104406 












10621 


106344 


013737 


002172' 


110260' 




MOV 


UNITN.T26DSU 


10622 


106352 


012704 


110240* 






hOV 


«T26PACKET.R4 


10623 


106356 


004737 


010562' 






JSR 


PC.URTCHR 


10624 


106362 


103407 








BCS 


66$ 


10625 


106364 


005237 


002212' 






INC 


FATFLG 


10629 


106370 


010001 








HOV 


RO.Rl 


10630 


106372 










ERRHRO 


ERRNO . URTMSG . SF IMSG 




106372 


104456 














106374 


001462 














106376 


005046' 














106400 


011734* 












10631 


106402 








66$: 


CKLOOP 






106402 


104406 












10632 


106404 


012737 


140011 


110370' 




MOV 


♦140011. T26PK3 


10633 


106412 


012704 


110370' 






MOV 


♦T26PK3.R4 


10634 


106416 


010465 


000000 






MOV 


R4,TS0B(R5) 


10635 


106422 


004737 


016150' 






JSR 


PC.UAITF 


10636 


106426 


016501 


000002 






MOV 


TSSR(R5).R1 


10637 


106432 


012702 


000200 






MOV 


«SSR.R2 


10636 


106436 


020102 








CMP 


R1.R2 


10639 


106440 


001406 








BEQ 


70$ 


10640 


106442 


005237 


002212' 






INC 


FATFLG 


10644 


106446 










ERRHRD 


ERRNO . T26UDC , PKTSSR 




106446 


104456 














106450 


001463 














106452 


111503' 














106454 


011746* 












10645 


106456 








70t: 


CKLOOP 






106456 


104406 












10646 


106460 


013701 


110270* 






MOV 


T26BFR»6.R1 


10647 


106464 


010102 








MOV 


R1.R2 


10646 


106466 


042702 


000020 






BIC 


«BIT4.R2 


10649 


106472 


020102 








CMP 


R1.R2 


10650 


106474 


001406 








BEQ 


80$ 


10651 


106476 


005237 


002212* 






INC 


FATFLG 


10655 


106502 










ERRHRD 


ERRNO . T28VCK . EXPREC 




106502 


104456 














106504 


001464 














106506 


111562' 














106510 


015374' 












10656 


106512 








60$: 


CKLOOP 






106512 


104406 












10657 


106514 


013701 


110270* 






HOV 


T26BFR»6.R1 


10656 


106520 


010102 








MOV 


R1.R2 


10659 


106522 


052702 


100000 






BIS 


«BIT15.R2 


10660 


106526 


020102 








CMP 


R1.R2 


10661 


106530 


001406 








BEQ 


90$ 


10662 


106532 


005237 


002212' 






INC 


FATFLG 


10866 


106536 










ERi^D 


ERRNO , T26TMK . EXPREC 




106536 


104456 














106540 


001465 














106542 


111635* 














106544 


015374* 












10667 


106546 








90$: 


CKLOOP 






106546 


104406 












10666 


106550 


004737 


010714' 






JSR 


PC. REWIND 



SEQ 296 



TRAP C$CLP1 

I SET UP DRIVE NUMBER 
{SUBROUTINE NEEDS PACKET ADDRESS 
iISSJE WRITE CHARACTERISTICS 
tBR. IF COMMAND ISSUED OK 
iBUHP COUNT 

tSAVE CONTENTS OF TSSR 

(WRITE CHARACTERISTISC FAILED 

TRAP CtERHRD 
.WORD 818 
.WORD WRTMSG 
.WORD SFIMSG 

J LOOP IF SELECTED 

TRAP C$CLP1 
tWRITE TAPE MARK.ACK.CVC-1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
I ISSUE COMMAND 
J WAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
» SET UP EXPECTED 
;ARE THEY EQUAL 
iBR. IF OK 
BUMP COUNT 

iTSSR INCORRECT AFTER WRITE TAPE MARK 

TRAP C$ERHRO 
.WORD 819 
.WORD T28WDC 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP C$CLP1 
J PICK UP XSTO (VCK CHECK) 
{SET UP EXPECTED 
iVCK SHOULD BE 0 
sis VCK SET CORRECTLY 
iBR. IF VCK IS CLEAR 
I BUMP COUNT 

:VCK WAS NOT CLEAR AFTER CVC-1 

TRAP C$ERHRD 
.WORD 820 
.WORD T28VCK 
.WORD EXPREC 

sLOOP IF SELECTED 

TRAP C$CLP1 
I PICK UP XSTO (CHECK TMK) 
sSET UP EXPECTED 
sTMK SHOULD BE SET 
{WAS TMK SET 
{BR, IF TMK WAS SET 
{BUMP COUNT 

{TMK WAS NOT SET AFTER WRT TAPE MARK 

TRAP C$ERHRO 
.WORD 821 
.WORD T28TMK 
.WORD EXPREC 

{LOOP IF SELECTED 

TRAP C$CLP1 
(CALL TAPE REWIND COMMAND 



B8 



TSV7 
TEST 



HARDWARE TESTS 1 0 
a: URITE/REM) TAPE rtMM 



MACRO MlllS 01 FEB 84 I7j54 



S£0 ^'ri 



10069 
10070 
10071 
10072 
10076 



10677 

10078 
10679 
10060 
10001 
10002 
10003 
10007 



10000 

10069 
10090 
10091 
10092 
10093 
10094 
10095 
10096 
10097 
10090 
10902 



10903 

10904 
1090S 
10906 
10907 
10900 
10909 
10913 



10914 

10915 
10916 
10917 



106554 
106556 
106560 
106564 
106570 
106570 
106572 
106574 
106576 
106600 
106600 
106602 
106606 
106610 
106614 
106616 
106620 
106624 
106624 
106626 
106630 
106632 
106634 
106634 
106636 
106642 
106650 
106654 
106660 
106664 
106670 
106674 
106676 
106700 
106704 
106704 
106706 
106710 
106712 
106714 
106714 
106716 
106722 
106724 
106730 
106732 
106734 
106740 
106740 
106742 
106744 
106746 
106750 
106750 
106752 
106754 
106756 



103411 
010004 

016501 000002 
005237 002212' 

104456 
001466 
111361* 
011746' 

104406 

013701 110270' 
010102 

052702 000002 

020102 

001406 

005237 002212' 

104456 
001467 
111237' 
015374- 

104406 

012703 000012 
012737 140011 110370' 

012704 110370* 
010465 000000 
004737 016150* 
016501 000002 
012702 000200 
020102 
001406 

005237 002212' 

104456 
001470 
111503' 
011746* 

104406 

013701 110270* 
010102 

052702 100000 

020102 

001406 

005237 002212' 

104456 
001471 
111635' 
015374* 

104406 

005303 
001337 

012700 177777 



1301; 



150>t 



lS5»t 



165»: 



1001: 



ecs 1301 

nOV R0.R4 

HOV TSSR(R5).R1 

INC FATFLG 

ERRHRD ERRN0.T20RUN.PKTSSR 



I BR. IF NO PROBLEH 
•SAVE PACKET ADDRESS 
I GET TSSR STATOS 
iBUMP COUNT 
IREUIND NOT ACCEPTED 



TRAP 
.WORD 

.UGRD 



CKLOOP 




iLOOP IF SELECTED 






TRAP 


nov 


T20BFR»6.R1 


iPICK UP XSTO 


nov 


R1.R2 


1 SET UP EXPECTED 


BIS 


•BIT1.R2 


iSET BOT BIT IN EXPECTED 


CMP 


R1.R2 


lOOES EXP • REC'D 


BEO 


1401 


iBR. IF EQUAL (OK) 


INC 


FATFLG 


iBUnP COUNT 


errhpo 


ERRNO. T2080T .EXPREC 


iTAPE NOT AT BOT AFTER REMIND 



CIERHRO 
022 
T20RUN 
PKTSSR 

CICLPI 



1401: CKLOOP 



NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
INC 

ERR»«D 



•10. .R3 

•140011. T20PK3 

•T20PK3.R4 

R4.TS0e(RS) 

PC.MAITF 

TSSft(RS).Rl 

•SSR.R2 

R1.R2 

165$ 

FATFLG 

ERRNO. T20IOC,PK TSSR 



TRAP CtERHRO 
.UORO 023 
.yORD T20B0T 
.UORO EXPREC 

I LOOP IF SELECTED 

TRAP CtCLPl 
tIMVER OF RECORDS TO MITE TN 
lURITE TAPE NARK.ACK.CVC-1 CONNAND 
tSET UP R4 yiTH PACKET ADDRESS 
{ISSUE COmRNO 
tUAIT FOR SSR TO SET 
I PICK UP TSSR 

iSET UP EXPECTED (SSR ONLY) 
tUAS STATUS GOOD 
tBR. IF TLRNINATICN MAS GOOD 
iBUMP COUNT 

I TSSR NOT CORRECT AFTER URT TAPE N. 

TRAP C<ERM)0 
.yORO 024 
.UORO T20UOC 
.UGRD PKTSSR 



C»CLP1 



CKLOOP 




tLOOP IF SELECTED 

TRAP 1 


NOV 


T20eFR.6.Rl 


iPICK UP XSTO 


NOV 


R1.R2 


iSET UP EXPECTED 


BIS 


•BIT15.R2 


iSET TMK BIT IN EXPECTED 


cw» 


R1.R2 


tDOES EXP -REC'D 


BEQ 


1801 


tBR. IF EQUAL (OK) 
tBUMP COUNT 


INC 


FATFLG 




ERRNO. T20TNK.EXPREC 


iTNK NOT SET AFTER WRT TAPE MARK 




TRAP 1 
.UORO 
.UORO 
.UORO 1 


CKLOOP 




•LOOP IF SELECTED 

TRAP 1 


DEC 


RS 


(BUNP COUNTER DOWN 


BNE 


1551 


iBR. IF LESS THAN 10 TAPE MARKS 


NOV 


•177777, RO 


•VALUE TO URITTEN TO MEMORY 



CtERHRO 
025 
T28Tm 
EXPREC 

CICLPI 



10918 
10919 
10920 
10921 
10922 
10923 
10924 
10925 
10926 
10927 
10928 
10929 
109SS 



109S4 

109SS 
10936 
10937 
10938 
10939 
10940 
10944 



10945 

10946 
10947 
10948 
10949 
10950 
10954 



10955 

10956 
10957 
10958 
10959 
10960 
10961 
10962 
10963 
10964 
10965 
10969 



106762 
10676^ 
106774 
107002 
107006 
107014 
107020 
107024 
107030 
107034 
107036 
107040 
107044 
107044 
107046 
107050 
107052 
107054 
107054 
107056 
107062 
107064 
107070 
107072 
107074 
107100 
107100 
107102 
107104 
107106 
107110 
107110 
107112 
107116 
107122 
107124 
107126 
107132 
107132 
107134 
107136 
107140 
107142 
107142 
107144 
107152 
107160 
107164 
107170 
107174 
107200 
107204 
107206 
107210 
107214 
107214 
107216 



017524 

003114- 110372- 
140401 110370' 
110370' 

000024 110376' 

000000 

016150' 

000002 

100204 



002212' 



004757 
013737 
012737 
012704 
013737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001472 
110574* 
011746' 



104406 

013701 110270' 
010102 

052702 100000 

020102 

001406 

005237 002212' 

104456 
001473 
111707' 
015374' 

104406 

017701 073776 
012702 177777 
020102 
001406 

005237 002212* 

104456 
001474 

112122* 
015374' 

104406 

012737 100410 110370* 

012737 000001 110372' 

012704 110370' 

010465 000000 

004737 0161S0' 

016501 000002 

012702 100204 
020102 
001406 

005237 002212' 

104456 
001475 



2001 



2101 



2201 



C8 



17:54 



SEQ 500 



PC.FILLMEM 



r28UB 
•140401. T28PK3 
#T28PK3,R4 

20..T28SZ 

R4,TS0B(R5) 

PC.HAITF 

TSSR(RS).R1 

#SSR!SC!BIT2.R2 

R1.R2 

2001 

FATFLC 

ERRNO . T28RDr , PK T SSR 



T28BFR*6.R1 

R1.R2 

•eiTl5.R2 

R1.R2 

2101 

FATFLC 

ERRNO. T28RRn.EXPREC 



8FREE.R1 
•177777, R2 
R1.R2 
2201 
FATFLC 

ERRNO. T28DTR.EXPREC 



•100410. r28PKS 

•1.T28RB 

•T2aPK3.R4 

R4.TS0B(R5) 

FC.UAZTF 

TSSRCR5).R1 

•SSR!SC(BIT2.R2 

R1.R2 

2221 

FATFL6 

ERRNO . T26R0G , PK T SSR 



iFIuL MEM WITH ALL ONES 

I STARTING READ BUFFER ADDRESS 

I RE AD RE VERSE. ACK. COMhANO 

I SET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

• ISSUE COrtlAND 

lUAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

I SET UP EXPECTED 

I ARE THEt EQUAL 

iBR. IF OK 

I BUMP COUNT 

iTSSR INCORRECT AFTER URITE DATA 

TRAP CIER»«D 
.WORD 826 
.WORD T28R0F 
.WORD PKTSSR 

•LOOP IF SELECTED 

TRAP C»CLPl 

tPICK UP XSTO 
I SET UP EXPECTED 
iTm SHOULD BE SET 
tIS THK SET 

iBR. IF Tm UAS SET (GOOD) 
tBUMP COUNT 

iTm NOT SET AFTER READ REV 

TRAP CIERMW) 
.UGRO 827 
.WORD T28RRt1 
.UORO EXPREC 

iLOOP IF SELECTED 

TRAP CtCLPl 
{FIRST LOC IN READ BUFFER 
{EXPECTED IF NO DATA TRANS. 
(DID ANY DATA GET TRANSFERRED 
iBR. IF NO DATA TRANS CGOOD) 
iBUNP COUNT 

I DATA TRANSFERRED ON READ TAPE HARK 

TRAP CfER»«D 
.UORD 828 
.UORD T280TR 
.UORD EXPREC 

iLOOP IF SELECTED 

TRAP C»aPl 
I SPACE REVERSE. ACK. COmANO 
tNUIVCR QF RECORDS TO SPACE BACK 
iSET UP R4 UITH PACKET ADDRESS 
I ISSUE COMNAND 
lUAIT FOR SSR TO SET 
•GET TSSR CONTENTS 
I SET UP EXPECTED 
I ARE THEY EQUAL 
iBR. IF OK 
iBUNP COUNT 

iTSSR INCORRECT AFTER SPACE CMD. 

TRAP CSERhRD 
.WORD 62"* 



D6 



SEO SOI 



10970 

10971 
10972 
10975 
10974 
10975 
10976 
109B0 



10981 

10982 
10983 
10964 
10985 
10986 
10990 



10991 

10992 
10993 
10994 
10995 
10996 
10997 
11001 



11002 

11003 
11004 
11005 
11006 
11007 
11008 
11009 
11010 
11011 
11012 
11013 
11014 
11015 
11019 



107220 
107222 
107224 
107224 
107226 
107232 
107234 
107240 
107242 
107244 
107250 
107250 
107252 
107254 
107256 
107260 
107260 
107262 
107266 
107270 
107272 
107276 
107302 
107302 
107304 
107306 
107310 
107312 
107312 
107314 
107320 
107322 
107326 
107330 
107332 
107336 
107336 
107340 
107342 
107344 
107346 
107346 
107350 
107354 
107360 
107366 
107374 
107400 
107406 
107412 
107416 
107422 
107426 
107430 
107432 
107436 
107436 



110655' 
011746* 

104406 

013701 110270* 
010102 

052702 100000 

020102 

001406 

005237 002212' 

104456 
001476 
111765* 
015374* 

104406 

004737 010714* 

103411 

010004 

016501 000002 
005237 002212* 

104456 
001477 
111361* 
011746* 

104406 

013701 110270* 
010102 

052702 000002 

020102 

001406 

005237 002212* 



104456 

001500 

111237' 

015374* 

104406 

012700 
004737 
013737 
012737 
012704 
013737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 



222t! 



226ti 



2301: 



240ti 



177777 
017324* 

003114* 110372' 
100001 110370' 
110370' 

000024 110376* 

000000 

016150* 

000002 

100204 



002212' 



CKLOOP 

nov 
nov 

BIS 
CMP 
BEQ 
INC 

errhro 



CKLOOP 

JSR 
BCS 

nov 
nov 

INC^ 

errhrd 



T28BrR*6.Rl 

R1,R2 

•BIT1S.R2 

R1.R2 

2261 

FATFLG 

ERRNO. r28RRN.E)(PREC 



PC.REUINO 

2301 

R0.R4 

TSSR(R5).R1 
FATFLG 

ERRNO. r28RlM.PKTSSR 



iLOOP IF SELECTED 

TRAP 

iPICK UP XSTO 
I SET UP EXPECTED 
iTMK SHOULD BE SET 
lis Tft< SET 

(BR. IF Tft( IMS SET (GOOD) 
iBUnP COUNT 

tTMK NOT SET AFTER SPACE l«V 

TRAP 
.WORD 
.UORD 
WORD 

»LOOP IF SELECTED 

TRAP 

tCALL TAPE REWIND COMMANO 

I BR. IF NO PROeLEH 

I SAVE PACKET ADDRESS 

tCET TSSR 

(BunP COUNT 

I REWIND NOT ACCEPTED 

TRAP 

.WORD 

.WORD 



CKLOOP 




.UORO 




iLOOP IF SELECTED 






TRAP 


nov 


T2aBFR*6.Rl 


iPICK UP XSTO 


nov 


R1.R2 


iSET UP EXPECTED 


BIS 


46IT1.R2 


tSET BOT BIT IN EXPECTED 


cnp 


R1.R2 


iDOCS EXP • REC'D 


BEQ 


240t 


iBR. IF EQUAL (OK) 


INC 


FATFLG 


tBUnP COUNT 


ERR»««> 


ERRNO. T20BOT .EXPREC 


{TAPE NOT AT BOT AFTER REUIM) 



TRAP 
.UORD 
.UORD 



PK?siS 
CICLPl 



850 

T26RRN 
EXPREC 

C«CLPl 



CtERHPD 
631 

T26RUN 
PKTSSR 

CICLPl 



CKLOOP 




.UORD 1 




tLOOP IF SELECTED 


nov 




TRAP 1 


#177777,RO 


t VALUE TO URITTEN TO HEHORY 


JSR 


PC.FlLLnEN 


tFILL HEH UITH ALL ONES 


nov 


FREE.T20R8 


t STARTING READ BUFFER ADDRESS 


nov 


♦100001. T2BPKS 


iREAO FQRUARO.ACK. COrtlAND 


nov 


*T2aPKS.R4 


tSET UP R4 UITH PACKET ADDRESS 


nov 


20..T2BSZ 


tSET UP RECORD SIZE IN PACKET 


nov 


R4,TS06(RS> 


1 ISSUE COHNAND 


JSR 


PC.UAITF 


tUAIT FOR SSR TO SET 


nov 


TSSR(RS>.R1 


tGET TSSR CONTENTS 


nov 


#SSR!SC!BIT2.R2 


tSET UP EXPECTED 


cnp 


R1.R2 


lARE THEY EQUAL 


BEQ 


2451 


iBR. IF OK 


INC 


FATFLG 


iBUHP COUNT 


ERRHRD 


ERRNO . T28UDE . PKTSSR 


iTSSR INCORRECT AFTER URITE DATA 



CtERHRD 
632 
T2660T 
EXPREC 

C»CLP1 



TRAP 



CtERHRD 



E8 
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1 0 7AAO 


001 SOI 

WX JVX 










unon 

. mxJnU 


AX Y 




107AAP 


XXX X^O 










• WUKU 


1 COWUC 




1 0TA A A 


A1 1 ' 
VXX f ^v 










. WUKU 




^ X VCw 


1 0 7 A Atf^ 








f^Ki nop 

^r\L. wV» 




(1 OOP TF ^Fl PrTFO 






XV » 


lOAAOl^ 
XV^^VD 










TOAD 






XV f ^ JV 


01 Y701 

VX J r VX 


1 1 02 70 * 

X X VC • V 




MOW 

••V w 


T2ABrR#6 Rl 

1 c w' ^ *w f X 


tPTPK (iP X^TO 






1074S4 

XV f 


01 01 OP 

VX VXVc 






MOW 


Rl R2 

n A t r^c 


t^T UP EXPFCTEO 






XV r ^ JO 


0S2702 

VJC r VC 


lOOOOO 
xvww 




BIS 

OAS 


#BIT15 R2 


1 TMK CHOI I n RF ^F T 






10746P 


020102 

V&VAVC 






CMP 


R1.R2 

r« A i nc 


lis TfK SET 






1074AA 

XV r 


00140& 








2471 

C^ • w 


tBR TF TMK UA<; OFT TfUVm^ 






1074M 


0052S7 


002212' 

WCC AC 




INC 

ArW 


FATFLG 


iBUMP COUNT 




11050 


107472 

XV ' ^ t c 








ERRHRD 


ERRNO T2BRRP.EXPREC 


iTMK NOT SET AFTER RE AO REW 






10747P 

XV f ^ f c 


104456 










TRAP 


C*ERHRD 




107474 

XV f ^ r ^ 


OO^ 502 










.UORO 


834 




107476 

XV r ^ r \y 


112044' 










.UORD 


T28RRP 




107^00 
XV ■ ^^/v 


015374' 

VX^w • ~ 










.UORO 


EXPREC 


llOSl 


107S0P 

A V r ^vc 






2471* 

c^ ■ ▼ • 


CKLOOP 




iLOOP IF SELECTED 






10750P 

XV f ^vc 


104406 










TRAP 


CICLPI 




107S04 

XV ■ 


017701 

V A • * V A 


075404 

V • «#^ v • 




MOV 

■ "VW 


flFREE.Rl 


1 FIRST LOC IN READ BUFFER 


11035 


107S10 


012702 


177777 




MOV 

■ ivw 


♦177777. R2 


1 EXPECTED IF NO DATA TRANS. 




11034 


107514 

XV • 


020 102 

V&V AVK 






CMP 


R1.R2 

"At "C 


(DID ANY DATA GET TRANSFERRED 




1103S 


107S16 

XV f ^xv 


001406 








2501 

c^v^ 


tBR, IF NO DATA TRANS (GOOD) 




11036 


1075^ 

4>v > «nc V 


005237 


002212' 

WCC AC 




INC 


FATFLG 


iBUMP COUNT 




11040 


107!^4 

A.V r 










ERRNO . T2ADTR . EXPREC 


iDATA TRANSFERRED ON READ TAPE 


HARK 




10 7524 


104456 










TRAP 


CIER»«D 




107526 

* V • V 


001503 










.UORD 


835 




1075S0 

XV • ^«^v 


112122* 
xxcxcc 










.UORD 


T28DTR 




107532 


015374' 

VA^w • ~ 










UORD 


EXPREC 


11041 


107^54 

XV ■ 






2SOi • 


CKLOOP 




iLOOP IF SELECTED 






107534 


104406 










TRAP 


C»CLPl 


11042 


107536 


012737 

VAC • • 


100410 

AV*^^ AV 


110570' 

A A V«^ f V 


MOV 


#100410 T2aPK5 

wAW^AVf I C V 


1 SPACE REVERSE. ACK. C0»t1AND 




11043 


107544 


012757 

VAC r ^ * 


000005 


110S72* 

A AVi9 • C 


MOV 

•■WW 


#5 T2IIRB 


iNUrOER OF RECORDS TO SPACE BACK 


11044 


107552 


012704 

VAC t^^^ 


110570' 

XXV^ f V 




MOV 


#T2BPK5 R4 

w 1 C w* » 


(SET UP R4 UITH PACKET ADDRESS 




11045 


107556 


0104^5 

VA^^^V^ 


oooooo 

vwwv 




MOV 


R4 TSDBrR51 


t ISSUE COrtlAND 




11046 


107562 


004737 


016150' 

V AV A^V 






PC yAITF 

• W^A • • 


lUAIT FOR SSR TO SET 




11047 


107566 


016501 

V Av^V A 


000002 

WVWc 




MOV 


T$WrR5) Rl 


tGET TSSR CONTENTS 




11046 


107572 


0127O2 

VAC « VC 


100204 




MOV 

•>V w 


#S^*SC*BIT2 R2 

w ■ « D A 1 c • v^c 


1 SET UP EXPECTED 




11049 


107576 


020102 

VCV AVC 






CMP 


Rl R2 

n X ff F^c 


lARE THEY EQUAL 




11050 


107600 


001406 

WA^ W 








260 1 

C W 9 


iBR. IF OK 




11051 


107602 


005257 


002212' 

^^#ccXc 




INC 


FATFLG 


iBUMP COUNT 




11055 


107606 

A V V WW 










ERRNO. T2BR0G PKTSW 


sTSSR INCORRECT AFTER SPACE REV CMO. 




107606 


104456 










TRAP 


C«ERHRO 




107610 


001504 










.UORD 


836 




107612 

AV • W AC 


110655' 










.UORO 


T28RDG 




107614 


011746* 

VA A f 










.UORD 


PKTSSR 


11056 


107616 






2AOi • 

CvV» • 


CKLOOP 




iLOOP IF SELECTED 






107616 


104406 










TRAP 


C*CLPl 


11057 


107620 


015701 

V A^ ' V A 


110270' 

A AVC • V 




MOV 


T28BFR^6.R1 


iPICK UP XSTO 




11056 


107624 

A V • Vfc ^ 


010102 

V A V X VC 






MOV 
nv w 


Rl R2 

fix •"C 


tSET UP EXPECTED 




11059 


107626 

AV * VC V 


052702 

Va^C » VC 


lOOOOO 
A wvw 




BIS 

DX^ 


4BTT15 R2 

vox 1 X^t~C 


tTHK SHOULD BE SET 




11060 


107632 


020102 






CMP 


R1.R2 


tIS THK SET 




11061 


107634 


001406 






BEQ 


270t 


tBR. IF THK UAS SET (GOOD) 




11062 


107636 


005237 


002212' 




INC 


FATFLG 


iBUMP COUNT 




11066 


107642 








ERRHRD 


ERRNO. T28RRN. EXPREC 


iTHK NOT SET AFTER READ REV 






107642 


104456 








TRAP 


C»ERHRD 




107644 


001505 










.WORD 






107646 


111765' 










.UORO 


T28RRN 



F 8 



TSV7 
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SEQ 303 



11067 

11068 
11069 
11070 
11071 
11072 
11076 



11077 

11078 
11079 
11080 
11081 
11082 
11083 
11064 
11065 
11086 
11087 
11091 



11092 

11093 
11094 

11095 
11096 
11097 
11098 
11102 



11103 

11104 
11105 
11106 
11107 
11108 
11109 
11110 

mil 

11112 
11113 
11117 



107650 
107652 
107652 
107654 
107660 
107664 
107666 
107670 
107674 
107674 
107676 
107700 
107702 
107704 
107704 
107706 
107714 
107722 
107726 
107732 
107736 
107742 
107746 
107750 
107752 
107756 
107756 
107760 
107762 
107764 
107766 
107766 
107770 
107774 
107776 
110002 
110004 
110006 
110012 
110012 
110014 
110016 
110020 
110022 
110022 
110024 
110032 
110040 
110044 
110050 
110054 
110060 
110064 
110066 
110070 
110074 
110074 



015574' 
104406 

013701 110266* 
012702 000004 
020102 
001406 

005237 002212' 

104456 

001506 

110511' 

015374' 

104406 

012737 100410 110370' 

012737 000001 110372' 

012704 110370' 

010465 000000 

004737 016150* 

016501 000002 

012702 100204 
020102 
001406 

005237 002212' 

104456 

001507 

110655' 

011746' 

104406 

013701 110276* 
010102 

052702 000001 

020102 

001406 

005237 002212' 

104456 

001510 

110434' 

015374' 

104406 

012737 100010 110370' 

012737 000005 110372' 

012704 110370' 

010465 000000 

004737 016150' 

016501 000002 

012702 100204 
020102 
001406 

005237 002212' 
104456 



270> : CKLOOP 

MOV 
MOV 
CMP 

eEQ 

INC 

ERRHRO 



280t : CKLOOP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 

ERRHRO 



290t: 



T28BFR*4,R1 

•4..R2 

R1.R2 

280t 

FATFLC 

ERRNO. T28PBP . EXPREC 



•100410. T28PK3 

•1.T28RB 

•T28PK3.R4 

R4.TS0B(R5) 

PC.UAITF 

TSSR(R5).R1 

#SSR!SC!BIT2.R2 

R1.R2 

2901 

FATFLG 

ERRNO. T26m)G.PKTSSR 



.UORO EXPREC 

iLOOP IF SELECTED 

TRAP C»CLP1 
iPICK UP RESIDUAL BYTE COUNTED 
{SHOULD BE THE DIFFERENCE 
lis COUNTER CORRECT 
I BR. IF COUNTER CORRECT 
iBUMP COUNT 

{RESIDUAL BYTE COUNTER NOT CORRECT 

TRAP CtERHRD 
.WORD 638 
.WORD T28PBP 
.WORD EXPREC 

iLOOP IF SELECTED 

TRAP CICLPI 
I SPACE RE VERSE. ACK. COMMAND 
(NUMBER OF RECORDS TO SPACE BACK 
tSET UP R4 WITH PACKET ADDRESS 
i ISSUE COMMAND 
I WAIT FOR SSR TO SET 
I GET TSSR CONTENTS 
I SET UP EXPECTED 
I ARE THEY EQUAL 
tBR. IF OK 
I BUMP COUNT 

tTSSR INCORRECT AFTpr SPACE CMD 

TRAP 
.WORD 
.WORD 
.WORD 



CKLOOP 




tLOOP IF SELECTED 






TRAP 


NOV 


T288FR*14.R1 


•PICK UP XST3 


NOV 


R1.R2 


}SET UP EXPECTED 


BIS 


•BIT0.R2 


iRIB SHOULD BE SET 


CHP 


R1.R2 


tIS RIB SET 


BEQ 


3001 


tBR. IF RIB MS SET (GOOD) 


INC 


FATFLG 


tBUMP COUNT 


ERRHRO 


EMNO. T26RIB . EXPREC 


iRIB NOT SET AFTER READ REV 



CIERHRD 
839 
T28R0G 
PKTSSR 

C«CLP1 



3001: CKLOOP 

NOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 

ERRHRD 



•100010. T28PK3 

•5.T26RB 

•T28PK3.R4 

R4.TS0B(R5) 

PC.UAITF 

TSSR(R5).R1 

•SSR!SC!BIT2.R2 

R1.R2 

310t 

FATFLG 

ERRNO . T26RDF . EXPREC 



TRAP CSERHRO 
.WORD 840 
.WORD T28RIB 
.WORD EXPREC 

tLOOP IF SELECTED 

TRAP CICLPI 
I SPACE FORWARD. ACK. COMMAM) 
t NUMBER OF RECORDS TO SPACE FORW. 
I SET UP R4 WITH PACKET ADDRESS 
I ISSUE COmAND 
I WAIT FOR SSR TO SET 
I GET TSSR CONTENTS 
I SET UP EXPECTED 
I ARE THEY EQUAL 
iBR. IF OK 
tBUMP COUNT 

I TSSR INCORRECT AFTER SPACE CMD. 

TRAP CtERHRD 



G8 
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110076 


001511 










.WORD 


641 




110100 


110574' 












T28RDF 




110102 


015374' 










.WORD 


EXPREC 


11118 


110104 






3101 : 


CKLOOP 




iLOOP IF SELECTED 






110104 


104406 










TRAP 


CICLPI 


11119 


110106 


013701 


110270' 




MOV 


T26BFR»6.R1 


iPICK UP XSTO 




11120 


110112 


010102 






flOV 


R1,R2 


iSET UP EXPECTED 




11121 


110114 


052702 


100000 




BIS 


#BIT15,R2 


iTHK SHOULD BE SET 




11122 


110120 


020102 






CMP 


R1.R2 


lis TMK SET 




11125 


110122 


001406 






BEQ 


320$ 


iBR. ir Tm WAS SET (GOOD) 




11124 


110124 


005237 


002212' 




INC 


FATFLG 


iBUMP COUNT 




11126 


110130 








ERRHRO 


ERRNO • T26RRP • EXPREC 


(TMK NOT SET AFTER READ REV 






110130 


104456 










TRAP 


CIERHRO 




110132 


001512 










.WORD 


642 




110134 


112044' 










.UORO 


T26RRP 




110136 


015374' 










.WORD 


EXPREC 


11129 


110140 






3201: 


CKLOOP 




iLOOP IF SELECTED 






110140 


104406 










TRAP 


C»CLP1 


lllSO 


110142 


013701 


110266' 




nov 


T28BFR»4,R1 


iPICK UP RESIDUAL BYTE COUNTER 




11131 


110146 


012702 


000004 




nov 


44. «R2 


1 SHOULD BE THE DIFFERENCE 




11132 


110152 


020102 






CMP 


R1.R2 


lis COUNTER CORRECT 




11133 


110154 


001406 






BEQ 


3301 


iBR. IF COUNTER CORRECT 




11134 


110156 


005237 


002212' 




INC 


FATFLG 


iBUMP COUNT 




11136 


110162 








ERRHRO 


ERRNO • T28PBP . EXPREC 


1 RESIDUAL BYTE COUNTER NOT CORRECT 




110162 


104456 










TRAP 


CtERMtD 




110164 


001513 










.WORD 


643 




110166 


110511' 










.WORD 


T28PBP 




110170 


015374' 










.UORO 


EXPREC 


11139 


110172 






3301: 


CKLOOP 




(LOOP IF SELECTED 






110172 


104406 










TRAP 


CICLPI 


11140 


110174 








ENDSUB 




•<<<<<<<<(<< END SUBTEST >>>>>>>>>>> 




110174 












L101S3: 






110174 


104403 










TRAP 


CtESUB 


11141 


110176 


023727 


002212* 000017 




CMP 


FATFLG. #15, 


lis ERROR COUNT AT 25 




11142 


110204 


103402 






BLO 


9991 


iBR. IF LESS THAN 25 




11143 


110206 


004737 


017104' 




JSR 


PC.CKOROP 


iTRY TO DROP THE UNIT 




11144 


110212 






9991: 








11145 








V 










11146 








t 

• 










11147 








• 










11148 


110212 


004737 


016360' 




JSR 


PC.TSTLOOP 


lOO UE NEED TO ITERATE TEST 




11149 


110216 


10S002 






BCC 


1631 


iBR. IF NO LOOP REQUIRED 




11150 


110220 


000137 


105100' 




JMP 


T26L00P 


{EXECUTE AGAIN 




11151 


110224 






1631: 










11152 


110224 








EXIT 


TST 


lALL DONE THIS TEST 






110224 


1044S2 










TRAP 


CtEXiT 




110226 


002256 










.UORD 


L 101 SO 


11153 
















11154 


















11155 








iLOCAL 


STORAGE 


FOR THIS TEST 






11156 








1 - 










11158 


110230 








.BLKB 


10 <.-TSV2C7> 






11160 


110240 






T28PACKET: 




iCOHNAND PACKET FOR TEST 




11161 


110240 


100004 






.WORD 


100004 


lURITE CHARACTERISTICS COMNAND. 


WITH IE 


11162 


110242 


110250' 






.WORD 


T260ATA 


(ADDRESS OF CHARACTERISTICS BLOCK 


11163 


110244 


000000 






.WORD 


0 






11164 


110246 


000012 






.WORD 


10. 


{STARTING VALUE OF BLOCK SIZE 





TSV7 
TEST 



HARDUARE 
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1116S 
11166 
11167 
11168 
11169 
11170 
11171 
11172 
11173 
11174 
11176 
11178 
11179 
11180 
11181 
11182 
11183 
11185 
11187 
11188 
11189 
11190 
11191 
11192 
1119S 
11194 
11195 
11196 
11197 
11198 
11199 
11200 
11201 
11202 
11203 
11204 
11205 
11206 
11207 
11208 
11209 
11210 
11211 
11212 
I121S 
11214 
11215 
11216 
11217 
11218 
11219 
11220 
11221 
11222 
11225 
11224 
11225 



110250 
110250 
110252 
110254 
110256 
110260 
110262 



110S44 
110350 
110350 
110352 
110354 
110356 

110360 
110370 
110370 
110372 
110372 
110374 
110376 



110400 
110400 
110401 
110402 
110404 



110406 
110406 
110410 
110412 
110414 
110416 
110420 
110422 
110424 



110426 
110430 
110432 



110262' 

000000 

000024 

000000 

000000 



100006 
110400' 
000000 
000006 



100005 

003114' 

000000 

000000 



010 
200 
000000 
000000 



101411 
102011 
103411 
177777 
100011 
100411 
101011 
177777 



000000 
000000 
000000 



T280ATA: 

.WORD 
.WORD 
.WORD 
.WORD 
T280SU: .VIORO 
T28eFR: .BLKU 



T26BFR 
0 

20. 

0 

0 

25. 



lURITE SUBSYSTEM MEMORY COMMAND PACKET 



I 



T28PK2: 



.BLKB 10-<.-TSV?C7> 



.WORD 
.WORD 
.WORD 
.WORD 

.BLKB 

T28PK3: 

.WORD 

T28RB: 

T28UB: .WORD 
.WORD 

TZaSZ: .WORD 
.EVEN 



T28BF2: 
T28BS0: .BYTE 
T28BS1: .BYTE 
T28S2: .WORD 
T28SS: .WORD 
> 
t 



100006 
T286F2 
0 
6. 

1C.<..TSV267> 

100005 

FREE 

0 

0 



10 
200 
0 
0 



.EVEN 

I TAPE MOTION PACKET COMMAND VALUES 



T28iny: 

.UORD 
.WORD 
.WORD 
.WORD 
T28RN: .UORD 
T28UDft: .WORD 
T28C0NS .UORD 
.WORD 



101411 
102011 
103411 
177777 
100011 
100411 
101011 
177777 



T28CNTi .UORD 0 
T28CflU: .UORD 0 
T280LY: .UORD 0 
.EVEN 

! LOCAL TEXT MESSAGES FOR TEST 



I CHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 

{SELECT DRIVE 0 
{MESSAGE BUFFER 



lURITE SUB SYS MEM COMMAND. IE AND ACK 
I ADDRESS OF SELECT BLOCK DATA 

I SIZE OF DATA PACKET 



iREREAD COrtMND. AND ACK 
t ADDRESS OF URITE BUFFER 
(SIZE OF BUFFER (EXTENT) 



tBSELO AREA 
jBSELl AREA 
iSEL 2 AREA 
tOATA AREA 



i ILLEGAL MODE BITS TEST DATA 



lURITE TAPE MARK COMMAND 
t ERASE COMMAND 
lURITE TAPE MARK RETRY 
I END OF DATA 



I TAPE TIMER COUNTER STORAGE AREA 
tTAPE TIMER COUNTER STORAGE AREA 
(DELAY COUNTER 
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11226 














11227 














112^0 


110434 


124 


141 


160 


T26RIB: 


.ASCIZ 


11229 


110511 


122 


145 


163 


T28PBP: 


.ASCIZ 


11230 


110574 


124 


123 


123 


T28R0P1 


! .ASCIZ 


11231 


110655 


124 


123 


123 


T28RDG: 


i .ASCIZ 


11232 


110737 


124 


123 


123 


T28UDF, 


.ASCIZ 


11233 


111014 


111 


154 


154 


T28L0a 


: .ASCIZ 


11234 


111075 


127 


122 


111 


T28SSR 


: .ASCIZ 


11235 


111146 


124 


123 


123 


T28U0E 


: .ASCIZ 


11236 


111237 


124 


141 


160 


T28eOT 


: .ASCIZ 


11237 


111304 


124 


123 


123 


T28TM: 


.ASCIZ 


11238 


111361 


122 


145 


167 


T28RUN: .ASCIZ 


11239 


111430 


104 


162 


151 


T280FL 


: .ASCIZ 


11240 


111503 


124 


123 


123 


T28U0C 


: .ASCIZ 


11241 


111562 


103 


126 


103 


T28VCK: .ASCIZ 


11242 


111635 


124 


115 


113 


T28TMK: .ASCIZ 


11243 


111707 


124 


115 


113 


T26RRn: .ASCIZ 


11244 


111765 


124 


115 


113 


T26RRN: .ASCIZ 


11245 


112044 


124 


115 


113 


T26RRP: .ASCIZ 


11246 


112122 


104 


141 


164 


T280TR 


: .ASCIZ 


11247 


112204 


104 


141 


164 


T260TA: .ASCIZ 


11246 


112301 


127 


162 


151 


TST28I0: 


11249 












.EVEN 


11250 










!♦ 




11251 










t 




11252 










tROUTINE TO RE! 


11253 










tURITE 


SUBSYSTI 


11254 










t 




11255 










i - 




11256 












11257 


112326 








T28REST: 


11258 


112326 










SAVREG 


11259 


112332 


012701 


110240' 






nov 


11260 


112336 


012721 


100004 






NOV 


11261 


112342 


012721 


110250' 






NOV 


11262 


112346 


005021 








CLR 


11263 


112350 


012721 


000012 






NOV 


11264 


112354 


012721 


110262' 






NOV 


11265 


112360 


005021 








CLR 


11266 


112362 


012721 


000024 






NOV 


11267 


112366 


005021 








CLR 


11268 


112370 


012711 


000000 






NOV 


11269 


112374 


012702 


000030 






NOV 


11270 


112400 


012762 


177777 


110262* 


641: 


NOV 


11271 


112406 


005742 








TST 


11272 


112410 


020227 


000000 






CNP 


11273 


112414 


001371 








BNE 


11274 


112416 


000207 








RTS 


11275 














11276 














11277 


112420 








T28RT2 




11278 


112420 










SAVREG 


11279 


112424 


012701 


110350' 






NOV 


11280 


112430 


012721 


100006 






NOV 


11281 


112434 


012721 


110400' 






NOV 


11282 


112440 


005021 








CLR 



17:54 



18 



S€Q 306 



Tap* Position Not Correct, RIB Should B« Sot' 
Rooiduol Byto Countor Rooiotor (R6PCR) Not Corroct' 
TSSR Incorroct Aftor READ REVERSE Into TAPE NARK' 
TSSR Incorroct Aftor SPACE Coiwiiond Into TAPE NARK' 
TSSR Not Corroct Aftor Illooal Nodo Bito Sot' 
IlloMl No«o Bito. Failod To Sot ILC Bit In XSTO' 
URITE NISCELLANEOUS CoMRond Not Accoptod' 

'TSSR Not Corroct Aftor READ DATA COMnond. Into TAPE NARK' 
'Tapo Not At BOT Aftor REWIND CoMRond' 
TSSR Not Corroct Aftor fORNAT Co«mond Rojoct' 
'ROMind (POSITION) Coo w ond Not Accoptod' 
'Drivo 7 So loot Foilod To Sot "OFL" In TSSR' 
' TSSR Not Corroct Aftor URITE TAPE NARK Coaimand' 
'CVC Sot. Didn"t Rooot VCK In Nooooffo Buff or' 
'TNK Not Sot Aftor URITE TAPE NARK Coowo n d' 
'TNK Not Sot Aftor READ REVERSE Into TAPE NARK' 
'TNK Not Sot Aftor SPACE REVERSE Into TAPE NARK' 
'TNK Not Sot Aftor READ FORUARD Into TAPE NARK' 
'Ooto Tranoforrod On READ REVERSE Into A TAPE NARK' 
'Ooto CoMporo Error. Ooto Road Fro* Tapo Not Equal To Written- 
.ASCIZ 'Uri to/Rood Tapo Nor^' 



>TORE CONNAND PACKET TO START-UP (DEFAULT) VALUES 
■N NENORY CONNAND 



*T26PACKET.R1 
*100004.(R1)» 
*T28DATA.(R1)* 

(Rl)» 

♦10.. (RD* 

#T28BFR.(Rl)» 

(RD* 

#20.. (RD* 
(Rl)» 
•O.(Rl) 
♦24.. R2 

#177777. T286FR(R2) 

-(R2) 

R2.#0 

64$ 

PC 



(SAVE THE REGISTERS 

t START OF THE PACKET 

I URITE SUBSYSTEN NEN. WITH ACK. 

t ADDRESS OF ChARAISTICS DATA BLOCK 

{EXTENDED ADDRESS 

iSIZE OF DATA BLOCK IN BYTES 

t ADDRESS OF NESSAGE BUFFER 

I LENGTH OF NESSAGE BUFFER 

{SELECT DRIVE ZERO 

iNUNBER OF LOCATIONS TO BE CLEARED 

lALL ONES TO NESSAGE BUFFER 

I NEXT LOCATION 

t CHECK FOR END 

I KEEP GOING UNTIL DONE 

{RETURN 



#T28PK2.R1 
#100006. (RD* 
#T286F2,(R1)» 
(RD* 



{SAVE THE REGISTERS 

{START OF THE PACKET 

{URITE SUBSYSTEM NEN. WITH ACK. 

{ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 



J8 

TSV7 HARDWARE TESTS 1 6 hACRO rilll3 01 FEB 64 17:54 

TEST 6: URITE/REW TAPE HARK 



11205 


112442 


012721 


000006 


HOV 


.>6. ,(R1)* 


11284 


112446 


005021 




CLR 


(RD* 


11265 


112450 


012701 


110400' 


HOV 


#T26BF2.R1 


11266 


112454 


005021 




CLR 


(RD* 


11267 


112456 


005011 




CLR 


(Rl) 


11266 


112460 


000207 




RTS 


PC 


11269 


112462 






T26RT5: 




11290 


112462 






SAVREG 




11291 


112466 


012701 


110570' 


HOV 


4>T26PK5.R1 


11292 


112472 


005021 




CLR 


(Rl)^ 


11293 


112474 


005021 




CLR 


CRD* 


11294 


112476 


005021 




CLR 


(Rl)^ 


11295 


112500 


005011 




CLR 


(Rl) 


11296 


112502 


000207 




RTS 


PC 


11297 


112504 






ENDTST 






112504 












112504 


104401 








11298 


112506 






ENDHOD 





SEQ 507 



(SIZE or DATA BLOCK IN BYTES 
tPOINT TO DATA SEL AREA 



•RETURN 



iGET PACKET ADDRESS 
I CLEAR COMMAND AREA 
I CLEAR ADDRESS AREA 
I CLEAR EXTENDED ADDRESS AREA 
tSIZE OF DATA TRANSFER 
tRETURN 

LIOISO: 

TRAP C9ETST 



I<8 



1SV6 PARAMETER COOING hACRO MHIS 
TEST 8: URITE/REAO TAPE MARK 



01 FEB 84 17:54 



SEQ 308 



7 
12 
18 

19 112506 
112506 

20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 

32 112506 
112506 
112510 

33 

34 112510 
112510 
112512 
112514 
112516 

35 112520 
112520 
112522 
112524 
112526 

36 

37 112530 

112530 

38 112530 

39 112564 

40 112610 
41 

42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 

S3 112640 
112640 
112642 

54 

55 112642 
112642 



TSV6: : 



TITLE TSV6 PARAMETER CODING 



BGNMOO TSV6 



.SBTTL HARDWARE PARAMETER CODING SECTION 



THE HARDWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



000010 



000031 
112530' 
160010 
177776 

001031 
112564' 
000000 
000776 



104 
111 
111 



LIHARD:: 



BGNHRD 

.UORO L10134-L •HARD/2 



GPRMA HPHI.0.0. 160010. 177776. YES 

.WORD TICOOE 

.WORD HPMl 

.WORD TILOLIM 

.WORD TIHILIM 

GPRMA HPM2.2.0.0.776.YES 

Ticooe 



.WORD HPn2 

.WORD TILOLIM 

.WORD TIHILIM 

iGPRMD HPHS.4.0.340.0.7.YES 
ENOHRO 



{GET TSBA/TS06 REGISTER ADDRESS. 



(GET VECTOR ADDRESS. 



jGET INTERRUPT PRIORITY, 



105 
116 
116 



L10134i 

126 HPMls .ASCIZ 'DEVICE ADDRESS (TSBA/TS06) ' 

.ASCIZ 'INTERRUPT VECTOR ' 

.ASCIZ 'INTERRUPT PRIORITY 
.EVEN 

.SBTTL SOFTWARE PARAMETER COOING SECTION 



124 HPn2t 
124 HPM3: 



THE SOFTWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



000003 



001130 



LISOFT:: 

t GPRML 
GPRML 
.WORD 



BGNSFT 

.WORD L10135-LISOFT/2 



SPMl.O.-l.YES 
SPM4. 2.-1. YES 
TtCOOE 



t GET TRANSPORT TEST FLAG, 
t GET ITERATION CONTROL. 



L8 



TSV6 PARAHETER COOING MACRO Mil IS 
SOFTWARE PARAMETER COOING SECTION 



112644 
112646 

56 
57 

58 112650 
112650 

59 
60 

61 112650 

62 112700 
63 

64 
65 
66 
67 
68 
69 
70 
71 
72 
73 

74 112730 

75 

76 

77 112730 

78 

79 

80 

81 

82 112732 

112732 
112734 
112736 

83 112736 
84 

85 
86 
87 

88 112736 

89 112736 
112736 
112740 
112742 

90 112742 

91 112744 

92 112746 

93 112750 
112750 

94 112750 
95 

96 



112700' 
177777 



01 -FEB 84 17:54 



.UORD 
.UORD 
I GPRMO 
; GPRMO 
ENOSFT 
.EVEN 



SEQ 309 



SPM4 
1 

SPM6.4.D. 7777,0. 7777. YES 
SPM7,6.0. 7777,0, 7777. YES 



t GET LOCAL ERROR LIMIT 
I GET GLOBAL ERROR LIMIT 



105 
111 



L10135: 



116 101 SPMl: 
116 110 SPM4: 
|SPM6: 
|SPM7: 



000000 
000000 



000000 
000003 

172522 
000224 
000240 



000001 



.ASCIZ 'ENABLE TRANSPORT TESTS 

.ASCIZ 'INHIBIT ITERATIONS 

.ASCIZ 'PER TEST ERROR LIMIT 

.ASCIZ 'PER UNIT ERROR LIMIT 

.SBTTL PATCH AREA 



i FINALLY A GENEROUS PATCH AREA. 

! AND AN ADJUSTMENT TO ACCOUNT FOR THE "LASTAO BIT7' 

i DESCRIBED IN "SUPPRG.MEM" CFOR REV C). 

i 



HACK 



PATCH: 
i 



.BLKM 
.BLKU 



32. 
1. 



LtLAST:; 



.IF NZ..e377 
.•.!377»l 
.ENDC 
LASTAD 
.EVEN 
.UORD 
.WORD 



I SET LAST USED ADDRESS. 



0 
0 



ENDMOD 
.SBTTL 



i 



L10136: 



L 10140: 



HARD COOED P- TABLE 

DIAGNOSTIC IS PRE -PARAMETERIZED PER THIS TABLE 

BGNSETUP 1 

BGMPTAB 

.UORD 0 

.WORD L10140-./2-1 



.WORD 
.WORD 
.WORD 
ENDPTAB 

ENDSETUP 

.END 



172522 

224 

PRI05 



rSV6 - PARAMETER COOING MACRO M1113 Ol-FEB-64 17:54 

SYMBOL TABLE 



ADOSSR 


012026RG 


002 


CIAU - 


000052 


DEVDRO 


AOR 


000020 


G 




CtAUTO- 


000061 


DEVNRD 


AhBTSS 


00653SR 


002 


CIBRK ■ 


000022 


DEVNXR 


ASSEMB- 


000010 






CIBSEG- 


000004 


DEVONL 


A1716 • 


000003 






CIBSUB- 


000002 


DEvsun 


BAODAT 


003146RG 


002 


CICEFG- 


000045 


DFPTBL 


BAOSSR 


01S600RG 


002 


CICLCK- 


000062 


DIAGHC- 


BOVPCR- 


177520 


G 




CICLEA- 


000012 


DICEC • 


BENBSW 


002220RG 


002 


CiCLOS- 


000035 


DSBINT 


BIE 


040000 






CICLPl- 


000006 


DUA012 


BITO - 


000001 


G 




CICVEC- 


000036 


DUFLG 


8IT00 - 


000001 


G 




C$DCLN- 


000044 


DUMMY 


BlTOl - 


000002 


G 




CIDODU- 


000051 


EF.CON- 


BIT02 • 


000004 


G 




CIDRPT- 


000024 


EF.NEW- 


BIT03 • 


000010 


G 




CIDU • 


000053 


EF.PMR- 


BIT04 - 


000020 


G 




CIEDIT- 


000003 


EF.RES* 


BIT05 ■ 


000040 


G 




CIERDT- 


000055 


EF.STA- 


BIT06 ■ 


000100 


G 




CIERHR- 


000056 


EMAXDU 


BIT07 - 


000200 


G 




CIERRO- 


000060 


EN • 


BIT08 - 


000400 


G 




CIERSF" 


000054 


ENAINT 


BIT09 • 


001000 


G 




CIERSO- 


000057 


ENVIRN 


BITl - 


000002 


G 




CIESCA- 


000010 


EPRTSU 


BITIO ■ 


002000 


G 




CIESEG" 


000005 


EPRTl 


BITll « 


004000 


G 




CIESUB" 


000003 


EPRT2 


BITI2 • 


OlOOCO 


G 




CIETST- 


000001 


ERCM 


BIT13 ■ 


020000 


G 




CIEXIT- 


000032 


ERRHI 


BIT14 ■ 


040000 


G 




CIGETB- 


000026 


ERRK 


BITIS ■ 


100000 


G 




CIGETU* 


000027 


ERRLO 


BIT2 • 


000004 


G 




CIGMAN- 


000043 


ERRNO • 


BIT3 ■ 


000010 


G 




CIGPHR- 


000042 


ERRVEC* 


BIT4 ■ 


000020 


G 




CIGPLO- 


000030 


ERTABE 


BITS - 


000040 


G 




CIGPRI* 


000040 


ERTABL 


BIT6 - 


000100 


G 




CIINIT- 


000011 


ESUM 


BIT7 - 


000200 


G 




CIINLP- 


000020 


EVL 


BIT8 ■ 


000400 


G 




CIMANI- 


000050 


EXBCNT* 


BIT9 - 


001000 


G 




CfMEM • 


000031 


EXIT 


BOE ■ 


000400 


G 




cinsG - 


000023 


EXPBRE 


BPINIT 


00444 7R 


002 


ClOPEN* 


000054 


EXPO 


BSELO ■ 


000000 






CIPNTB* 


000014 


EXPGOT 


BSELl • 


000001 






CIPNTF- 


000017 


EXPGT2 


CHKAliB 


015744R 


002 


CIPNTS- 


000016 


EXPMS6 


CHKnAN 


020410RG 


002 


CIPNTX- 


000015 


EXPREC 


CHKTSS 


016236R 


002 


CIQIO - 


000377 


EXTA 


j~i 11 J 1 ri rtjl. 

CKOROP 


017104R 


002 


CIR08U- 


000007 


EXTEND 


CKEHAX 


017004R 


002 


CIREFG- 


000047 


EXTFEA 


CKnSG 


011260RG 


002 


CIRESE- 


000033 


EIEND • 


CKnSG2 


011400RG 


002 


CIREVI- 


000003 


EILOAO- 


CKRAH 


011014RG 


002 CIRFLA* 


000021 


FATAL 


CKRAn2 


011124RG 


002 


CIRPT ■ 


000025 


FATERR* 


CMOPKT 


021100RG 


002 


CISEFG* 


000046 


FATFLG 


CMPMEM 


017570R 


002 


CISPRI- 


000041 


FERCM 


UUPv* lb 


017152R 


002 


CISVEC- 


000037 


F IFEXP 


COUNT 


002300RG 


002 


CITPRI- 


000013 


FIFIMS 


CSRAOO 


002176RG 


002 


DATA 


002302RG 


002 FIF2MS 


CTAB 


003154RG 


002 


DATASC 


020142R 


002 FILLME 


CTABE 


003166RG 


002 DEBUGn 


011532R 


002 FNOINT 


CTABM 


003154RG 


002 DEVCNT 


002210RG 


002 FORCER 



M8 



023236R 


002 


023155R 


002 


023073R 


002 


023023R 


002 


022766R 


002 


002146RG 


002 


000000 




000001 




016104R 


002 


004633R 


002 


003102RG 


002 


003052R 


002 


000036 G 




000035 G 




000034 G 




000037 G 




000040 G 




016701R 


002 


000000 




0160S2R 


002 


020540R 


002 


002170RG 


002 


006166R 


002 


006256R 


002 


011633R 


002 


002226RG 


002 


016660R 


002 


002230RG 


002 


001513 




000004 G 




003366R 


002 


003166R 


002 


016662R 


002 


000004 G 




000010 




034124R 


002 


015402RG 


002 


002222RG 


002 


004523R 


002 


004557R 


002 


002312RG 


002 


015374RG 


002 


C05600R 


002 


005576R 


002 


0022 16RG 


002 


002100 




000035 




0S4224R 


002 


000060 




002212RG 


002 


011622R 


002 


012070RG 


002 


012142R 


002 


012211R 


002 


017324R 


002 


004205R 


002 


002166RG 


002 



FREE 005114RG 
FREEHI 003120R 
FRESIZ 0031 16RG 
FUSI 004107R 
FIAU - 000015 
F«AUT0- 000020 
F«BGN - 000040 
FICLEA" 000007 
F«DU - 000016 
FtENO " 000041 
FtHARO- 000004 
F«HU - 000013 
FIINIT- 000006 
FIJMP • 000050 
F«ri00 • 000000 
F«MSG - 000011 
FIPROT* 000021 
F«PUR > 000017 
F»RPT - 000012 
FISEG • 000003 
FISOFT- 000005 
F$SRV - 000010 
FISUe • 000002 
FISU - 000014 
FITEST- 000001 
GODAT 003150RG 
GERRMA 002164RG 
GETPAT 020104RG 
GETSEL 020166RG 
G«CNT0- 000200 
G«OELM- 000372 
G«OISP- 000003 
G«EXCP- 000400 
GIHILI- 000002 
G«L0LI- 000001 
G«N0 - 000000 
GIOFFS- 000400 
GIOFSI- 000376 
GtPRMA- 000001 
G«PRMD- 000002 
GIPRML- 000000 
G«RAOA- 000140 
G»RAOB- 000000 
G>RAOO- 000040 
G«RADL- 000120 
Gi^ADO- 000020 
G>XFER- 000004 
G«YES * 000010 
HIADOR- 001400 
HOE - 100000 G 
HPMl 112530R 
HPH2 112S64R 
HPM3 112610R 
IBE - 010000 G 
lOU - 000040 G 
lER - 020000 G 
IFAULT 004246R 



StQ 5J0 



002 INCERK 016746R 002 
002 INTCPC 016050R 002 
002 INTFLA 016045R 002 
002 INTMAS 016044R 002 
INTR 016116RG 002 

INTREC 0022 14RG 002 

INTVEC 016046P 002 

INTX 0042 70R 002 

INVERT 021024RG 002 

lOKCKI- 000200 

lOKSTP- 000001 

IPRI 002202RG 002 

ISR - 000100 C 

IVEC 002200RG 002 

IXE - 004000 G 

ItAU « 000041 

IIAUTO- 000041 

IICLN • 000041 

liOU - 000041 

IIHRO - 000041 

IIINIT- 000041 

I«nOO - 000041 

I«MSG > 000041 

IIPROT- 000040 

IIPTAB- 000041 
002 I»PUR - 000041 
002 IIRPT • 000041 
002 IISEG - 000041 
002 ItSETU- 000041 

IISFT • 000041 

IISRV - 000041 

ilSUB > 000041 

I»TST - 000041 

J>JMP " 000167 

KIPARO- 172340 

KIPARl- 17234^ 

KIPAR2'' 172344 

KIPAR3- 172346 

KIPAR4- 172350 

KIPAR5- 172352 

KIPAR6- 172354 

K1PAR7- 172356 

KIPORO- 172300 

KIPDRl- 172302 

KIP0R2- 172304 

KIPDR3- 172306 

KIPDR4- 172310 

KIP0R5- 172312 

KIPDR6- 172314 

KIP0R7- 172316 
002 KTENAB 003124RG 002 
002 KTFLG 003122RG 002 
002 KTINIT 020626R 002 

KTGFF 017176R 002 

KTON 017160R 002 

LERRMA 002162RG 002 
002 LISTAL- 000001 



N8 



TSV6 - 


PARAMETER 


COOING 


MACRO Ml 113 01 -FEB 


-84 17:54 














SEO 


511 


SYr«OL 


TABLE 


























LOE 


040000 G 




L»UNIT 


002012RG 


002 


L 10071 


0S5432R 


002 


MS.RSF- 


000020 




PRASC 


014423R 


002 


LOOPCN 


002206RG 


C02 


L 10000 


002154R 


002 


L10072 


047474R 


002 


MS.RST* 


000010 




PRBEXP 


01S370R 


002 


LOOPCO 


01S026R 


002 


LlOOOl 


002166R 


002 


L10073 


0S0074R 


002 


NBA 


002000 




PRBMSG 


015236R 


002 


LOOPFL 


0031S2RG 


002 


L10002 


005574R 


002 


L10074 


050550R 


002 


NEUPAS 


021650R 


002 PRBREC 


015372R 


002 


LOT 


000010 G 




L 10003 


011744R 


002 


L 10075 


051214R 


002 


NODEV 


003104RG 


002 


PRBTOT 


015323R 


002 


L»ACP 


002110RG 


002 


L 10004 


011762R 


002 


L 10076 


051754R 


002 


NOINIT 


004325R 


002 


PRBYTE 


015022RG 


002 


L$APT 


002036RG 


002 


L 10005 


012000R 


002 


L10077 


052714R 


002 


NOINTR 


004211R 


002 


PRI 


002000 G 


L$AU 


022212RG 


002 


L 10006 


012006R 


002 


LlOlOO 


0532S4R 


002 


NOITS 


002160RG 


002 


PRIAOD 


010060R 


002 


L$AUT 


002070RG 


002 


L 10007 


012024R 


002 


LlOlOl 


053636R 


002 


NOMAN 


020444R 


002 


PRIAO 


010130R 


002 


LIAUTO 


0224 16RG 


002 


L 10010 


012042R 


002 


L10102 


075004R 


002 


NOMEM 


0054SOR 


002 


PRIBXO 


007512RG 


002 


LtCCP 


002106RG 


002 


LlOOll 


012066R 


002 


L 10103 


056370R 


002 


NP.IR - 


000200 




PRIEQU 


007760R 


002 


L«CLEA 


022476RG 


002 


L10012 


012140R 


002 


L10104 


057236R 


002 


NP.LOO- 


000040 




PRIPKT 


007270RG 


002 


LICO 


0020S2RG 


002 


L10013 


012310R 


002 


L10105 


060130R 


002 


NP.OUT- 


000100 




PRIRAM 


007766R 


002 


LIOEPO 


002011RG 


002 


L10014 


013024R 


002 


L10106 


061056R 


002 


NP.URP- 


000020 




PRITAO 


0101 74R 


002 


LtOESC 


00S400RG 


002 


L10015 


01S652R 


002 


L10107 


061634R 


002 


NSI 


004142R 


002 


PRITSS 


00S632R 


002 


LIOESP 


002076RG 


002 


L 10016 


01S674R 


002 


LlOllO 


062476R 


002 NSINIT 


004377R 


002 PRITO 


010256R 


002 


LIOEVP 


002060RG 


002 


L10017 


015400R 


002 


LlOlll 


063350R 


002 


NUL 


004517R 


002 


PRI.l 


010321R 


002 


LtOISP 


002124RG 


002 


L10020 


015406R 


002 


L10112 


064222R 


002 


NULCR 


004520R 


002 


PRIXOR 


007642RG 


002 


L$DLY 


002116RG 


002 


L10021 


0154 14R 


002 


L10113 


06S076R 


002 


NXM 


004000 




PRIOO - 


000000 G 


L$OTP 


002040RG 


002 


L10022 


01S426R 


002 


L 101 14 


0657S2R 


002 


NXMFLG 


003126RG 


002 


PRIOl - 


000040 G 




LIOTYP 


0020S4RG 


002 


L10O23 


0154S0R 


002 


L10115 


066622R 


002 NXMHI 


003132RG 


002 


PRI02 - 


000100 G 




LlOU 


022310RG 


002 


L 10024 


015476R 


002 


L10116 


06~554R 


002 NXMLO 


003130RG 


002 


PRI03 - 


000140 G 




L*OUT 


002072RG 


002 


L10025 


015636R 


002 


L10117 


070604R 


002 


NXMTST 


021312R 


002 


PRI04 - 


000200 G 




LIOVTY 


003372RG 


002 


L10026 


016146R 


002 


L10120 


071164R 


002 


NXR 


OO3730R 


002 


PRI05 - 


000240 G 




L«EF 


002052RG 


002 


L10030 


022142R 


002 


L10121 


071640R 


002 


NXRERR 


005544RG 


002 PRI06 - 


000300 G 




LtENVI 


002044RG 


002 


L10031 


022306R 


002 


L10122 


10S042R 


002 


NXRX 


003767R 


002 PRI07 - 


000340 G 




LIETP 


002102RG 


002 


L 10032 


022414R 


002 


L10123 


075426R 


002 


NXTU 


021662R 


002 PRMESS 


014142R 


002 


LtEXPl 


002046RG 


002 


L10033 


022474R 


002 


L10124 


076210R 


002 OFL 


000100 




PRMNO 


002310RG 


002 


L>EXP4 


002064RG 


002 


L10034 


022522R 


002 


L10125 


077032R 


002 


ONEFIL- 


000000 




PRMSGE 


014452RG 


002 


L$EXP5 


002066RG 


002 


L10035 


022764R 


002 


L10126 


077734R 


002 


OIAPTS- 


000000 




PRMSGO 


014632R 


002 


LtHARO 


112510RG 


002 


L10036 


024420R 


002 


L10127 


101464R 


002 


0»AU - 


000001 




PRMSGl 


014677R 


002 




002120RG 


002 


L10037 


027100R 


002 


L 10130 


112504R 


002 


OIBGNR- 


000001 




PRMSG2 


014735R 


002 


LIHPCP 


002016RG 


002 


L10040 


025026R 


002 


L10131 


105442R 


002 


OtBGNS- 


000001 




PROASC 


014S20R 


002 


LIHPTP 


002022RG 


002 


L10041 


025350R 


002 


L10132 


105722R 


002 


OtDU - 


000001 




PRIASC 


014S65R 


002 


L<HU 


002146RG 


002 


L 10042 


025730R 


002 


L 10133 


110174R 


002 


OtERRT- 


000000 




PST32U 


003142RG 


002 


LIICP 


002104RG 


002 


L10043 


034250R 


002 


L10134 


112530R 


002 


OtGNSU- 


000001 




PUNIT 


022144R 


002 


LtlNIT 


021416RG 


002 


L10044 


027502R 


002 


L10135 


112650R 


002 


OIPOIN- 


000001 




PU.Dll- 


000021 




LILAOP 


002026RG 


002 


L 10045 


030352R 


002 


L10136 


112742R 


002 


OtSETU- 


000000 




PU.013- 


000022 




LILAST 


112736RG 


002 


L 10046 


031172R 


002 


L10140 


112750R 


002 


PASRPT 


021714R 


002 


PU.D22- 


000020 




LILOAO 


002i00RG 


002 


L10047 


031406R 


002 


MEHAOO 


013654RG 


002 


PATCH 


112730RG 


002 


PU.NOP- 


000000 




L*LUN 


002074RG 


002 


L10050 


031754R 


002 


MEMCK 


021116RG 


002 


PATDAT 


020140R 


002 


PU.NQl- 


000023 




LtMREV 


002050RG 


002 


L10051 


032320R 


002 


MENASC 


020357R 


002 


PC. ERA- 


002400 




PU.RDE- 


000024 




LiNATC 


002000RG 


002 


L10052 


046504R 


002 


MENERR 


020304R 


002 


PC. lER- 


002000 




PU.ROR- 


000001 




L*PRIO 


002042RG 


002 


L10053 


034716R 


002 


MENRES 


020406R 


002 PC.NOO- 


001000 




PU.ROS- 


000005 




LIPROT 


021406RG 


002 


L10054 


035476R 


002 


MMRO • 


170200 




PC.REL- 


000000 




PU.RFI- 


000003 




LIPRT 


002112RG 


002 


L10055 


036252R 


002 


rttVEC - 


000250 




PC.REU- 


000400 




PU.UCT- 


000006 




LIREPP 


002062RG 


002 


L10056 


036754R 


002 


MSA.FR- 


000006 




PKBCNT- 


000006 




PW.UFI- 


000004 




LtREV 


0020iORG 


002 


L 10057 


037420R 


002 


MSA. NO- 


000000 




PKHI - 


000004 




PW.UFM- 


000007 




L»RPT 


022S24RG 


002 


L10060 


040054R 


002 


MSA. NR- 


000004 




PKLOU - 


000002 




PU.UMI- 


000010 




LISOFT 


112642RG 


002 


L 10061 


040510R 


002 


MSA.VO- 


000002 




PKTAOO 


007454R 


002 


PU.UNP- 


000011 




L$SPC 


0020S6RG 


002 


L 10062 


041102R 


002 


MSGEXP 


012044RG 


002 


PKTFRM 


0074 16R 


002 


PU.UTR- 


000002 




LISPCP 


002020RG 


002 


L10063 


041604R 


002 


MSGLOO 


012764RG 


002 


PKTGET 


011764RG 


002 


P.ACK • 


100000 




LISPTP 


002024RG 


002 


L 10064 


042050R 


002 


MSGSTA 


012250RG 


002 PKTMES 


012010RG 


002 


P.CMO - 


000037 




LISTA 


002030RG 


002 


L 10065 


042322R 


002 


MSGSUB 


013642RG 


002 


PKTRAM 


004735RG 


002 


P.CONT- 


000012 




LtSU 


002156RG 


002 


L 10066 


042606R 


002 


MS. ATT - 


000006 




PKTSSR 


011746RG 


002 


P.CVC - 


040000 




LITEST 


002114RG 


002 


L 10067 


043106R 


002 


MS. EXT" 


000200 




PNT 


001000 G 




P.FMT - 


000140 




LITIML 


002014RG 


002 


L10070 


043572R 


002 


MS.RSD- 


000001 




PRAMPK 


013676R 


002 P. FORM- 


000011 
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P. GETS 
P. IE 
P.INIT 
P. MODE 
P. GPP 
P.POSI 
P. RE AD 
P. SUB 
P.URIT 
P.yRTC 
P.MRTS 
QVP 

RAHASC 

RAnOAT 

RAMERR 

RAMEXP 

RAMFOR 

RANSIZ 

RAMTAO 

RCVHIA 

RCVLOA 

ROERR 

RECHSG 

RECV 

REGSAV 

RE TERR 

RETRY 

REuno 
moflE 

PMCMEN 
mtlSGB 
IWISGE 
Rt^TB 
Rt«>KTE 



RyPACK 

SC 
SCE 

SCHERR 

SCME 

SOELAT 

SELASC 

SELDAT> 

SEL2 • 

SETnAP 

SETO 

SFrnsG 

SF»CRR 
SFIERR 
SFIMSG 
SFPTBL 
S If LAG 

sinsG 

SKIPT 
SOFINI 
SPACE 
SPMl 



000017 

000200 

OOOOIS 

007400 

020000 

000010 

000001 

010000 

000005 

000004 

000006 

0021 74RG 

014056R 

002232116 

0154 lORG 

O154S0RG 

010016R 

002272RG 

015416RG 

002274RG 

00227«RG 

005176R 

0024S6RG 

00222«(K> 

O20050R 

005S62R 

0S4126R 

010714RG 

000167 

000200 

00021' 

000234 

000201 

000210 

010000 

OllOlOR 

100000 

020000 

00S270R 

00500SR 

010S60R 

0203S2R 

000004 

000002 

017220R 

02174«R 

012002RG 

0036 7Slt 

003642R 

011734RG 

0021S6AG 

00S144RG 

011666R 

00SS70R 

015674RG 

0l0366fK; 

1126S0R 



SPm 

SRO 

SRI 

SR2 

SR3 

SSP 

STATCO 
SVCGBL 
SVCINS 
SVCSUB 
SVCTM* 
002 SVCTST 
002 SILSYM 
002 50.108 
002 SO.IPB 
002 SO.IFP 
002 SO.ILO 
002 SO. ION 
002 SO. IRQ 
002 SO.ZfM' 
002 SO. ISP 
002 SLICE 
002 Sl.IEO 
002 Sl.IFH 
002 Sl.IHE 
002 Si.IIO 
002 Sl.IlR 
002 S1.I2R 

51. PM) 

52. ATI 
S2.BTI 
52. DIN 
52.ILU 
S2.IMI 
S2.0UT 

002 S2.(JND 
TBLENO 
TCOASC 
002 TCOCOO 
002 TEMPI 
002 TEnP2 
002 TERCLS- 
TESTNO- 
TEXASC 
002 TFCASC 
002 TIHEXP 
002 TmSGO 
002 TINERR 
002 TfffBFR 
002 TNAH 
002 TRANST 
002 TSBA • 
002 TSBAH • 
002 TSOB • 
002 TS06H • 
002 TSFCOO 
002 TSREJ • 



112700R 

177572 

177574 

177576 

172516 

000200 

012312R 

000000 

000000 

000001 

000000 

000001 

010000 

000010 

000002 

000001 

000020 

000040 

000100 

000004 

000200 

002000 

010000 

001000 

000400 

004000 

020000 

040000 

100000 

000010 



000200 

000100 

000020 

000040 

000003 

00S052RG 

006S76R 

006S76R 

00S106RG 

OOSllORG 

000016 

000010 

006SSSR 

0064S7R 

01S4S2RG 

OlSSOOR 

011721R 

00e622RG 

016606R 

0021S6RG 

000000 G 

000001 G 

000000 G 

000001 G 
007136R 
000006 



002 TSSDEF 
TSSR 

Tssmi 

TSSRFO 
TSSRH 
TSSX 
002 TSTBLK 
TSTCNT 
TSTENO 
TSTFLA 
TSTLOO 
TSTRTR 
TSTSET 
TST21I 
TST22I 
TST23I 
TST24I 
TST2SI 
TST261 
TST27I 
TST2BI 
TSV2 
TSV3 
rsv4 
TSV6 
TSV7 
TTIBFR 
TTICSR 
TTIVEC 
TIMIGC 
TICOOE 
TIERRN 
TIEXCP 
TIFLAC 
TIFREE 
TIGNMI 
002 TIHILI 
002 TILAST 
002 TILQLI 
002 TILSYH 
002 TILTNO 
TINEST 
T9NS0 
002 TINSl 
002 T»IIS2 
002 TtPCNT 
002 TIPTAB 
002 TIPTHV 
002 TIPTNU 
002 TISAVL 
002 TISEGL 
TISI2E 
TISUBN 
TtTAGL 
TITAGN 
002 TITEtlP 
TITEST 



B9 

SEO 312 



006S06R 


002 


TITSTh- 


177777 




T22Ryj 


0264 74R 


002 


000002 G 




TITSTS- 


000001 




T22SSR 


0261 SOR 


002 


0054 72RG 


002 


THAU • 


010031 




T22S2 


0261 12R 


002 


006315R 


002 


TIIAUT* 


010033 




T22S3 


0261 14R 


002 


OOOOOS G 




TIICLE- 


010034 




T22Tf1 


026400R 


002 


00401011 


002 


TMOAT- 


010140 




T22VCK 


02654 7R 


002 


00274?IK; 


002 


TIIOU • 


010032 




T22ULK 


026622R 


002 


002204RG 


002 


TIIHAft* 


010134 




T22URT 


026120R 


002 


016622R 


002 


TIIHU • 


010000 




T23A 


0031 34RG 


002 


002S04RG 


002 


TIIZNZ* 


010030 




T23An3 


033140R 


002 


016360910 


002 


TIIHSG- 


010025 




T23e 


003136RG 


002 


002S06RG 


002 


TIIPC • 


000001 




12364 


033525R 


oor 


016412m; 


002 


TllPftO* 


010027 




T23eFR 


032402R 


002 


024244R 


002 




010137 




7238^2 


032522R 


002 


026707R 


002 


TllftPT* 


010035 




723650 


032522R 


002 


0SS666R 


002 


T9IS0F- 


010135 




T23eSl 


03252W 


00? 


046252ft 


002 


TllSftV* 


0100^6 




T2XN( 


034062R 


002 


05S230ft 


002 


TIISUB- 


010133 




T23C0N 


052540R 


002 


074607R 


002 


TIISU • 


010001 




T23DAT 


03P370ft 


002 


10464Sft 


002 


TIITES* 


010130 




T23DSU 


032400ft 


002 


112S01ft 


002 


Tl 


023S06RG 


002 


T2SE0T 


032664R 


002 


002000ftG 


002 


T2 


024422RG 


002 


T2SET 


0S2577ft 


002 


002166RG 


002 


T2.1 


024452ft 


002 


T23L00 


027146ft 


002 


021406RG 


002 


T2.2 


025044ft 


002 


T230rL 


03S206ft 


002 


112S06ft6 


002 


T2.3 


025366ft 


002 


T2SPAC 


032S60ft 


002 


02S306ftG 


002 


T214n3 


024123ft 


002 


T2SPK2 


032470ft 


002 


177S62 G 




T21BFft 


023724ft 


002 


T23PK3 


0S2510R 


002 


177560 G 




T21Br2 


024020ft 


002 


T2SRES 


0SS702ft 


002 


000060 G 




T21BS0 


024020ft 


002 


T2SftNC 


OS906SR 


002 


000003 




T21BS1 


024021ft 


002 


T2SftSZ 


OS2520R 


002 


001130 




T2104T 


02S710ft 


002 


T23ftT2 


0SS774ft 


002 


001513 




T21DLV 


023722ft 


002 


T2SftTS 


0S40S6ft 


002 


000000 




T210SU 


023720ft 


002 


T2SftMN 


03S016ft 


002 


000040 




T21L00 


023336R 


002 


T23SSR 


0S2544ft 


002 


112750ft 


002 


T210FL 


024223R 


002 


T23SZ 


032516R 


002 


000000 




T21PAC 


023700R 


002 


T2SS2 


032524ft 


002 


000776 




T21PK2 


024010R 


002 


T23S3 


0S2526ft 


002 


000001 




T21ftES 


024266R 


002 


T2STN 


0S2742ft 


002 


000000 




T21RT2 


024356R 


002 


T2STnP 


032530ft 


002 


010000 




T21SSR 


024026R 


002 


T23VCK 


033452ft 


002 


000010 




T21S2 


024022R 


002 


T23yB 


032512ft 


002 


177777 




T21S3 


024024R 


002 


T23lfi 


0S25S4ft 


002 


000000 




T22AH3 


026225R 


002 


T23yDC 


03S350ft 


002 


000005 




T22erR 


026012R 


002 


T2SyOO 


0SS261ft 


002 


000002 




122»f2 


026110ft 


002 


T23y0ft 


0S25S6ft 


002 


000000 




T22BS0 


026110ft 


002 


T23MftT 


0325S2ft 


002 


010137 




T22BS1 


026111ft 


002 


T23IISS 


033577ft 


002 


000001 




T220AT 


026000ft 


002 


T24AnS 


045240ft 


002 


000001 




T22F0R 


026124R 


002 


T24BA 


045572ft 


002 


177777 




T22L00 


0244S2ft 


002 


T24BFR 


0436S2ft 


002 


177777 




T220FL 


026325R 


002 


T24BF2 


043770ft 


002 


000005 




T22RAC 


025770R 


002 


T24B0T 


044633ft 


002 


000003 




T22PK2 


026100ft 


002 


T24BS0 


043770ft 


002 


177777 




T22R0S 


026122R 


002 


T24BS1 


043771R 


002 


010141 




T22RD 


026116R 


002 


T24C0N 


044002R 


002 


000000 




T22RES 


026742R 


002 


T24DAr 


043640ft 


002 


000010 




T22RT2 


027034R 


002 


r24DLY 


044006ft 


002 
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T240SU 

T240TA 

T24E0T 

T24ILA 

T24L0N 

T24L00 

T24L0P 

T24L0Q 

T24L0R 

T24NEF 

T24NXM 

T240FL 

T24PAC 

T24P6f> 

T24PK2 

T24PKS 

T24RB 

T24Res 

T24RN 

T24RNC 

T24RT2 

T24RTS 

T24RyN 

T24SSR 

T24SZ 

T24S2 

T24SS 

T24TH 

T24TRL 

T24VCK 

T24UB 

T24yOC 

T24U0O 

T24U0C 

T24U0F 

T24H0G 

r24U0R 

T24MSS 

T2SeFR 

T25BF2 

T2S6NC 

T2580T 

r2S6S0 

T258SI 

T2SCNT 

T2SCN2 

T25C0N 

T250AT 

T250Lt 

T2S0SU 

T2SL00 

T25NEF 

T25NET 

T250rL 

T25PAC 

T25PK2 

T25PKS 



045650R 


002 


T2SRB 


0S40S2R 


002 


T26SZ 




002 


T25RcS 


055246N 


002 


T26S2 


044 766H 


002 


T2WIB 


054753R 


002 


T26S5 


044362R 


002 


T25RN 


0S4046R 


002 


T26TM 


04575^ 


002 


T25RT2 


055S40R 


002 


T26TRL 


054312H 


002 


T25RT3 


055402N 


002 


T26VCK 


046014R 


002 


T2SRyN 


055035N 


002 


T26mB 


044446R 


002 


T25SSR 


0M064R 


002 


T26UDC 


044uo2k 


002 


T25SZ 


054036H 


AA«% 
002 


T26UD0 


O44010R 


002 


T25S2 


05404 2n 


002 


T2dmDE 


04422 IH 


002 


T2q53 


0>404#R 


AAf% 

002 


T2oHDF 


043303H 


AA^ 

002 


■ 25 Tn 


054272H 


002 


T26WNU 


043650H 


002 


T'MEaJA 

T2MB 


0540 32R 


002 


T26WSS 


04bO/W 


AA^ 

002 


T25UDC 


AAK^« K^YA 

055157lf 


AA^ 

002 


T27Rn3 


04374UN 


AA9 

002 


T "iffi If 
T23UK 


AA^ • 

094143lf 


002 


YAA 


043760IC 


002 




AAAAAAA 

054090R 


002 


T*%9B^A 

T27BFR 


0457©2lf 


AA^ 

002 


T25IMU 


AAAA VKA 

0544 53N 


002 


T27Br 2 


04PK0N 


AA9 

OOc 


l25UPiH 


AC^At AA 

O54610R 


002 


T27TOT 




AA9 




A7 ViCACA 

Of 3pOOH 


AA^ 

002 


Ic7o50 


043103N 


AA9 

002 


T^AAA 

T2WA 


AYA AAXA 

07404W 


002 


T27dS1 


04641211 


AA9 

002 


T^CAiTA 

T20orlf 


AT4 9<^^tk 

071722R 


002 


T27CNT 


04o4D#ff 


AA9 

OOc 


T2p^2 


A^^AAAA 

072U4W 


AA9 

002 


T27Cml 


04DXlVi 


AA^ 


T>CAAT 
IcWUI 


AY'SAYCA 

O r W75N 


AA9 

002 


Tc rWON 




AAO 


T^CACA 
T2W30 


AY^AAAA 

O rc040H 


OOc 


T^*VAAT 




AA^ 

002 


T^tfACI 

TcOOdl 


072041H 


002 


T27DLT 


043772H 


AA^ 

002 


T26CNT 


A^^AAAA 

07205PH 


AAO 

002 


T27DSU 


043 r r#K 


002 


T2KrfJ 


072060R 


002 


T27uTA 


04D043R 


AA^ 

002 


T^CAAT 
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